projects
/
lml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2706: Auto commit for Debian build
[lml.git]
/
utils.cl
diff --git
a/utils.cl
b/utils.cl
index 78e37141619d8e1f50ad44be2000dbf24189664c..dd86f0cc623cd1fdbeee0c325eff9b45fa96755e 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.
4 2002/09/16 08:38:36
kevin Exp $
;;;;
;;;; General purpose utilities
;;;;
;;;; General purpose utilities
@@
-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)))