Commit 8d85779e authored by Pascal Costanza's avatar Pascal Costanza
Browse files

Ensure that method documentations are recorded in Clozure.

Ignore-this: 56eac7d08db11ceb5d35f30334990edb

parent 2f413e58
......@@ -145,7 +145,9 @@
(next-method-p () (ccl::%next-method-p ,methvar)))
(declare (inline call-next-method next-method-p))
,@(cddr lambda-expression)))
(let ((documentation (parse-method-body (cddr lambda-expression) lambda-expression)))
(when documentation
(list :documentation documentation))))))
;; "Native" compute-discriminating-function.
Supports Markdown
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