Changeset 7510


Ignore:
Timestamp:
Oct 24, 2007, 8:29:46 PM (14 years ago)
Author:
gz
Message:

Make the function-doc argument (i.e. the "second doc string") to DEFCOMMAND be
optional, because I hate fascist software.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/hemlock/src/macros.lisp

    r6790 r7510  
    161161(defmacro defcommand (name lambda-list command-doc function-doc
    162162                           &body forms)
    163   "Defcommand Name Lambda-List Command-Doc Function-Doc {Declaration}* {Form}*
     163  "Defcommand Name Lambda-List Command-Doc [Function-Doc] {Declaration}* {Form}*
    164164
    165165  Define a new Hemlock command named Name.  Lambda-List becomes the
     
    182182
    183183  (unless (stringp function-doc)
    184     (error "Command function documentation is not a string: ~S."
    185                   function-doc))
     184    (setq forms (cons function-doc forms))
     185    (setq function-doc command-doc))
    186186  (when (atom lambda-list)
    187187    (error "Command argument list is not a list: ~S." lambda-list))
Note: See TracChangeset for help on using the changeset viewer.