From d6cd10e2e90a91e03f771dfc7dcc80d1e374267d Mon Sep 17 00:00:00 2001 From: Daniel Gackle Date: Sat, 15 Aug 2009 17:22:36 -0700 Subject: [PATCH 1/1] Eliminated unused local variables that caused compiler warnings in CCL. --- src/special-forms.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/special-forms.lisp b/src/special-forms.lisp index 7b8df5d..3e40bec 100644 --- a/src/special-forms.lisp +++ b/src/special-forms.lisp @@ -377,7 +377,7 @@ lambda-list::= (define-ps-special-form flet (fn-defs &rest body) (let ((fn-renames (make-macro-dictionary))) - (loop for (fn-name . def) in fn-defs do + (loop for (fn-name) in fn-defs do (setf (gethash fn-name fn-renames) (ps-gensym fn-name))) (let ((fn-defs (compile-parenscript-form `(progn ,@(loop for (fn-name . def) in fn-defs collect @@ -388,7 +388,7 @@ lambda-list::= (define-ps-special-form labels (fn-defs &rest body) (with-local-macro-environment (local-fn-renames *ps-local-function-names*) - (loop for (fn-name . def) in fn-defs do + (loop for (fn-name) in fn-defs do (setf (gethash fn-name local-fn-renames) (ps-gensym fn-name))) (compile-parenscript-form `(progn ,@(loop for (fn-name . def) in fn-defs collect -- 2.20.1