From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 15 Aug 2015 15:15:58 +0000 (+0100)
Subject: src/builtin.lisp: Delete unused variable binding.
X-Git-Tag: 0.2.0~85
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/8fe5976b95f291159b7d386000731fa2600050ce?ds=inline

src/builtin.lisp: Delete unused variable binding.
---

diff --git a/src/builtin.lisp b/src/builtin.lisp
index 73de860..395d2cf 100644
--- a/src/builtin.lisp
+++ b/src/builtin.lisp
@@ -227,7 +227,6 @@ (define-class-slot "chains" (class stream) (* (struct "sod_chain" :const))
 	    class			;0
 	    (mapcar (lambda (chain)	;1
 		      (let* ((head (sod-class-chain-head (car chain)))
-			     (tail (sod-class-chain-head (car chain)))
 			     (chain-nick (sod-class-nickname head)))
 			(list class chain-nick			      ;0 1
 			      (reverse chain)			      ;2