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