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

[Camm Maguire]

Greetings!  I believe this is fixed now in cvs head.  Working on a t5
cleanup tag.

Take care,

"Paul F. Dietz" <address@hidden> writes:

> 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)
> 
> 
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/gcl-devel
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah