#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