X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fparse-defmacro-errors.lisp;h=b98ec52680f551c71f261e4e94cdd5ea38678372;hb=0e3c4b4db102bd204a30402d7e5a0de44aea57ce;hp=70cf9d8cfec1fdb5a686cceeaf3f0f1183e6ad6f;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/parse-defmacro-errors.lisp b/src/code/parse-defmacro-errors.lisp
index 70cf9d8..b98ec52 100644
--- a/src/code/parse-defmacro-errors.lisp
+++ b/src/code/parse-defmacro-errors.lisp
@@ -79,8 +79,10 @@
               (format stream "between ~W and ~W expected"
                       (arg-count-error-minimum condition)
                       (arg-count-error-maximum condition))))
-       (format stream ", but ~W found"
-               (length (arg-count-error-args condition)))))))
+       (format stream ", but ~a found"
+               (if (null (cdr (last (arg-count-error-args condition))))
+                   (length (arg-count-error-args condition))
+                   "not a proper list"))))))
 
 (define-condition defmacro-lambda-list-broken-key-list-error
                   (defmacro-lambda-list-bind-error)