Commit 6a83deaa authored by Pascal Costanza's avatar Pascal Costanza
Browse files

The function documentation now returns the documentation strings for slot...

The function documentation now returns the documentation strings for slot definition metaobjects in OpenMCL.

darcs-hash:6886af50a43d5a624a196f587acf8ef183c6946d
parent 7ddb005c
......@@ -122,6 +122,12 @@
finally (return (nconc args rest)))
,@(cddr lambda-expression))))
;; The following ensures that slot definitions have a documentation in OpenMCL.
#+openmcl
(defmethod initialize-instance :after ((slot slot-definition) &key documentation)
(setf (documentation slot 't) documentation))
;; The following can be used in direct-slot-definition-class to get the correct initargs
;; for a slot. Use it like this:
;;
......
Markdown is supported
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