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