mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-08 10:13:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

FUNCTION-LAMBDA-LIST: do not remove default values.

Browse source
This commit is contained in:
jgarcia 2006-09-11 11:26:46 +00:00
parent 32357a0d3f
commit 4e40b51e64
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/lsp/top.lsp
View file

@ -590,17 +590,22 @@ under certain conditions; see file 'Copyright' for details.")
(generic-function-lambda-list function))
((not (typep function 'compiled-function))
(function-lambda-list (fdefinition function)))
;; Use the lambda list from the function definition, if available,
;; but remove &aux arguments.
((let ((f (function-lambda-expression function)))
(when f
(let* ((list (if (eql (first f) 'LAMBDA)
(second f)
(third f)))
(ndx (position '&aux list)))
(if ndx
(subseq list 0 (1- ndx))
list)))))
;; Reconstruct the lambda list from the bytecodes
((multiple-value-bind (lex-env bytecodes data)
(si::bc-split function)
(when bytecodes
(reconstruct-bytecodes-lambda-list (coerce data 'list)))))
;; Convert the lambda form into bytecodes and reconstruct lambda
;; list The reason for doing this is to strip information such as
;; default values, &aux, etc. It also makes the output of
;; FUNCTION-LAMDBA-LIST more uniform.
((let ((f (function-lambda-expression function)))
(function-lambda-list (eval f))))))
(reconstruct-bytecodes-lambda-list (coerce data 'list)))))))
(defun tpl-variables-command (&optional no-values)
(let*((*print-level* 2)