Ignore:
Timestamp:
Aug 4, 2008, 11:18:27 AM (11 years ago)
Author:
gb
Message:

Remove training wheels, start bumping fasl version.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-pred.lisp

    r10309 r10321  
    10101010(defun istruct-typep (thing type)
    10111011  (if (= (the fixnum (typecode thing)) target::subtag-istruct)
    1012     (let* ((cell (%svref thing 0)))
    1013       (eq (if (atom cell) cell (car cell))
    1014           (if (atom type) type (car type))))
    1015     #+istruct-bootstrap
    1016     (eq (%svref thing 0) type)))
     1012    (eq (istruct-cell-name (%svref thing 0)) type)))
    10171013
    10181014(defun istruct-type-name (thing)
Note: See TracChangeset for help on using the changeset viewer.