From b160e18fcda64c9d53b5a3ba4bffffb476345dde Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Sun, 30 Mar 2003 00:43:27 +0000 Subject: [PATCH] * pcl/ctor.lisp (optimizing-generator): Remove optimize declarations, use the ones the user uses. --- pcl/ctor.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/pcl/ctor.lisp b/pcl/ctor.lisp index 47875a65f..a01a55011 100644 --- a/pcl/ctor.lisp +++ b/pcl/ctor.lisp @@ -46,7 +46,7 @@ ;;; is called. (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/ctor.lisp,v 1.2 2003/03/22 16:15:17 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/ctor.lisp,v 1.3 2003/03/30 00:43:27 gerd Exp $") (in-package "PCL") @@ -331,8 +331,6 @@ (fake-initialization-emf ctor ii-methods si-methods) (setf (ctor-state ctor) 'optimized) `(kernel:instance-lambda ,(make-ctor-parameter-list ctor) - (declare (optimize (speed 3))) - (declare (ext:optimize-interface (speed 3))) ,(wrap-in-allocate-forms ctor body before-method-p)))) ;;; -- GitLab