/[gcl]/gcl/ansi-tests/misc.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/misc.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.147 by pfdietz, Thu Sep 16 14:01:48 2004 UTC revision 1.148 by pfdietz, Thu Oct 7 13:07:35 2004 UTC
# Line 7866  Broken at C::WT-C-INLINE-LOC. Line 7866  Broken at C::WT-C-INLINE-LOC.
7866          0))          0))
7867    0)    0)
7868    
7869    ;;; ecl (07 Oct 2004)
7870    ;;; (0 . 0) is not of type REAL
7871    
7872    (deftest misc.409
7873      (funcall
7874       (compile
7875        nil
7876        '(lambda (a b)
7877           (declare (type (integer -40524 53538) a))
7878           (declare (type (integer -5967075 -235) b))
7879           (declare (ignorable a b))
7880           (declare (optimize (speed 2) (safety 1) (space 2)
7881                              (compilation-speed 3) (debug 0)))
7882           (labels ((%f2 (f2-1 f2-2 &optional (f2-3 0) (f2-4 a)) 0))
7883             (apply #'%f2 a
7884                    (%f2 b
7885                         (flet ((%f12 (f12-1 f12-2 f12-3 &optional &key
7886                                             (key1 0) (key2 0))
7887                                      (%f2 0 0)))
7888                           (reduce #'(lambda (lmv2 lmv1) (%f2 0 0 a))
7889                                   (list 0 0 a 0 0 0 a) :end 7))
7890                         0)
7891                    nil))))
7892       -7465 -3590953)
7893      0)
7894    
7895    #|
7896    ;;; A bug was found in the compiler.  Contact worm@arrakis.es.
7897    
7898    Broken at C::WT-MAKE-CLOSURE.
7899    |#
7900    (deftest misc.410
7901      (funcall
7902       (compile
7903        nil
7904        '(lambda ()
7905           (declare (optimize (safety 0) (space 1) (compilation-speed 0)
7906                              (speed 2) (debug 0)))
7907           (let ((*s2* 0))
7908             (declare (special *s2*))
7909             (reduce #'(lambda (lmv1 lmv2) *s2*) (vector 0) :end 1
7910                     :start 0)))))
7911      0)
7912    
7913    ;;; THROW: The catch CT2 is undefined.
7914    (deftest misc.411
7915      (funcall
7916       (compile
7917        nil
7918        '(lambda ()
7919           (declare (optimize (safety 2) (debug 0) (space 0)
7920                              (compilation-speed 2) (speed 0)))
7921           (catch 'ct2 (values 0 (throw 'ct2 0)))
7922           0)))
7923      0)
7924    
7925    ;;; /tmp/eclDD7aumXi8.c: In function `LC3':
7926    ;;; /tmp/eclDD7aumXi8.c:9: `env0' undeclared (first use in this function)
7927    (deftest misc.412
7928      (funcall
7929       (compile
7930        nil
7931        '(lambda (a b)
7932           (declare (type (integer -25409 1946) a))
7933           (declare (type (integer -215956065 223815244) b))
7934           (declare (ignorable a b))
7935           (declare (optimize (compilation-speed 2) (space 3) (debug 2)
7936                              (safety 1) (speed 3)))
7937           (complex (flet ((%f15 (f15-1 &optional &key (key1 0)) 0))
7938                      (reduce #'(lambda (lmv6 lmv1) (%f15 lmv1))
7939                              (list b 0)))
7940                    0)))
7941       -21802 -105983932)
7942      0)
7943    
7944    ;;; Different resutls: #<a type-error>, 0
7945    (deftest misc.413
7946      (funcall
7947       (compile
7948        nil
7949        '(lambda (a b)
7950           (declare (type (integer -120206733 37762378) a))
7951           (declare (type (integer 2777758072 5675328792) b))
7952           (declare (ignorable a b))
7953           (declare (optimize (compilation-speed 3) (space 3) (debug 3)
7954                              (safety 0) (speed 1)))
7955           (labels ((%f8 (f8-1 f8-2 &optional &key (key1 0))
7956                         (let* ((v2 (ash f8-1 (min 63 a)))) 0)))
7957             (ignore-errors
7958               (logand (apply #'%f8 0 b nil)
7959                       (unwind-protect
7960                           0
7961                         (ash (%f8 0 0)
7962                              (min 48
7963                                   (flet
7964                                       ((%f12
7965                                         (f12-1 f12-2 &optional &key
7966                                                (key1 a) (key2 b)
7967                                                &allow-other-keys)
7968                                         0))
7969                                     b)))))))))
7970       -4794909 4095236669)
7971      0)
7972    
7973    
7974    

Legend:
Removed from v.1.147  
changed lines
  Added in v.1.148

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26