1. Paul Sexton
  2. clod

Commits

Paul Sexton  committed 19b979b

Fixed a typo.

  • Participants
  • Parent commits 610e73c
  • Branches default

Comments (0)

Files changed (1)

File clod.lisp

View file
     ((and
       (or (symbolp func)                ;fboundp takes either symbol
           (and (consp func)             ;or (setf symbol)
-               (not (null cdr func)) (null (cddr func))
+               (cdr func)
+               (null (cddr func))
                (eq (first func) 'setf) (symbolp (second func))))
       (fboundp func)
       (typep (symbol-function func) (find-class 'generic-function)))
                      :class-diagram class-diagram
                      :style-sheet style-sheet
                      :title title :author author :email email))
-
-
-
-