mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-18 23:32:17 -08:00
The :initarg for the documentation of a method is :documentation
This commit is contained in:
parent
0e372eca31
commit
d4952aa77e
2 changed files with 2 additions and 2 deletions
|
|
@ -162,7 +162,7 @@
|
|||
(specializers :initarg :specializers :accessor method-specializers)
|
||||
(qualifiers :initform nil :initarg :qualifiers :accessor method-qualifiers)
|
||||
(function :initarg :function :accessor method-function)
|
||||
(documentation :initform nil :initarg documentation)
|
||||
(documentation :initarg :documentation :initform nil)
|
||||
(plist :initform nil :initarg :plist :accessor method-plist)
|
||||
(keywords :initform nil :accessor method-keywords))))
|
||||
|
||||
|
|
|
|||
|
|
@ -62,7 +62,7 @@
|
|||
(multiple-value-bind (fn-form options)
|
||||
(make-method-lambda generic-function method lambda-form env)
|
||||
(when documentation
|
||||
(setf options (list* 'documentation documentation options)))
|
||||
(setf options (list* :documentation documentation options)))
|
||||
(multiple-value-bind (wrapped-lambda wrapped-p)
|
||||
(simplify-lambda name fn-form)
|
||||
(unless wrapped-p
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue