Changeset 10300


Ignore:
Timestamp:
Aug 4, 2008, 8:22:02 AM (11 years ago)
Author:
gb
Message:

Enable ISTRUCT-CELL-P.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/nfcomp.lisp

    r10282 r10300  
    10891089;;; We currently represent istruct-cells as conses.  That's not
    10901090;;; incredibly efficient (among other things, we have to do this
    1091 ;;; check when scanning/dumping any list, but it's probably not
     1091;;; check when scanning/dumping any list), but it's probably not
    10921092;;; worth burning a tag on them.  There are currently about 50
    10931093;;; entries on the *istruct-cells* list.
    10941094(defun istruct-cell-p (x)
    1095   #-bootstrap-istruct (declare (ignore x))
    1096   #+bootstrap-istruct
    10971095  (and (consp x)
    10981096       (typep (%car x) 'symbol)
Note: See TracChangeset for help on using the changeset viewer.