/[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.10 by pfdietz, Sun Oct 12 16:20:59 2003 UTC revision 1.11 by pfdietz, Sun Oct 12 21:44:30 2003 UTC
# Line 998  Line 998 
998                       -12))))                       -12))))
999    -12)    -12)
1000    
1001    ;;; cmucl (2003-10-12) "Invalid number of arguments: 2"
1002    (deftest misc.80
1003      (funcall
1004       (compile nil
1005                '(lambda (b c)
1006                   (declare (notinline > logior imagpart))
1007                   (declare (optimize (speed 0) (debug 0)))
1008                   (labels ((%f16 ()
1009                                  (imagpart
1010                                   (block b3
1011                                     (logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b))
1012                                             (return-from %f16 32186310))))))
1013                     (lognor (%f16) b))))
1014       -123886 -1656)
1015      57385)
1016    
1017    ;;; cmucl (2003-10-12) "NIL is not of type C::REF"
1018    (deftest misc.81
1019      (funcall
1020       (compile nil '(lambda (b)
1021                       (block b7
1022                         (let ((v3 (return-from b7 b)))
1023                           (unwind-protect b)))))
1024       17)
1025      17)
1026    
1027    ;;; cmucl (2003-10-12) "The assertion C::SUCC failed"
1028    (deftest misc.82
1029      (funcall
1030       (compile nil '(lambda (c)
1031                       (labels ((%f15 ()
1032                                      (* (unwind-protect c)
1033                                         (max -5726369
1034                                              (return-from %f15 3099206)))))
1035                         c)))
1036       0)
1037      0)
1038    

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

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