From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Wed, 16 Jun 2004 22:39:31 +0000 (+0000)
Subject: 0.8.11.16:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=17692d85c6b820a0d86ab284cb21cdae51afbe57;p=sbcl.git

0.8.11.16:
	Oops.  Restore build-from-scratch-ability.
	... only style-warn on the target, to spare our blushes and also
		because STYLE-WARN doesn't work that early.
	... (possibly not the optimal fix, but it was certainly the fix
		that required least thought)
---

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))
diff --git a/version.lisp-expr b/version.lisp-expr
index f2d33a9..33dffdd 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.11.15"
+"0.8.11.16"