From e4e065f7e52307f929c9a651b6aaa62c5bc6b5ef Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 18 Feb 1992 19:49:32 +0000 Subject: [PATCH] Use LOCALLY to frob the debug-info level for COMPUTE-TIME-OVERHEAD-AUX, since a declaration at the head of the body doesn't do it. --- code/profile.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/profile.lisp b/code/profile.lisp index 1dc2789bd..7c3d2a72d 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.4 1992/02/02 23:43:02 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.5 1992/02/18 19:49:32 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -477,9 +477,9 @@ ;;; Dummy function we profile to find profiling overhead. ;;; (proclaim '(notinline compute-time-overhead-aux)) -(defun compute-time-overhead-aux (x) - (declare (optimize (debug-info 2))) ; Make sure we have arglist info... - (declare (ignore x))) +(locally (declare (optimize (debug-info 2))) ; Make sure we have arglist info... + (defun compute-time-overhead-aux (x) + (declare (ignore x)))) ;;; COMPUTE-TIME-OVERHEAD -- Internal -- GitLab