[Openmcl-cvs-notifications] r10300 - /trunk/source/lib/nfcomp.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug  4 04:22:02 2008
New Revision: 10300

Log:
Enable ISTRUCT-CELL-P.

Modified:
    trunk/source/lib/nfcomp.lisp

Modified: trunk/source/lib/nfcomp.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/lib/nfcomp.lisp (original)
+++ trunk/source/lib/nfcomp.lisp Mon Aug  4 04:22:02 2008
@@ -1088,12 +1088,10 @@
 =

 ;;; We currently represent istruct-cells as conses.  That's not
 ;;; incredibly efficient (among other things, we have to do this
-;;; check when scanning/dumping any list, but it's probably not
+;;; check when scanning/dumping any list), but it's probably not
 ;;; worth burning a tag on them.  There are currently about 50
 ;;; entries on the *istruct-cells* list.
 (defun istruct-cell-p (x)
-  #-bootstrap-istruct (declare (ignore x))
-  #+bootstrap-istruct
   (and (consp x)
        (typep (%car x) 'symbol)
        (atom (%cdr x))