From 839d86628ee97f0c6df7bc7af6e8e2e66d83ae03 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 26 Dec 2011 23:59:10 +0100 Subject: [PATCH] Remove unused variable. --- src/clos/kernel.lsp | 1 - 1 file changed, 1 deletion(-) diff --git a/src/clos/kernel.lsp b/src/clos/kernel.lsp index 78f981f52..64625151c 100644 --- a/src/clos/kernel.lsp +++ b/src/clos/kernel.lsp @@ -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)))