(defmethod decompose-describe-object ((object #+cmu alien:system-area-pointer
#+sbcl sb-alien:system-area-pointer))
(values "The object is a SYSTEM-AREA-POINTER" nil nil))
(defmethod decompose-describe-object ((object #+cmu alien:system-area-pointer
#+sbcl sb-alien:system-area-pointer))
(values "The object is a SYSTEM-AREA-POINTER" nil nil))