Changeset 7578


Ignore:
Timestamp:
Oct 31, 2007, 7:06:24 PM (12 years ago)
Author:
rme
Message:

Add dead-macptr-p.

File:
1 edited

Legend:

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

    r5671 r7578  
    217217(defun macptrp (x)
    218218  (= (the fixnum (typecode x)) target::subtag-macptr))
     219
     220(defun dead-macptr-p (x)
     221  (= (the fixnum (typecode x)) target::subtag-dead-macptr))
    219222
    220223
Note: See TracChangeset for help on using the changeset viewer.