/[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.178 by pfdietz, Sat Dec 25 15:50:55 2004 UTC revision 1.179 by pfdietz, Sat Dec 25 19:42:39 2004 UTC
# Line 8994  Broken at C::WT-MAKE-CLOSURE. Line 8994  Broken at C::WT-MAKE-CLOSURE.
8994          -6189))          -6189))
8995    33816832)    33816832)
8996    
8997    ;;; Bug in CMUCL Snapshot 2004-10
8998    ;;; Invalid number of arguments: 370632372
8999    
9000    (deftest misc.479
9001      (let ((r (make-array nil :element-type '(unsigned-byte 32)))
9002            (fn (compile nil '(lambda (r p2)
9003                                (declare (optimize speed (safety 1))
9004                                         (type (simple-array (unsigned-byte 32) nil) r)
9005                                         (type integer p2))
9006                                (setf (aref r) (logxor 0 (the (integer 2797513123 2798027357) p2)))
9007                                (values)))))
9008        (funcall fn r 2797674503)
9009        (aref r))
9010      2797674503)
9011    
9012    
9013                        
9014        

Legend:
Removed from v.1.178  
changed lines
  Added in v.1.179

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