From 3a25da181ef1f65f8e0382cce51fb03d2fc6b30c Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 9 Oct 1990 23:41:13 +0000
Subject: [PATCH] Left out some package qualifiers.

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

diff --git a/code/type-boot.lisp b/code/type-boot.lisp
index 09f1bce20..5d8980053 100644
--- a/code/type-boot.lisp
+++ b/code/type-boot.lisp
@@ -42,13 +42,13 @@
 (in-package "KERNEL")
 (defun ctype-p (thing)
   (and (structurep thing)
-       (member (structure-ref thing 0)
+       (member (c::structure-ref thing 0)
 	       '(ctype hairy-type named-type numeric-type array-type
 		       member-type structure-type union-type args-type
 		       values-type function-type))))
 
 (defun values-type-p (thing)
-  (and (structurep thing) (eq (structure-ref thing 0) 'values-type)))
+  (and (structurep thing) (eq (c::structure-ref thing 0) 'values-type)))
 
 ;;; Define this so that we can copy type-class structures before the defstruct
 ;;; for type-class runs.
-- 
GitLab