Skip to content
Snippets Groups Projects
Commit 3b382f1c authored by wlott's avatar wlott
Browse files

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.
parent 7080b1e9
No related branches found
No related tags found
No related merge requests found
......@@ -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))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment