diff --git a/code/profile.lisp b/code/profile.lisp index 7c3d2a72deac7fac0dff0767620bc844a5defc9d..025c3e21635bd0da55d709bd21a4f0b1f7ba38b1 100644 --- a/code/profile.lisp +++ b/code/profile.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.5 1992/02/18 19:49:32 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.6 1992/02/25 14:17:02 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -474,12 +474,13 @@ ;;; COMPUTE-TIME-OVERHEAD-AUX -- Internal ;;; -;;; Dummy function we profile to find profiling overhead. +;;; Dummy function we profile to find profiling overhead. Declare +;;; debug-info to make sure we have arglist info. ;;; (proclaim '(notinline compute-time-overhead-aux)) -(locally (declare (optimize (debug-info 2))) ; Make sure we have arglist info... - (defun compute-time-overhead-aux (x) - (declare (ignore x)))) +(defun compute-time-overhead-aux (x) + (declare (ext:optimize-interface (debug-info 2))) + (declare (ignore x))) ;;; COMPUTE-TIME-OVERHEAD -- Internal