Changeset 6185

Timestamp:

Apr 7, 2007, 8:06:14 PM (18 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/level-1/l1-aprims.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-aprims.lisp

@@ -1017 +1017 @@
 
 
-(defglobal %pascal-functions%
+(defstatic %pascal-functions%
     #(NIL NIL NIL NIL NIL NIL NIL NIL
       NIL NIL NIL NIL NIL NIL NIL NIL
@@ -1122 +1122 @@
       (#_bzero p size))
     p))
+
+(defun %gcable-ptr-p (p)
+  (and (typep p 'macptr)
+       (= (uvsize p) target::xmacptr.element-count)))
+
 
 ;True for a-z.