/[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.158 by pfdietz, Fri Nov 12 01:08:36 2004 UTC revision 1.159 by pfdietz, Fri Nov 26 13:35:33 2004 UTC
# Line 8568  Broken at C::WT-MAKE-CLOSURE. Line 8568  Broken at C::WT-MAKE-CLOSURE.
8568                          (unwind-protect (throw 'ct7 b) 0)))))                          (unwind-protect (throw 'ct7 b) 0)))))
8569     -1748290 -244489705763 38969920 -90 341977)     -1748290 -244489705763 38969920 -90 341977)
8570    -244489705763)    -244489705763)
8571    
8572    ;;; misc.444
8573    ;;; misc.445
8574    
8575    ;;; gcl 25 Nov 2004
8576    ;;; Incorrect return value
8577    (deftest misc.446
8578      (funcall
8579       (compile
8580        nil
8581        '(lambda (a b c d)
8582           (declare (type (integer -1254 1868060) a))
8583           (declare (type (integer -1 0) b))
8584           (declare (type (integer -424707253248 -82453721088) c))
8585           (declare (type (integer -252962 3018671) d))
8586           (declare (ignorable a b c d))
8587           (declare (optimize (safety 3) (space 3) (speed 3)
8588                              (compilation-speed 3) (debug 3)))
8589           (* (labels ((%f8 (&optional (f8-1 0)) (setq b 0)))
8590                (if (> d 1668249724 (%f8)) 0 (complex a 0)))
8591              (if (oddp b) 0 c))))
8592       796131 -1 -338008808923 530637)
8593      -269099291056676913)
8594    
8595    (deftest misc.447
8596      (funcall
8597       (compile
8598        nil
8599        '(lambda (a)
8600           (declare (type (integer 38632397 46632460288) a))
8601           (declare (optimize (space 0) (safety 0) (debug 1)
8602                              (compilation-speed 1) (speed 0)))
8603           (catch 'ct2 (if (= a 0 (throw 'ct2 0)) 1 2289596))))
8604       18160383912)
8605      0)
8606    
8607    (deftest misc.448
8608      (funcall
8609       (compile
8610        nil
8611        '(lambda (a b)
8612           (declare (type (integer -3716 1269) a))
8613           (declare (type (integer -1976579 2312) b))
8614           (declare (optimize (compilation-speed 1) (safety 0)
8615                              (speed 0) (space 0) (debug 3)))
8616           (if (<= 0 b (setq a 117)) 0 a)))
8617       -1147 -44004)
8618      117)
8619    
8620    

Legend:
Removed from v.1.158  
changed lines
  Added in v.1.159

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