From: Nikodemus S. <de...@us...> - 2005-02-16 06:02:13
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21974/src/code Modified Files: class.lisp Log Message: 0.8.19.28: fix loading of multiply forward-refrenced layouts Bug orginally reported and fix provided by Cheuksan Wang, basis for test-case provided by Jason Dagit. Index: class.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/class.lisp,v retrieving revision 1.56 retrieving revision 1.57 diff -u -d -r1.56 -r1.57 --- class.lisp 2 Nov 2004 08:37:52 -0000 1.56 +++ class.lisp 16 Feb 2005 06:02:05 -0000 1.57 @@ -431,7 +431,7 @@ (let ((layout (find-layout name))) (init-or-check-layout layout (or (find-classoid name nil) - (make-undefined-classoid name)) + (layout-classoid layout)) length inherits depthoid))) |