/[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.9 by pfdietz, Sat Oct 11 16:00:15 2003 UTC revision 1.10 by pfdietz, Sun Oct 12 16:20:59 2003 UTC
# Line 949  Line 949 
949                             (declare (optimize (safety 3) (speed 0) (debug 0)))                             (declare (optimize (safety 3) (speed 0) (debug 0)))
950                             (ash 6916244 (min 42 -185236061640)))))                             (ash 6916244 (min 42 -185236061640)))))
951    0)    0)
952    
953    ;;; Unwind-protect bug, from sbcl:
954    ;;; "The value NIL is not of type SB-C::NODE."
955    
956    (deftest misc.75
957      (funcall (compile nil '(lambda () (flet ((%f12 () (unwind-protect 1))) 0))))
958      0)
959    
960    
961    ;;; cmucl (2003-10-12), "NIL is not of type C::REF"
962    (deftest misc.76
963      (funcall
964       (compile nil
965                '(lambda (a c)
966                    (if nil (unwind-protect (max 521739 (unwind-protect c)))
967                      (logandc2 3942 a))))
968       0 0)
969      3942)
970    
971    ;;; gcl (2003-10-11)  Miscomputation of (mod 0 -53) in compiled code
972    (deftest misc.77
973      (funcall (compile nil '(lambda () (mod 0 -53))))
974      0)
975    
976    
977    ;;; cmucl (2003-10-12)  "NIL is not of type C::BYTE-LAMBDA-INFO"
978    (deftest misc.78
979      (funcall
980       (compile nil '(lambda ()
981                       (declare (optimize (speed 0) (debug 0)))
982                       (let ((v4
983                              (case 227
984                                ((-11113 -106126) (unwind-protect 8473))
985                                (t 43916))))
986                         -12))))
987      -12)
988    
989    ;;; Same as misc.78, but with no declarations
990    ;;; In cmucl (2003-10-12)  "NIL is not of type C::ENVIRONMENT"
991    (deftest misc.79
992      (funcall
993       (compile nil '(lambda ()
994                       (let ((v4
995                              (case 227
996                                ((-11113 -106126) (unwind-protect 8473))
997                                (t 43916))))
998                         -12))))
999      -12)
1000    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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