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

[Sean Ross]

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

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

Index: cl-store/cmucl/custom.lisp
diff -u cl-store/cmucl/custom.lisp:1.4 cl-store/cmucl/custom.lisp:1.5
--- cl-store/cmucl/custom.lisp:1.4	Fri Nov 26 15:35:51 2004
+++ cl-store/cmucl/custom.lisp	Thu Dec  2 11:31:59 2004
@@ -95,9 +95,9 @@
           (kernel::define-class-methods dd)))
 
 (defun create-make-foo (dd)
-  (dolist (x (cmu-struct-defs dd))
-    (eval x))
-  (find-class (dd-name dd)))
+  (let ((*compile-print* nil))
+    (funcall (compile nil `(lambda () ,@(cmu-struct-defs dd))))
+    (find-class (dd-name dd))))
 
 (defun cmu-define-structure (dd supers)
   (cond ((or *nuke-existing-classes*