/[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.151 by pfdietz, Wed Oct 13 12:00:57 2004 UTC revision 1.152 by pfdietz, Fri Oct 22 12:21:14 2004 UTC
# Line 8188  Broken at C::WT-MAKE-CLOSURE. Line 8188  Broken at C::WT-MAKE-CLOSURE.
8188         (logior         (logior
8189          (let* ((v5 (reduce #'+ (list 0 a))))          (let* ((v5 (reduce #'+ (list 0 a))))
8190            (declare (dynamic-extent v5))            (declare (dynamic-extent v5))
8191            v5))))            (1- v5)))))
8192     17)     17)
8193    17)    16)
8194    
8195  (deftest misc.428  (deftest misc.428
8196    (funcall    (funcall
# Line 8217  Broken at C::WT-MAKE-CLOSURE. Line 8217  Broken at C::WT-MAKE-CLOSURE.
8217           (logandc1 v8 28)))))           (logandc1 v8 28)))))
8218    28)    28)
8219    
8220    ;;; poplog 15.53
8221    ;;; Excess type specifier(s) in THE special form
8222    
8223    (deftest misc.430
8224      (unwind-protect 0 (the integer 1))
8225      0)
8226    
8227    ;;; Wrong return values: T, 0
8228    (deftest misc.431
8229      (funcall
8230       (compile
8231        nil
8232        '(lambda (a) (declare (notinline > *))
8233           (declare (optimize (compilation-speed 0) (safety 2) (speed 2) (debug 0) (space 3)))
8234           (catch 'ct1 (* a (throw 'ct1 (if (> 0) a 0))))))
8235       5445205692802)
8236      5445205692802)
8237    
8238    ;;; Ste: stack empty (missing argument? missing result?)
8239    (deftest misc.432
8240      (loop for x below 2 count (not (not (typep x t))))
8241      2)
8242    
8243    (deftest misc.433
8244      (let ((a 1)) (if (not (/= a 0)) a 0))
8245      0)
8246    

Legend:
Removed from v.1.151  
changed lines
  Added in v.1.152

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