[Gcl-devel] segfault fixed

[Peter Wood]

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