[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Gcl-devel] segfault fixed
From: |
Peter Wood |
Subject: |
[Gcl-devel] segfault fixed |
Date: |
Fri, 3 Jan 2003 16:41:41 +0100 |
User-agent: |
Mutt/1.4i |
Hi
On Thu, Jan 02, 2003 at 11:52:12PM -0500, Camm Maguire wrote:
> Greetings! I've traced this segfault so far down to the compilation
> of
>
> (defun structure-type-internal-slotds (type)
> (si::s-data-slot-descriptions (get type 'si::s-data))
> )
>
> in pcl/impl/gcl-low.lisp. I hope to have it resolved soon, but am
> running too much interference these days with other work. There is a
> discrepancy between the way the slot-descriptions and the
> slot-position, for example, are handled by the compiler.
>
> More later,
Ok. You gave me enough clues to find it. (and I cheated and
'borrowed' from pcl/impl/kcl/kcl-low.lisp)
Its not #'structure-type-internal-slotds, but
#'structure-type-included-type-name. I changed the definition to
this:
(defun structure-type-included-type-name (type)
(or (car (gethash type *structure-table*))
;;;;the next 3 lines taken from kcl-low.lisp
(let ((includes (si::s-data-includes (get type 'si::s-data))))
(when includes
(si::s-data-name includes)))))
;;;this is the old line
; (si::s-data-included (get type 'si::s-data))))
It looks to me like a cut-and-paste bug from the move from akcl to
GCl.
Whew.
Regards,
Peter