projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5762e8b
)
Improve ccl getenv patch
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 23 Nov 2013 17:22:29 +0000
(10:22 -0700)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 23 Nov 2013 17:22:29 +0000
(10:22 -0700)
sql/utils.lisp
patch
|
blob
|
history
diff --git
a/sql/utils.lisp
b/sql/utils.lisp
index 0b58f0fa080b954013fb5fbb370869afb0627c43..be1396e021af6636032140a445781297b6ab3d21 100644
(file)
--- a/
sql/utils.lisp
+++ b/
sql/utils.lisp
@@
-375,7
+375,7
@@
list of characters and replacement strings."
(cdr (assoc (string var) ext:*environment-list* :test #'equalp
:key #'string))
#+lispworks (lw:environment-variable (string var))
(cdr (assoc (string var) ext:*environment-list* :test #'equalp
:key #'string))
#+lispworks (lw:environment-variable (string var))
- #+
(or mcl ccl)
(ccl::getenv var)
+ #+
ccl
(ccl::getenv var)
#+sbcl (sb-ext:posix-getenv var))
(eval-when (:compile-toplevel :load-toplevel :execute)
#+sbcl (sb-ext:posix-getenv var))
(eval-when (:compile-toplevel :load-toplevel :execute)