X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.lisp;h=1f960b6457659ad32a6551f3309e78bbcb47e1cc;hb=ad19ec082d2d9aa6877cc0bbae9ec3fe3094f489;hp=8775cc65648543cf6cebf88a84446a80fbd08c0a;hpb=729dd6267215a41ff2b0ca5aaffc3dc98ad5a9e3;p=jscl.git

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))