diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp index 6104a7dcdd135b256d5c0aacf9b17341bb5ce5f1..65a027a8ed56205f5368655be830834033761d39 100644 --- a/compiler/float-tran.lisp +++ b/compiler/float-tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.55 1997/12/18 19:01:00 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.56 1997/12/19 02:39:29 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1105,8 +1105,7 @@ (specifier-type 'complex))) (defun complex-derive-type-aux-2 (re-type im-type same-arg) - (declare (ignore same-arg) - (optimize (debug 3) (safety 3))) + (declare (ignore same-arg)) (if (and (numeric-type-p re-type) (numeric-type-p im-type)) ;; Need to check to make sure numeric-contagion returns the