- (if (null (defmacro-lambda-list-bind-error-name condition))
- (format stream
- "error while parsing arguments to ~A in ~S:~%"
- (defmacro-lambda-list-bind-error-kind condition)
- (condition-function-name condition))
- (format stream
- "error while parsing arguments to ~A ~S:~%"
- (defmacro-lambda-list-bind-error-kind condition)
- (defmacro-lambda-list-bind-error-name condition))))
+ (format stream
+ "error while parsing arguments to ~A~@[ ~S~]:~%"
+ (defmacro-lambda-list-bind-error-kind condition)
+ (defmacro-lambda-list-bind-error-name condition)))