diff --git a/code/type-boot.lisp b/code/type-boot.lisp index 09f1bce200c1a9e29348ca7e61bc6d3954ee8e1a..5d898005369542e43d327bb5accd3e77ada3cce3 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.