;;; SYSTEM-AREA-POINTER is not a primitive type in ANSI Common Lisp,
;;; so we need a compound type to represent it in the host Common Lisp
;;; at cross-compile time:
;;; SYSTEM-AREA-POINTER is not a primitive type in ANSI Common Lisp,
;;; so we need a compound type to represent it in the host Common Lisp
;;; at cross-compile time:
;; the integer representation of the address
(int (error "missing SAP-INT argument") :type sap-int-type :read-only t))
;; the integer representation of the address
(int (error "missing SAP-INT argument") :type sap-int-type :read-only t))