/[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.7 by pfdietz, Wed Oct 8 12:59:03 2003 UTC revision 1.8 by pfdietz, Sat Oct 11 04:47:49 2003 UTC
# Line 886  Line 886 
886                      (* x 390)))                      (* x 390)))
887      10604862)      10604862)
888    4135896180)    4135896180)
889    
890    ;;; cmucl bug (cvs, 10/10/2003)
891    (deftest misc.68
892      (funcall
893       (compile nil
894                '(lambda (b)
895                   (flet ((%f8 () (rem b (identity (return-from %f8 0)))))
896                     (lognor (%f8) 0))))
897       0)
898      -1)
899    
900    (deftest misc.69
901      (funcall
902       (compile nil
903                '(lambda (b)
904                   (flet ((%f11 () (logorc2 (block b1 (let () (return-from b1 b)))
905                                            -1984)))
906                     b)))
907       0)
908      0)
909    
910    (deftest misc.70
911      (funcall
912       (compile nil '(lambda (c)
913                       (declare (type (integer 46156191457 126998564334) c))
914                       (truncate c (min -16 186196583))))
915       87723029763)
916      -5482689360
917      3)
918    
919    (deftest misc.71
920      (funcall
921       (compile nil
922                '(lambda ()
923                   (block b8
924                     (if (identity (return-from b8 30))
925                         1
926                       (identity
927                        (block b5
928                          (labels ((%f10 () (min -52 (return-from b5 10))))
929                            20))))))))
930      30)
931    
932    (deftest misc.72
933      (funcall
934       (compile nil '(lambda ()
935                       (flet ((%f13 () (rem 1 (min 0 (return-from %f13 17)))))
936                         (%f13)))))
937      17)
938    
939    (deftest misc.73
940      (funcall
941       (compile nil '(lambda (c)
942                       (declare (type (integer 46156191457 126998564334) c))
943                       (rem c (min -1 0))))
944       87723029763)
945      0)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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