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

Remove unused variable.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-26 23:59:10 +01:00
parent 8e22061e57
commit 839d86628e
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/clos/kernel.lsp
View file

@ -431,7 +431,6 @@
(nupdate-spec-how-list spec-how-list (method-specializers method) gf)))
(setf (generic-function-spec-list gf)
(loop for type in spec-how-list
for name in (generic-function-lambda-list gf)
for i from 0
when type collect (cons type i)))
(let* ((g-f-l-l (generic-function-lambda-list gf)))