/[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.201 by pfdietz, Wed Jan 26 03:21:56 2005 UTC revision 1.202 by pfdietz, Fri Jan 28 03:05:33 2005 UTC
# Line 9676  Broken at C::WT-MAKE-CLOSURE. Line 9676  Broken at C::WT-MAKE-CLOSURE.
9676           a)))           a)))
9677     99)     99)
9678    332)    332)
9679    
9680    ;;; Seg fault
9681    
9682    (deftest misc.524
9683      (funcall
9684       (compile
9685        nil
9686        '(lambda (a b)
9687           (declare (type (integer -2432551 871) a))
9688           (declare (type (integer -6390 -1) b))
9689           (declare (ignorable b))
9690           (declare (optimize (compilation-speed 0) (safety 0) (space 2) (speed 0) (debug 3)))
9691           (flet ((%f18 (f18-1 f18-2 f18-3 &optional &key (key1 0) &allow-other-keys)
9692                        (labels ((%f12
9693                                  (f12-1
9694                                   &optional (f12-2 0)
9695                                   &key (key1 (catch 'ct7 (conjugate key1))) (key2 0)
9696                                   &allow-other-keys)
9697                                  0))
9698                          (%f12 a))))
9699             (%f18 a 0 0))))
9700       -925293 -1603)
9701      0)
9702    
9703    ;;; Internal error: tried to advance stack.
9704    
9705    (deftest misc.525
9706      (funcall
9707       (compile
9708        nil
9709        '(lambda (a)
9710           (declare (type (integer -17179869184 -2147483648) a))
9711           (declare (ignorable a))
9712           (declare
9713            (optimize (space 2) (debug 3) (speed 3) (compilation-speed 3) (safety 1)))
9714           (catch 'ct4
9715             (max (conjugate (unwind-protect 0 (catch 'ct4 (values 0))))
9716                  (throw 'ct4 0)))))
9717       -17179869184)
9718      0)
9719    
9720    ;;; integer does not specify a sequence type
9721    
9722    (deftest misc.526
9723      (funcall
9724       (compile
9725        nil
9726        '(lambda (a)
9727           (declare (type (integer -4 3025867) a))
9728           (declare (ignorable a))
9729           (declare
9730            (optimize (space 1) (safety 0) (debug 0) (speed 3) (compilation-speed 0)))
9731           (flet ((%f14 (f14-1 f14-2 f14-3 &key)
9732                        (let ((v4
9733                               (return-from %f14
9734                                 (flet ((%f11
9735                                         (&optional (f11-1 0) (f11-2 0)
9736                                                    (f11-3
9737                                                     (coerce
9738                                                      (reduce (function (lambda (lmv2 lmv5) a))
9739                                                              (vector f14-1 f14-1 0 f14-3 a f14-3 a f14-1
9740                                                                      0 f14-2))
9741                                                      (quote integer)))
9742                                                    &key (key1 f14-3) (key2 a))
9743                                         (flet ((%f8
9744                                                 (f8-1
9745                                                  &optional
9746                                                  (f8-2
9747                                                   (flet ((%f16
9748                                                           (f16-1 f16-2 f16-3
9749                                                                  &optional
9750                                                                  &key (key1 0)
9751                                                                  (key2 f11-3))
9752                                                           key1))
9753                                                     0))
9754                                                  &key (key1 0))
9755                                                 f14-3))
9756                                           0)))
9757                                   (if (%f11 f14-1 (%f11 0 f14-3) f14-1) 0 0)))))
9758                          0)))
9759             (%f14 0 a a))))
9760       857304)
9761      0)

Legend:
Removed from v.1.201  
changed lines
  Added in v.1.202

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