Commit c8395997 authored by Karsten Poeck's avatar Karsten Poeck
Browse files

define and use (setf getenv) for clasp

parent 03979ade
......@@ -420,9 +420,9 @@
(clear-system "test-system")))
(defun test-pathname-parsing ()
#-(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl)
#-(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl clasp)
(DBG "Can't test pathname parsing: this lisp lacks SETENV support.")
#+(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl)
#+(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl clasp)
(let ((old-config (uiop:getenvp "XDG_CONFIG_DIRS"))
(old-home-config (uiop:getenvp "XDG_CONFIG_HOME")))
(unwind-protect
......
......@@ -126,11 +126,11 @@ use getenvp to return NIL in such a case."
#+clisp `(system::setenv ,x ,val)
#+clozure `(ccl:setenv ,x ,val)
#+cmucl `(unix:unix-setenv ,x ,val 1)
#+ecl `(ext:setenv ,x ,val)
#+(or ecl clasp) `(ext:setenv ,x ,val)
#+lispworks `(hcl:setenv ,x ,val)
#+mkcl `(mkcl:setenv ,x ,val)
#+sbcl `(progn (require :sb-posix) (symbol-call :sb-posix :setenv ,x ,val 1))
#-(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl)
#-(or allegro clisp clozure cmucl ecl lispworks mkcl sbcl clasp)
'(not-implemented-error '(setf getenv)))
(defun getenvp (x)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment