/[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.161 by pfdietz, Sun Nov 28 04:08:17 2004 UTC revision 1.162 by pfdietz, Sun Nov 28 21:21:05 2004 UTC
# Line 8630  Broken at C::WT-MAKE-CLOSURE. Line 8630  Broken at C::WT-MAKE-CLOSURE.
8630     (compile nil '(lambda (a b) (min 0 (reduce #'min (vector a b 0)) 0)))     (compile nil '(lambda (a b) (min 0 (reduce #'min (vector a b 0)) 0)))
8631     -10 -1)     -10 -1)
8632    -10)    -10)
8633    
8634    ;;; gcl 28 Nov 2004
8635    ;;; Incorrect return value
8636    
8637    (deftest misc.451
8638      (funcall (compile nil '(lambda (a b) (flet ((%f3 () (setq a -2210)))
8639                                             (logxor a b (%f3)))))
8640               -22650 20595)
8641      171)

Legend:
Removed from v.1.161  
changed lines
  Added in v.1.162

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