From d4952aa77eaa25d6b63c43513c127d46f257e64f Mon Sep 17 00:00:00 2001 From: Juanjo Garcia-Ripoll Date: Tue, 24 Apr 2012 18:12:39 +0200 Subject: [PATCH] The :initarg for the documentation of a method is :documentation --- src/clos/kernel.lsp | 2 +- src/clos/method.lsp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/clos/kernel.lsp b/src/clos/kernel.lsp index 4f97ac0a3..3b77d78b0 100644 --- a/src/clos/kernel.lsp +++ b/src/clos/kernel.lsp @@ -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)))) diff --git a/src/clos/method.lsp b/src/clos/method.lsp index 997a53b18..7eb53657d 100644 --- a/src/clos/method.lsp +++ b/src/clos/method.lsp @@ -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