Commit 5f92eab0 authored by Pascal Costanza's avatar Pascal Costanza
Browse files

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

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

darcs-hash:825ddee7bae9c308010ec376b13fe5d4038687d5
parent 6a83deaa
......@@ -197,6 +197,19 @@
finally (return (nconc args rest)))
,@(cddr lambda-expression))))))
;; The following ensures that effective slot definitions have a documentation in CMUCL.
#+cmu
(defmethod compute-effective-slot-definition :around
((class standard-class) name direct-slot-definitions)
(let ((effective-slot (call-next-method)))
(loop for direct-slot in direct-slot-definitions
for documentation = (documentation direct-slot 't)
when documentation do
(setf (documentation effective-slot 't) documentation)
(loop-finish))
effective-slot))
;; 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