Changeset 12756


Ignore:
Timestamp:
Sep 3, 2009, 3:39:50 PM (15 years ago)
Author:
gz
Message:

Fix for ticket #594

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/lib/describe.lisp

    r12682 r12756  
    11691169                                              "Arglist unknown")))
    11701170                                 (list arglist label (if type :colon '(:comment (:plain)))))))
    1171                        (when doc (list (substitute #\space #\newline doc) "Documentation" :colon))
     1171                       (when doc (list (list (substitute #\space #\newline doc) "Documentation" :colon)))
    11721172                       (when sn (list (list sn "Source Location" :colon))))))
    11731173    (setf (slot-value f 'header-lines) lines)
Note: See TracChangeset for help on using the changeset viewer.