X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-sap.lisp;h=0db3c163332bd0d6ae9a6847152f2748f3281aaf;hb=cd176690400f8b6fa23faa4dc6fa8494bcbce480;hp=cc48ea08bf154cb36af3cd33c1ecdca7724b1fb9;hpb=e02c32bd4d07a7d30c9a9d78be54f1f9f84f9877;p=sbcl.git

diff --git a/src/code/cross-sap.lisp b/src/code/cross-sap.lisp
index cc48ea0..0db3c16 100644
--- a/src/code/cross-sap.lisp
+++ b/src/code/cross-sap.lisp
@@ -15,7 +15,8 @@
 ;;; 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:
-(defstruct (system-area-pointer (:constructor make-sap) (:conc-name "SAP-"))
+(defstruct (system-area-pointer (:constructor make-sap)
+				(:conc-name "SAP-"))
   ;; the integer representation of the address
   (int (error "missing SAP-INT argument") :type sap-int-type :read-only t))