r3292: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index 431a0c1cf8803bf986a3cb136154ac645a8b7872..276afb7876636ae520a0fef48f9044cacf82d1ff 100644 (file)
--- 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 e13e46c69279fb80db6228248d318e6840b84669..55751ff84fb41faf7ed51fc9cb23b76eb360ae11 100644 (file)
--- 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"