Changeset 10291


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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r10176 r10291  
    6464
    6565(defnx1 nx1-istruct-typep ((istruct-typep)) (&whole whole thing type &environment env)
     66   #-bootstrap-istruct (declare (ignore thing type))
     67   #-bootstrap-istruct (nx1-treat-as-call whole)
     68   #+bootstrap-istruct
    6669  (if (and (quoted-form-p type) (symbolp (cadr type)))
    6770    (make-acode (%nx1-operator istruct-typep)
    6871                (nx1-immediate :eq)
    6972                (nx1-form thing)
    70                 (nx1-form type))
     73                (nx1-form `(register-istruct-cell type)))
    7174    (nx1-treat-as-call whole)))
    7275
Note: See TracChangeset for help on using the changeset viewer.