From ad19ec082d2d9aa6877cc0bbae9ec3fe3094f489 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 24 Apr 2013 16:27:36 +0100 Subject: [PATCH] Clean unused variable warning --- ecmalisp.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4