diff --git a/code/profile.lisp b/code/profile.lisp index 7c2dc88ef85d111aa8a29d709781f402dac1f04e..78c8499c466efdb30de935caaa83ef0c514375e0 100644 --- a/code/profile.lisp +++ b/code/profile.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/code/profile.lisp,v 1.30 2003/02/05 22:58:15 cracauer Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.31 2003/02/09 17:25:20 emarsden Exp $") ;;; ;;; ********************************************************************** ;;; @@ -684,7 +684,7 @@ this, the functions are listed. If NIL, then always list the functions.") (symbol-name n) (multiple-value-bind (valid block-name) (ext:valid-function-name-p n) - (declared (ignore valid)) + (declare (ignore valid)) (if block-name block-name (princ-to-string n)))))))))