[cl-store-cvs] CVS update: cl-store/sbcl/custom.lisp

[Sean Ross]

Update of /project/cl-store/cvsroot/cl-store/sbcl
In directory common-lisp.net:/tmp/cvs-serv31538/sbcl

Modified Files:
	custom.lisp 
Log Message:
Changelog 2004-12-02
Date: Thu Dec  2 11:32:15 2004
Author: sross

Index: cl-store/sbcl/custom.lisp
diff -u cl-store/sbcl/custom.lisp:1.4 cl-store/sbcl/custom.lisp:1.5
--- cl-store/sbcl/custom.lisp:1.4	Wed Nov 24 14:27:22 2004
+++ cl-store/sbcl/custom.lisp	Thu Dec  2 11:32:04 2004
@@ -91,16 +91,13 @@
   (store-object (sdef-info obj) stream))
 
 ;; Restoring 
-
 (defun sbcl-struct-defs (info)
   (append (sb-kernel::constructor-definitions info)
           (sb-kernel::class-method-definitions info)))
 
 (defun create-make-foo (dd)
-  (dolist (x (sbcl-struct-defs dd))
-    (eval x))
+  (funcall (compile nil `(lambda () ,@(sbcl-struct-defs dd))))
   (find-class (dd-name dd)))
-
 
 (defun sbcl-define-structure (dd supers)
   (cond ((or *nuke-existing-classes*