/[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.38 by pfdietz, Fri Nov 7 11:06:49 2003 UTC revision 1.39 by pfdietz, Fri Nov 7 12:16:51 2003 UTC
# Line 2069  Line 2069 
2069                                      (ash a (min 36 22477)))))))))                                      (ash a (min 36 22477)))))))))
2070     100000 0 0)     100000 0 0)
2071    0)    0)
2072    
2073    ;;; sbcl (0.8.5.24) "The value NIL is not of type SB-C::CTRAN."
2074    
2075    (deftest misc.159
2076      (funcall
2077       (compile nil
2078                '(lambda ()
2079                   (let ((v8 70696))
2080                     (if (equal v8 -536145083)
2081                         (let ((v2 (setq v8 v8)))
2082                           (flet ((%f9 (f9-1 f9-2)
2083                                       309257))
2084                             (multiple-value-call #'%f9 (values v2 v2))))
2085                       100)))))
2086      100)

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

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