[armedbear-ticket] [armedbear] #343: interactively evaluated or compiled functions don't get arglist saved

[armedbear]

#343: interactively evaluated or compiled functions don't get arglist saved
-----------------------------+-----------------
 Reporter:  alan ruttenberg  |      Owner:
     Type:  defect           |     Status:  new
 Priority:  minor            |  Milestone:
Component:  interpreter      |    Version:
 Keywords:                   |
-----------------------------+-----------------
 Index: precompiler.lisp
 ===================================================================
 --- precompiler.lisp    (revision 14581)
 +++ precompiler.lisp    (working copy)
 @@ -1184,6 +1184,7 @@
                 (setf lambda-expression (precompiler:precompile-form
 lambda-expression nil)))
               `(prog1
                    (%defun ',name ,lambda-expression)
 +               (%set-arglist (symbol-function ',name) ,(format nil
 "~{~a~^ ~}" (third lambda-expression)))
                  ,@(when doc
                     `((%set-documentation ',name 'function ,doc)))))))))

--
Ticket URL: <http://abcl.org/trac/ticket/343>
armedbear <http://abcl.org>
armedbear