Update of /project/cl-store/cvsroot/cl-store/sbcl In directory common-lisp.net:/tmp/cvs-serv11637/sbcl Modified Files: custom.lisp Log Message: ChangeLog 2005-05-05 Date: Thu May 5 14:58:57 2005 Author: sross Index: cl-store/sbcl/custom.lisp diff -u cl-store/sbcl/custom.lisp:1.7 cl-store/sbcl/custom.lisp:1.8 --- cl-store/sbcl/custom.lisp:1.7 Thu Feb 17 09:23:54 2005 +++ cl-store/sbcl/custom.lisp Thu May 5 14:58:57 2005 @@ -96,6 +96,7 @@ (sb-kernel::class-method-definitions info))) (defun create-make-foo (dd) + (declare (optimize speed)) (funcall (compile nil `(lambda () ,@(sbcl-struct-defs dd)))) (find-class (dd-name dd)))