Changeset 904

Timestamp:

Feb 16, 2005, 10:40:22 AM (20 years ago)

Author:

bryan

Message:

modify defppclapfunction to accept a docstring.

File:

• trunk/ccl/compiler/PPC/ppc-lap.lisp (modified) (2 diffs)

trunk/ccl/compiler/PPC/ppc-lap.lisp

@@ -639 +639 @@
 
 
-(defmacro defppclapfunction (&environment env name arglist &body body)
+(defmacro defppclapfunction (&environment env name arglist &body body
+                             &aux doc)
+  (if (not (endp body))
+      (and (stringp (car body))
+           (cdr body)
+           (setq doc (car body))
+           (setq body (cdr body))))
   `(progn
      (eval-when (:compile-toplevel)
@@ -646 +652 @@
      (progn
        (eval-when (:load-toplevel)
-         (%defun (nfunction ,name (lambda (&lap 0) (ppc-lap-function ,name ,arglist ,@body)))))    
+         (%defun (nfunction ,name (lambda (&lap 0) (ppc-lap-function ,name ,arglist ,@body))) ,doc))
        (eval-when (:execute)
          (%define-ppc-lap-function ',name '((let ,arglist ,@body)))))
      #+ppc-target       ; just shorthand for defun
-     (%defun (nfunction ,name (lambda (&lap 0) (ppc-lap-function ,name ,arglist ,@body))))))
+     (%defun (nfunction ,name (lambda (&lap 0) (ppc-lap-function ,name ,arglist ,@body))) ,doc)))