Commits

Paul Sexton committed cec2f43

Fix bug where a slot was accessed where it might not exist.

Comments (0)

Files changed (1)

                              'none))
      (write-bullet-point "Allocation: ~(~A~)"
                          (slot-definition-allocation slot)))
-    (if (and (slot-boundp slot 'documentation)
+    (if (and (slot-exists-p slot 'documentation)
+             (slot-boundp slot 'documentation)
              (documentation slot t))
         (write-docstring-section "Description" (documentation slot t)))
     (call-next-method)))