projects
/
lml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2718: Auto commit for Debian build
[lml.git]
/
utils.cl
diff --git
a/utils.cl
b/utils.cl
index dd86f0cc623cd1fdbeee0c325eff9b45fa96755e..8dc05c1f248461addceb72eeba3fb24c8fdcba42 100644
(file)
--- a/
utils.cl
+++ b/
utils.cl
@@
-1,4
+1,4
@@
-;;; $Id: utils.cl,v 1.
4 2002/09/16 08:38:36
kevin Exp $
+;;; $Id: utils.cl,v 1.
5 2002/09/16 08:44:09
kevin Exp $
;;;;
;;;; General purpose utilities
;;;;
;;;; General purpose utilities
@@
-23,7
+23,7
@@
(defun indent-spaces (n &optional (stream *standard-output*))
"Indent n*2 spaces to output stream"
(defun indent-spaces (n &optional (stream *standard-output*))
"Indent n*2 spaces to output stream"
- (let ((fmt (format nil "~~~D
~~
T" (+ n n))))
+ (let ((fmt (format nil "~~~DT" (+ n n))))
(format stream fmt)))
(defun print-file-contents (file &optional (strm *standard-output*))
(format stream fmt)))
(defun print-file-contents (file &optional (strm *standard-output*))