/[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.188 by pfdietz, Sun Dec 26 21:49:28 2004 UTC revision 1.189 by pfdietz, Mon Dec 27 13:13:34 2004 UTC
# Line 9312  Broken at C::WT-MAKE-CLOSURE. Line 9312  Broken at C::WT-MAKE-CLOSURE.
9312                     (+ a (setq a 35035201))))                     (+ a (setq a 35035201))))
9313     29207264)     29207264)
9314    64242465)    64242465)
9315    
9316    ;;; ABCL 27 Dec 2004
9317    ;;; Different results
9318    
9319    (deftest misc.503
9320      (funcall
9321       (compile nil '(lambda (a)
9322                       ; (declare (type (integer -3392166213 2904445263) a))
9323                       (declare (optimize (space 3) (debug 1) (speed 2) (safety 0)
9324                                          (compilation-speed 1)))
9325                       (catch 'ct1
9326                         (throw 'ct1
9327                                (catch 'ct5
9328                                  (reduce 'min
9329                                          (vector 0 0 0 a a 0 0 (values 0 0) (throw 'ct5 -6))
9330                                          :end 8 :start 6 :from-end t))))))
9331       17)
9332      -6)

Legend:
Removed from v.1.188  
changed lines
  Added in v.1.189

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