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*