Index: /trunk/ccl/compiler/PPC/ppc-lap.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/ppc-lap.lisp	(revision 903)
+++ /trunk/ccl/compiler/PPC/ppc-lap.lisp	(revision 904)
@@ -639,5 +639,11 @@
 
 
-(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,9 +652,9 @@
      (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)))