[Gcl-devel] Re: Fwd: fatal gcl crashes

[Camm Maguire]

Greetings, and thanks for the report!  Always nice to have new tests
to run.

BTW, the situation appears to have improved somewhat in the latest
2.7.0 cvs.  I've included the different results where appropriate
below: 

Bruno Haible <address@hidden> writes:

> Hi,
> 
> Could you please forward this to gcl-devel for me? gcl-devel is now
> subscriber-only, I read. Thanks!
> 
> Bruno
> 
> 
> ----------  Forwarded Message  ----------
> 
> Subject: fatal gcl crashes
> Date: Monday 21 February 2005 13:36
> From: Bruno Haible <address@hidden>
> To: address@hidden
> 
> Hi,
> 
> The following errors of gcl-2.6.6 (on Linux/x86) prevent GCL from
> executing the clisp testsuite.
> 
> ================================ 1 ===============================
> 
> (prin1-to-string (expt 10.0s0 1000))
> 
> Error in EVAL [or a callee]: Can't print a non-number.
> 

(Still the same, but what are we supposed to do here?)

> ================================ 2 ===============================
> 
> (multiple-value-bind (res condition)
>     (ignore-errors
>       (let ((vmfad (MAKE-ARRAY 5 :FILL-POINTER 0 :ELEMENT-TYPE 'DOUBLE-FLOAT
> 
>                                  :ADJUSTABLE T)))
> 
>         (elt vmfad 5)))
>   (princ-to-string condition))
> 
> Error in TYPE-ERROR-EXPECTED-TYPE [or a callee]: The slot
>  CONDITIONS::EXPECTED-TYPE is unbound in the object
>  #<CONDITIONS::INTERNAL-TYPE-ERROR.0>.
> 

Now we get

Error in ELT [or a callee]: 5 is not of type (INTEGER 0 . 0).

Isn't this right?

> ================================ 3 ===============================
> 
> (read-from-string "``(,@,@(mapcar #'(lambda (z) `(list ',z)) x))")
> 
> Error in READ-FROM-STRING [or a callee]: ,@ or ,. has appeared in an illegal
>  position.
> 

Same, will investigate.

> ================================ 4 ===============================
> 
> (DEFINE-METHOD-COMBINATION MC20 NIL (A))
> 
> Error in FUNCALL [or a callee]: Caught fatal error [memory may be damaged]
> 

(Same, will investigate)

> ================================ 5 ===============================
> 
> (LET ((FILE "tmp.lisp"))
>   (WITH-OPEN-FILE (OUT FILE :DIRECTION :OUTPUT)
>     (WRITE-STRING "(defun ltv1 () (eq #1=(load-time-value (cons nil nil))
>  #1#))" OUT))
>   (UNWIND-PROTECT
>     (PROGN (COMPILE-FILE FILE) (LOAD (COMPILE-FILE-PATHNAME FILE)))
>     (DELETE-FILE FILE)
>     (DELETE-FILE (COMPILE-FILE-PATHNAME FILE)))
>   (LTV1))
> 
> Error in LTV1 [or a callee]:
> Error in TYPE-ERROR-DATUM [or a callee]: The slot CONDITIONS::DATUM is
>  unbound in the object #<CONDITIONS::INTERNAL-TYPE-ERROR.0>.
> 

compiles and loads without error now.

> ================================ 6 ===============================
> 
> (defstruct schiff masse nil zot)
> (setf s1 (make-schiff :nil 123))
> 
> Error in MAKE-SCHIFF [or a callee]: MAKE-SCHIFF does not allow the keyword T.
> 

Proceeds without error now.

> ================================ 7 ===============================
> 
> (loop 42)
> 
> goes into an endless loop.
> 

same, will investigate.

> ==================================================================
> 
> Bruno
> 
> 
> 
> 

Thanks again,

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