[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-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)))