X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-type.lisp;h=47fc196a9a684a7c371c5269e952866a274baecc;hb=69d60b456b07a0256f08df0d02484f361ce5737c;hp=0f34ee926ad17bdfc8e738f90a3dc935e18a9c5f;hpb=0ae8180db142282924d16e1b7d1c54c72ed0d23c;p=sbcl.git

diff --git a/src/code/cross-type.lisp b/src/code/cross-type.lisp
index 0f34ee9..47fc196 100644
--- a/src/code/cross-type.lisp
+++ b/src/code/cross-type.lisp
@@ -23,7 +23,7 @@
   ((call :initarg :call
 	 :reader cross-type-style-warning-call)
    (message :reader cross-type-style-warning-message
-	    #+cmu #+cmu :initarg :message ; (to stop bogus non-STYLE WARNING)
+	    #+cmu :initarg #+cmu :message ; (to stop bogus non-STYLE WARNING)
 	    ))
   (:report (lambda (c s)
 	     (format
@@ -38,7 +38,7 @@
 (define-condition cross-type-giving-up-conservatively
     (cross-type-style-warning)
   ((message :initform "giving up conservatively"
-	    #+cmu #+cmu :reader #.(gensym) ; (to stop bogus non-STYLE WARNING)
+	    #+cmu :reader #+cmu #.(gensym) ; (to stop bogus non-STYLE WARNING)
 	    )))
 
 ;;; This warning refers to the flexibility in the ANSI spec with