X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fparse-lambda-list.lisp;h=31d7f5c3f62cbbff39c0cf51c3fc5ffb601c09cb;hb=6ab9c60f1c53cc7cc912d644658bc23453a82ac4;hp=8760b4e2ad4750c314dff1b572f1b9b72f1071bf;hpb=a2e72ddcfa3308ed7eb02c7b1bdfe3120d71b423;p=sbcl.git

diff --git a/src/compiler/parse-lambda-list.lisp b/src/compiler/parse-lambda-list.lisp
index 8760b4e..31d7f5c 100644
--- a/src/compiler/parse-lambda-list.lisp
+++ b/src/compiler/parse-lambda-list.lisp
@@ -84,8 +84,9 @@
                (unless (member state
                                '(:required :optional :post-rest :post-more))
                  (compiler-error "misplaced &KEY in lambda list: ~S" list))
+	       #-sb-xc-host
 	       (when (optional)
-		 (style-warn
+		 (compiler-style-warn
 		  "&OPTIONAL and &KEY found in the same lambda list: ~S" list))
                (setq keyp t
                      state :key))