From d90c22afa9fab66549325fc862d1836d32260dc6 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 3 Mar 1992 09:01:24 +0000
Subject: [PATCH] Don't qualify IGNORABLE as being in the EXT package, 'cause
 it's not.

---
 pcl/boot.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index e802a4d9a..0e2ca6aa3 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -1367,7 +1367,7 @@ work during bootstrapping.
 (defmacro with-slots (slots instance &body body)
   (let ((in (gensym)))
     `(let ((,in ,instance))
-       #+cmu (declare (ext:ignorable ,in))
+       #+cmu (declare (ignorable ,in))
        ,@(and (symbolp instance)
 	      `((declare (variable-rebinding ,in ,instance))
        (symbol-macrolet ,(mapcar #'(lambda (slot-entry)
@@ -1387,7 +1387,7 @@ work during bootstrapping.
 (defmacro with-accessors (slots instance &body body)
   (let ((in (gensym)))
     `(let ((,in ,instance))
-       #+cmu (declare (ext:ignorable ,in))
+       #+cmu (declare (ignorable ,in))
        ,@(and (symbolp instance)
 	      `((declare (variable-rebinding ,in ,instance))
        (symbol-macrolet ,(mapcar #'(lambda (slot-entry)
-- 
GitLab