Skip to content
Snippets Groups Projects
Commit 1ca590e1 authored by dtc's avatar dtc
Browse files

Stop the documentation function calling the lisp::documentation

function; causes a loop.
parent 52a8fd2f
No related branches found
No related tags found
No related merge requests found
......@@ -114,7 +114,8 @@
(setf (plist-value object 'documentation) documentation)))
(defmethod documentation (object &optional doc-type)
(lisp:documentation object doc-type))
(declare (ignore object doc-type))
nil)
(defmethod (setf documentation) (new-value object &optional doc-type)
(declare (ignore new-value doc-type))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment