Commit 01134869 authored by Pascal Costanza's avatar Pascal Costanza
Browse files

Warn, not error, when there are too many documentation strings in a method body.

Ignore-this: f241532f702e725b26cc04ac064c7f9

darcs-hash:3cd020e09e90c48672ac46c751e93961e559fda9
parent 727a6dcf
......@@ -338,8 +338,8 @@
if (stringp car)
do (setf documentation
(if (eq documentation :unbound) car
(error "Too many documentation strings in lambda expression ~S."
lambda-expression)))
(warn "Too many documentation strings in lambda expression ~S."
lambda-expression)))
else append (loop for declaration in (cdr car)
if (eq (car declaration) 'ignore)
collect `(ignorable ,@(cdr declaration))
......
......@@ -134,7 +134,7 @@
if (stringp car)
do (setq documentation
(if (null documentation) car
(error "Too many documentation strings in ~S." error-form)))
(warn "Too many documentation strings in ~S." error-form)))
else append (cdr car) into declarations
finally (return (values documentation declarations (cons car cdr)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment