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