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 78e37141619d8e1f50ad44be2000dbf24189664c..8dc05c1f248461addceb72eeba3fb24c8fdcba42 100644
(file)
--- a/
utils.cl
+++ b/
utils.cl
@@
-1,4
+1,4
@@
-;;; $Id: utils.cl,v 1.
3 2002/09/16 02:37:35
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*))
@@
-58,7
+58,7
@@
#+gcl (lisp:bye code)
#+lispworks (lw:quit :status code)
#+lucid (lcl:quit code)
#+gcl (lisp:bye code)
#+lispworks (lw:quit :status code)
#+lucid (lcl:quit code)
- #+sbcl (sb-ext:quit :unix-
code
(typecase code (number code) (null 0) (t 1)))
+ #+sbcl (sb-ext:quit :unix-
status
(typecase code (number code) (null 0) (t 1)))
#-(or allegro clisp cmu cormanlisp gcl lispworks lucid sbcl)
(error 'not-implemented :proc (list 'quit code)))
#-(or allegro clisp cmu cormanlisp gcl lispworks lucid sbcl)
(error 'not-implemented :proc (list 'quit code)))