From: David Vázquez <davazp@gmail.com>
Date: Wed, 24 Apr 2013 15:27:36 +0000 (+0100)
Subject: Clean unused variable warning
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ad19ec082d2d9aa6877cc0bbae9ec3fe3094f489;p=jscl.git

Clean unused variable warning
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 8775cc6..1f960b6 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -2763,10 +2763,9 @@
 (defvar *compile-print-toplevels* nil)
 
 (defun truncate-string (string &optional (width 60))
-    (let ((size (length string))
-          (n (or (position #\newline string)
-                 (min width (length string)))))
-      (subseq string 0 n)))
+  (let ((n (or (position #\newline string)
+               (min width (length string)))))
+    (subseq string 0 n)))
 
 (defun ls-compile-toplevel (sexp &optional multiple-value-p)
   (let ((*toplevel-compilations* nil))