From 886bca96b962414c4918f2286b589a0ae8bbf64d Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 12 Aug 1993 18:58:58 +0000 Subject: [PATCH] Add declaration in profile code. --- code/extensions.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/code/extensions.lisp b/code/extensions.lisp index c6df2d3ec..6e9510ea9 100644 --- a/code/extensions.lisp +++ b/code/extensions.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/extensions.lisp,v 1.16 1993/08/12 16:51:33 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extensions.lisp,v 1.17 1993/08/12 18:58:58 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -500,8 +500,11 @@ (incf n))) (when *profile-hash-cache* - (forms `(defvar ,(symbolicate "*" name "-CACHE-PROBES*") 0)) - (forms `(defvar ,(symbolicate "*" name "-CACHE-MISSES*") 0))) + (let ((n-probe (symbolicate "*" name "-CACHE-PROBES*")) + (n-miss (symbolicate "*" name "-CACHE-MISSES*"))) + (forms `(defvar ,n-probe 0)) + (forms `(defvar ,n-miss 0)) + (forms `(declaim (type index ,n-miss ,n-probe))))) (let ((fun-name (symbolicate name "-CACHE-LOOKUP"))) (inlines fun-name) -- GitLab