[Openmcl-cvs-notifications] r10291 - /trunk/source/compiler/nx1.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug  4 01:22:21 2008
New Revision: 10291

Log:
Don't inline STRUCT-TYPEP.  (Might slow some things down until this
is reenabled.)

Modified:
    trunk/source/compiler/nx1.lisp

Modified: trunk/source/compiler/nx1.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/compiler/nx1.lisp (original)
+++ trunk/source/compiler/nx1.lisp Mon Aug  4 01:22:21 2008
@@ -63,11 +63,14 @@
      (nx1-form newval))))
 =

 (defnx1 nx1-istruct-typep ((istruct-typep)) (&whole whole thing type &envi=
ronment env)
+   #-bootstrap-istruct (declare (ignore thing type))
+   #-bootstrap-istruct (nx1-treat-as-call whole)
+   #+bootstrap-istruct
   (if (and (quoted-form-p type) (symbolp (cadr type)))
     (make-acode (%nx1-operator istruct-typep)
                 (nx1-immediate :eq)
                 (nx1-form thing)
-                (nx1-form type))
+                (nx1-form `(register-istruct-cell type)))
     (nx1-treat-as-call whole)))
 =

 (defnx1 nx1-make-list make-list (&whole whole size &rest keys &environment=
 env)