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