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