/[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.206 by pfdietz, Mon Feb 21 13:48:42 2005 UTC revision 1.207 by pfdietz, Wed Feb 23 01:29:27 2005 UTC
# Line 9885  Broken at C::WT-MAKE-CLOSURE. Line 9885  Broken at C::WT-MAKE-CLOSURE.
9885      (eqlt (aref r) (+ -319284 c)))      (eqlt (aref r) (+ -319284 c)))
9886    t)    t)
9887    
9888    ;;; sbcl 0.8.19.35
9889    ;;; Incorrect return value from conditional
9890    
9891    (deftest misc.534
9892      (let ((r0 (make-array nil)))
9893        (funcall
9894         (compile
9895          nil
9896          '(lambda (r p1 p2 p3)
9897             (declare (optimize speed (safety 1))
9898                      (type (eql 4134713351/6105637898) p2)
9899                      (type (eql 2685) p3))
9900             (setf (aref r)
9901                   (if p1
9902                       (the (eql 4134713351/6105637898) p2)
9903                     (the (integer * 8391301) p3)))))
9904         r0 t 4134713351/6105637898 2685)
9905        (aref r0))
9906      4134713351/6105637898)
9907    

Legend:
Removed from v.1.206  
changed lines
  Added in v.1.207

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