Changeset 6185


Ignore:
Timestamp:
Apr 8, 2007, 3:06:14 AM (13 years ago)
Author:
gb
Message:

DEFSTATIC is now the preferred name for DEFGLOBAL.
GCABLE-PTR-P.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-aprims.lisp

    r6026 r6185  
    10171017
    10181018
    1019 (defglobal %pascal-functions%
     1019(defstatic %pascal-functions%
    10201020    #(NIL NIL NIL NIL NIL NIL NIL NIL
    10211021      NIL NIL NIL NIL NIL NIL NIL NIL
     
    11221122      (#_bzero p size))
    11231123    p))
     1124
     1125(defun %gcable-ptr-p (p)
     1126  (and (typep p 'macptr)
     1127       (= (uvsize p) target::xmacptr.element-count)))
     1128
    11241129
    11251130;True for a-z.
Note: See TracChangeset for help on using the changeset viewer.