/[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.35 by pfdietz, Wed Nov 5 01:26:09 2003 UTC revision 1.36 by pfdietz, Wed Nov 5 02:41:33 2003 UTC
# Line 1983  Line 1983 
1983                                       (%f6 -2 -108626545 (%f4))))))))))))                                       (%f6 -2 -108626545 (%f4))))))))))))
1984     -6)     -6)
1985    87246015)    87246015)
1986    
1987    (deftest misc.153
1988      (funcall
1989       (compile nil
1990                '(lambda (a)
1991                   (if (logbitp 3
1992                                (case -2
1993                                  ((-96879 -1035 -57680 -106404 -94516 -125088)
1994                                   (unwind-protect 90309179))
1995                                  ((-20811 -86901 -9368 -98520 -71594)
1996                                   (let ((v9 (unwind-protect 136707)))
1997                                     (block b3
1998                                       (setq v9
1999                                             (let ((v4 (return-from b3 v9)))
2000                                               (- (ignore-errors (return-from b3 v4))))))))
2001                                  (t -50)))
2002                       -20343
2003                     a)))
2004       0)
2005      -20343)
2006    

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

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