Changeset 904


Ignore:
Timestamp:
Feb 16, 2005, 6:40:22 PM (17 years ago)
Author:
bryan
Message:

modify defppclapfunction to accept a docstring.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/PPC/ppc-lap.lisp

    r203 r904  
    639639
    640640
    641 (defmacro defppclapfunction (&environment env name arglist &body body)
     641(defmacro defppclapfunction (&environment env name arglist &body body
     642                             &aux doc)
     643  (if (not (endp body))
     644      (and (stringp (car body))
     645           (cdr body)
     646           (setq doc (car body))
     647           (setq body (cdr body))))
    642648  `(progn
    643649     (eval-when (:compile-toplevel)
     
    646652     (progn
    647653       (eval-when (:load-toplevel)
    648          (%defun (nfunction ,name (lambda (&lap 0) (ppc-lap-function ,name ,arglist ,@body)))))   
     654         (%defun (nfunction ,name (lambda (&lap 0) (ppc-lap-function ,name ,arglist ,@body))) ,doc))
    649655       (eval-when (:execute)
    650656         (%define-ppc-lap-function ',name '((let ,arglist ,@body)))))
    651657     #+ppc-target       ; just shorthand for defun
    652      (%defun (nfunction ,name (lambda (&lap 0) (ppc-lap-function ,name ,arglist ,@body))))))
     658     (%defun (nfunction ,name (lambda (&lap 0) (ppc-lap-function ,name ,arglist ,@body))) ,doc)))
    653659 
    654660
Note: See TracChangeset for help on using the changeset viewer.