From 0fbb3786b14245ab660822d51a4a79f529d548bb Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 5 Feb 1992 18:34:02 +0000 Subject: [PATCH] Properly qualify kernel::*values-specifier-type-cache-vector* in BOUNDP check in %NOTE-TYPE-DEFINED. We were never clearing the cache. --- compiler/proclaim.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/proclaim.lisp b/compiler/proclaim.lisp index 842e95bfe..6b2e860b9 100644 --- a/compiler/proclaim.lisp +++ b/compiler/proclaim.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.20 1991/12/11 16:43:20 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.21 1992/02/05 18:34:02 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -570,7 +570,7 @@ (defun %note-type-defined (name) (declare (symbol name)) (note-name-defined name :type) - (when (boundp '*values-specifier-type-cache-vector*) + (when (boundp 'kernel::*values-specifier-type-cache-vector*) (values-specifier-type-cache-clear)) (undefined-value)) -- GitLab