Changeset 6076


Ignore:
Timestamp:
Mar 21, 2007, 10:28:11 AM (13 years ago)
Author:
gb
Message:

%GCABLE-PTR-P.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/level-1/l1-aprims.lisp

    r6026 r6076  
    11231123    p))
    11241124
     1125(defun %gcable-ptr-p (p)
     1126  (and (typep p 'macptr)
     1127       (= (uvsize p) target::xmacptr.element-count)))
     1128
     1129
    11251130;True for a-z.
    11261131(defun lower-case-p (c)
Note: See TracChangeset for help on using the changeset viewer.