#+sbcl `(sb-alien:null-alien ,obj)
#+mcl `(ccl:%null-ptr-p ,obj)
)
(defmacro make-null-pointer (type)
#+(or allegro mcl) (declare (ignore type))
#+sbcl `(sb-alien:null-alien ,obj)
#+mcl `(ccl:%null-ptr-p ,obj)
)
(defmacro make-null-pointer (type)
#+(or allegro mcl) (declare (ignore type))