/[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.211 by pfdietz, Sat Feb 26 17:17:28 2005 UTC revision 1.212 by pfdietz, Sun Feb 27 01:26:40 2005 UTC
# Line 9971  Broken at C::WT-MAKE-CLOSURE. Line 9971  Broken at C::WT-MAKE-CLOSURE.
9971  ;;; Error: `#c(0 -8)' is not of the expected type `REAL'  ;;; Error: `#c(0 -8)' is not of the expected type `REAL'
9972    
9973  (deftest misc.539  (deftest misc.539
9974    (=t    (notnot-mv
9975     (funcall     (complexp
9976      (compile nil '(lambda (x)      (funcall
9977                      (declare (OPTIMIZE SPEED (SAFETY 1))       (compile nil '(lambda (x)
9978                               (type (eql #c(0 -8)) x))                       (declare (OPTIMIZE SPEED (SAFETY 1))
9979                      (sqrt x)))                                (type (eql #c(0 -8)) x))
9980      #c(0 -8))                       (sqrt x)))
9981     #c(2 -2))       #c(0 -8))))
9982    t)    t)
9983    
9984  ;;; Illegal instruction  ;;; Illegal instruction

Legend:
Removed from v.1.211  
changed lines
  Added in v.1.212

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