Lambda list in function description

Author: mmontone

src/clos/describe.lisp

@@ -276,10 +276,12 @@
 ;;; function
 (defmethod describe ((obj function) &optional (stream *standard-output*))
   (let ((name (oget obj "fname"))
+	(lambda-list (oget obj "lambdalist"))
         (doc (oget obj "docstring")))
     (with-pp-buffer (buf)
       (pp/presentation obj 'function stream)
       (format buf "Name:~a~%" (if name name "anonimous"))
+      (format buf "Lambda list:~a~%" lambda-list)
       (when doc
         (format buf "Documentation: ~a~%" doc))
       (flush-pp-buffer buf stream))

src/compiler/compiler.lisp

@@ -265,12 +265,13 @@
           (ll-optional-arguments-canonical lambda-list))))
     (remove nil (mapcar #'third args))))
 
-(defun lambda-name/docstring-wrapper (name docstring code)
+(defun lambda-name/docstring-wrapper (name docstring lambda-list code)
   (if (or name docstring)
       `(selfcall
         (var (func ,code))
         ,(when name `(= (get func "fname") ,name))
         ,(when docstring `(= (get func "docstring") ,docstring))
+	(= (get func "lambdalist") ,(prin1-to-string lambda-list))
         (return func))
       code))
 
@@ -464,7 +465,7 @@
                                     keyword-arguments
                                     (ll-svars ll)))))
 
-        (lambda-name/docstring-wrapper name documentation
+        (lambda-name/docstring-wrapper name documentation ll
          `(named-function ,(jsize-symbol name 'jscl_user_)
                           (|values| ,@(mapcar (lambda (x)
                                                 (translate-variable x))