projects
/
lml.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
13ab4f5
)
r3582: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 8 Dec 2002 22:38:06 +0000
(22:38 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 8 Dec 2002 22:38:06 +0000
(22:38 +0000)
utils.lisp
patch
|
blob
|
history
diff --git
a/utils.lisp
b/utils.lisp
index 38cab9f88bcd24c2109ed4dbb1f820b52d291d2b..a1830451579f3ab3fc01f6cbc29922fb25968395 100644
(file)
--- a/
utils.lisp
+++ b/
utils.lisp
@@
-1,4
+1,4
@@
-;;; $Id: utils.lisp,v 1.
3 2002/10/16 11:25:28
kevin Exp $
+;;; $Id: utils.lisp,v 1.
4 2002/12/08 22:38:06
kevin Exp $
;;;;
;;;; General purpose utilities
;;;;
;;;; General purpose utilities
@@
-57,7
+57,8
@@
#+lispworks (lw:quit :status code)
#+lucid (lcl:quit code)
#+sbcl (sb-ext:quit :unix-status (typecase code (number code) (null 0) (t 1)))
#+lispworks (lw:quit :status code)
#+lucid (lcl:quit code)
#+sbcl (sb-ext:quit :unix-status (typecase code (number code) (null 0) (t 1)))
- #-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl)
+ #+mcl (ccl:quit code)
+ #-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl mcl)
(error 'not-implemented :proc (list 'quit code)))
(error 'not-implemented :proc (list 'quit code)))
@@
-70,6
+71,7
@@
#+lispworks (hcl:get-working-directory)
#+lucid (lcl:working-directory)
#+sbcl (sb-unix:posix-getcwd/)
#+lispworks (hcl:get-working-directory)
#+lucid (lcl:working-directory)
#+sbcl (sb-unix:posix-getcwd/)
- #-(or allegro clisp cmu scl sbcl cormanlisp lispworks lucid) (truename "."))
+ #+mcl (ccl:mac-default-directory)
+ #-(or allegro clisp cmu scl sbcl cormanlisp lispworks lucid mcl) (truename "."))