projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't close runtime dlhandle on Darwin
[sbcl.git]
/
src
/
code
/
parse-defmacro-errors.lisp
diff --git
a/src/code/parse-defmacro-errors.lisp
b/src/code/parse-defmacro-errors.lisp
index
70cf9d8
..
b98ec52
100644
(file)
--- 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 "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)
(define-condition defmacro-lambda-list-broken-key-list-error
(defmacro-lambda-list-bind-error)