[Gcl-devel] Two more random tester failures in cvs head

[Paul F. Dietz]

I've added two more random tester-found bugs to misc.lsp.

misc.613 is a failure involving throws in lambda forms
in REDUCE.  The enclosing catch form isn't being seen.

misc.614 is a failure related to dynamic-extent.

;;; Error in APPLY [or a callee]: The tag CT1 is undefined.

(deftest misc.613
  (funcall
   (compile
    nil
    '(lambda (a)
      (declare (optimize (space 3) (safety 1) (debug 3)
                (speed 1) (compilation-speed 3)))
      (catch 'ct1
        (reduce #'(lambda (lmv6 lmv5) (throw 'ct1 0))
                (list a 0 0) :end 2))))
   1)
  0)

;;; Error in MULTIPLE-VALUE-BIND [or a callee]: Cannot get relocated section 
contents

(deftest misc.614
  (funcall
   (compile
    nil
    '(lambda (a)
      (declare (type (integer -3873004182 -3717314779) a))
      (declare (ignorable a))
      (declare (optimize (debug 0) (safety 1) (speed 3)
                (space 0) (compilation-speed 0)))
      (let* ((v1 (make-array nil :initial-element
                             (reduce #'logand (list a 0 a)))))
        (declare (dynamic-extent v1))
        0)))
   -3755148485)
  0)