From 3b382f1c56e84db128ca8765dce8f50cacca9fd2 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 13 Apr 1990 20:22:50 +0000 Subject: [PATCH] Added bootstrap version of ctype-p. The real definition gets installed by a top level form. Top level forms need the type system. The type system needs ctype-p to initialize. So we fake it. --- code/type-boot.lisp | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/code/type-boot.lisp b/code/type-boot.lisp index 622cf8a96..e9d8f765c 100644 --- a/code/type-boot.lisp +++ b/code/type-boot.lisp @@ -41,3 +41,12 @@ (deftype boolean () '(member t nil)) + +;;; Define this so that we can define the type system. +(in-package "KERNEL") +(defun ctype-p (thing) + (and (structurep thing) + (member (%primitive 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)))) -- GitLab