/[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.149 by pfdietz, Mon Oct 11 03:17:33 2004 UTC revision 1.150 by pfdietz, Wed Oct 13 11:33:01 2004 UTC
# Line 8172  Broken at C::WT-MAKE-CLOSURE. Line 8172  Broken at C::WT-MAKE-CLOSURE.
8172         (dotimes (iv3 1 0) (logxor iv3 1285775)))))         (dotimes (iv3 1 0) (logxor iv3 1285775)))))
8173    0)    0)
8174    
8175    ;;; sbcl 0.8.15.13
8176    ;;; NIL is not of type REAL
8177    ;;; (This appears to be related to DYNAMIC-EXTENT)
8178    
8179    (deftest misc.427
8180      (funcall
8181       (compile
8182        nil
8183        '(lambda (a)
8184           (declare (notinline list reduce logior))
8185           (declare (optimize (safety 2) (compilation-speed 1)
8186                              ; #+sbcl (sb-c:insert-step-conditions 0)
8187                              (speed 3) (space 2) (debug 2)))
8188           (logior
8189            (let* ((v5 (reduce #'+ (list 0 a))))
8190              (declare (dynamic-extent v5))
8191              v5))))
8192       17)
8193      17)

Legend:
Removed from v.1.149  
changed lines
  Added in v.1.150

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