1.0.18.16: many STYLE-WARNING changes.

[sbcl.git] / src / compiler / parse-lambda-list.lisp

diff --git a/src/compiler/parse-lambda-list.lisp b/src/compiler/parse-lambda-list.lisp
index 7f60223..5a3eb24 100644 (file)
--- a/src/compiler/parse-lambda-list.lisp
+++ b/src/compiler/parse-lambda-list.lisp
@@ -126,6 +126,7 @@
                 (let ((name (symbol-name arg)))
                   (when (and (plusp (length name))
                              (char= (char name 0) #\&))
+                    ;; Should this be COMPILER-STYLE-WARN?
                     (style-warn
                      "suspicious variable in lambda list: ~S." arg))))
               (case state