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 @@ ...@@ -338,8 +338,8 @@
if (stringp car) if (stringp car)
do (setf documentation do (setf documentation
(if (eq documentation :unbound) car (if (eq documentation :unbound) car
(error "Too many documentation strings in lambda expression ~S." (warn "Too many documentation strings in lambda expression ~S."
lambda-expression))) lambda-expression)))
else append (loop for declaration in (cdr car) else append (loop for declaration in (cdr car)
if (eq (car declaration) 'ignore) if (eq (car declaration) 'ignore)
collect `(ignorable ,@(cdr declaration)) collect `(ignorable ,@(cdr declaration))
......
...@@ -134,7 +134,7 @@ ...@@ -134,7 +134,7 @@
if (stringp car) if (stringp car)
do (setq documentation do (setq documentation
(if (null documentation) car (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 else append (cdr car) into declarations
finally (return (values documentation declarations (cons car cdr))))) 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