Comment 1 for bug 309072

Roman Brenes (roman-brenes) wrote :

These changes seem to fix it for me,

--- src/pcl/init.lisp 2009-06-02 11:33:52.000000000 -0700
+++ ../init.lisp 2009-07-03 05:18:06.000000000 -0700
@@ -1,3 +1,4 @@
+
 ;;;; This file defines the initialization and related protocols.

 ;;;; This software is part of the SBCL system. See the README file for
@@ -25,7 +26,10 @@

 (in-package "SB-PCL")

-(defmethod make-instance ((class symbol) &rest initargs)
+(defmethod make-instance ((class symbol) &rest initargs &key (name nil) &allow-other-keys)
+ (declare (type (or symbol null) name))
+ (unless name
+ (error "The name slot is unspecified."))
   (apply #'make-instance (find-class class) initargs))

 (defmethod make-instance ((class class) &rest initargs)