From d2511e45d4c3cc674702577dd5d1e83961bdf987 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 25 Jun 1998 20:10:02 +0000 Subject: [PATCH] Cleanup the recently modified format #\/ format directive fix, removing an unused variable. --- code/format.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/code/format.lisp b/code/format.lisp index a15b6e984..952f0c759 100644 --- a/code/format.lisp +++ b/code/format.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.39 1998/06/19 15:09:22 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format.lisp,v 1.40 1998/06/25 20:10:02 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2352,8 +2352,7 @@ (let ((symbol (extract-user-function-name string start end))) (collect ((param-names) (bindings)) (dolist (param-and-offset params) - (let ((offset (car param-and-offset)) - (param (cdr param-and-offset))) + (let ((param (cdr param-and-offset))) (let ((param-name (gensym))) (param-names param-name) (bindings `(,param-name @@ -2369,8 +2368,7 @@ (let ((symbol (extract-user-function-name string start end))) (collect ((args)) (dolist (param-and-offset params) - (let ((offset (car param-and-offset)) - (param (cdr param-and-offset))) + (let ((param (cdr param-and-offset))) (case param (:arg (args (next-arg))) (:remaining (args (length args))) -- GitLab