From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 4 Nov 2002 19:19:04 +0000 (+0000)
Subject: r3292: *** empty log message ***
X-Git-Tag: v1.96~299
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=d691dfbbed177726ba5a5313e23568c21e045359

r3292: *** empty log message ***
---

diff --git a/debian/changelog b/debian/changelog
index 431a0c1..276afb7 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.19.1-1) unstable; urgency=low
+
+  * Made indent-spaces reslient to non-numeric parameter
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon,  4 Nov 2002 11:33:03 -0700
+
 cl-kmrcl (1.19-1) unstable; urgency=low
 
   * New upstream
diff --git a/genutils.lisp b/genutils.lisp
index e13e46c..55751ff 100644
--- a/genutils.lisp
+++ b/genutils.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: genutils.lisp,v 1.6 2002/11/04 18:02:13 kevin Exp $
+;;;; $Id: genutils.lisp,v 1.7 2002/11/04 19:19:04 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -294,8 +294,9 @@
 
 (defun indent-spaces (n &optional (stream *standard-output*))
   "Indent n*2 spaces to output stream"
-  (let ((fmt (format nil "~~~DT" (+ n n))))
-    (format stream fmt)))
+  (when (numberp n)
+    (let ((fmt (format nil "~~~DT" (+ n n))))
+      (format stream fmt))))
 
 (defun print-list (l &optional (output *standard-output*))
   "Print a list to a stream"