[cl-store-cvs] CVS update: cl-store/sbcl/custom.lisp - cl-store-cvs@common-lisp.net - mailman3.common-lisp.net

2 Dec 2004

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*

    