Index: /trunk/ccl/level-1/l1-aprims.lisp
===================================================================
--- /trunk/ccl/level-1/l1-aprims.lisp	(revision 6184)
+++ /trunk/ccl/level-1/l1-aprims.lisp	(revision 6185)
@@ -1017,5 +1017,5 @@
 
 
-(defglobal %pascal-functions%
+(defstatic %pascal-functions%
     #(NIL NIL NIL NIL NIL NIL NIL NIL
       NIL NIL NIL NIL NIL NIL NIL NIL
@@ -1122,4 +1122,9 @@
       (#_bzero p size))
     p))
+
+(defun %gcable-ptr-p (p)
+  (and (typep p 'macptr)
+       (= (uvsize p) target::xmacptr.element-count)))
+
 
 ;True for a-z.