Changeset 10188


Ignore:
Timestamp:
10/22/05 19:33:33 (16 years ago)
Author:
piso
Message:

PROCESS-TOPLEVEL-FORM: support function documentation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/compile-file.lisp

    r9940 r10188  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: compile-file.lisp,v 1.117 2005-08-31 15:42:29 piso Exp $
     4;;; $Id: compile-file.lisp,v 1.118 2005-10-22 19:33:33 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    129129                     (*safety* *safety*)
    130130                     (*debug* *debug*))
    131                 (multiple-value-bind (body decls) (parse-body body)
     131                (multiple-value-bind (body decls doc)
     132                    (parse-body body)
    132133                  (let* ((expr `(lambda ,lambda-list ,@decls (block ,block-name ,@body)))
    133134                         (classfile-name (next-classfile-name))
     
    140141                                        (load-compiled-function ,(file-namestring classfile))
    141142                                        ,*source-position*
    142                                         ',lambda-list))
     143                                        ',lambda-list
     144                                        ,doc))
    143145                           (when compile-time-too
    144146                             (fset name compiled-function)))
     
    151153                                          ,precompiled-function
    152154                                          ,*source-position*
    153                                           ',lambda-list)))
     155                                          ',lambda-list
     156                                          ,doc)))
    154157                           (when compile-time-too
    155158                             (eval form)))))
Note: See TracChangeset for help on using the changeset viewer.