/[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.43 by pfdietz, Thu Nov 13 13:38:07 2003 UTC revision 1.44 by pfdietz, Thu Nov 13 13:55:04 2003 UTC
# Line 2156  Line 2156 
2156      nil      nil
2157      '(lambda (a)      '(lambda (a)
2158       (labels ((%f6 (f6-1 f6-2)       (labels ((%f6 (f6-1 f6-2)
2159                     (handler-case                     (cl:handler-case
2160                      (labels ((%f2 nil (logior a)))                      (labels ((%f2 nil (logior a)))
2161                        (if (eql (%f2) (%f2))                        (if (eql (%f2) (%f2))
2162                            2829254 -10723))                            2829254 -10723))

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

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