This commit is contained in:
Tom Willemse 2014-01-26 01:52:12 +01:00
parent 8bcb1e2640
commit 86e3953ad9

View file

@ -99,7 +99,7 @@ and are not meant to be used outside the module. The default is
(let ((doc (nth 2 expr))) (let ((doc (nth 2 expr)))
(when (stringp doc) doc))) (when (stringp doc) doc)))
(defclass (defclass
(let ((doc (or (plist-git expr :documentation) (let ((doc (or (plist-get expr :documentation)
(nth 4 expr)))) (nth 4 expr))))
(when (stringp doc) doc))) (when (stringp doc) doc)))
(defmethod (defmethod