[Openmcl-cvs-notifications] r10608 - /trunk/source/level-1/l1-utils.lisp

[gz at clozure.com]

Author: gz
Date: Tue Sep  2 15:35:40 2008
New Revision: 10608

Log:
fix for bootstrapping

Modified:
    trunk/source/level-1/l1-utils.lisp

Modified: trunk/source/level-1/l1-utils.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-utils.lisp (original)
+++ trunk/source/level-1/l1-utils.lisp Tue Sep  2 15:35:40 2008
@@ -660,6 +660,11 @@
 vector
 ))
 =

+;; Redefined in sysutils.
+(%fhave 'type-specifier-p
+        (qlfun bootstrapping-type-specifier-p (name)
+          (memq name *cl-types*)))
+
 (defun proclaim (spec)
   (case (car spec)
     (special (apply #'proclaim-special (%cdr spec)))