From: Kevin M. Rosenberg Date: Mon, 7 Nov 2005 17:54:11 +0000 (+0000) Subject: r10811: fix warning for sbcl. remove setf getenv X-Git-Tag: v1.6.1~35 X-Git-Url: http://git.kpe.io/?p=uffi.git;a=commitdiff_plain;h=e481082fa36a5660e2d4191dcd5a8da2aecc41ca r10811: fix warning for sbcl. remove setf getenv --- diff --git a/src/libraries.lisp b/src/libraries.lisp index cb6b168..275aee1 100644 --- a/src/libraries.lisp +++ b/src/libraries.lisp @@ -76,8 +76,8 @@ library type if type is not specified." (defun load-foreign-library (filename &key module supporting-libraries force-load) - #+(or allegro mcl) (declare (ignore module supporting-libraries)) - #+(or cmu scl sbcl) (declare (ignore module)) + #+(or allegro mcl sbcl) (declare (ignore module supporting-libraries)) + #+(or cmu scl) (declare (ignore module)) #+lispworks (declare (ignore supporting-libraries)) (when (and filename (or (null (pathname-directory filename)) diff --git a/src/os.lisp b/src/os.lisp index 075be96..c044970 100644 --- a/src/os.lisp +++ b/src/os.lisp @@ -30,21 +30,6 @@ #-(or allegro clisp cmu gcl lispworks lucid mcl sbcl) (error 'not-implemented :proc (list 'getenv var))) -(defun (setf getenv) (val var) - "Set an environment variable." - #+allegro (setf (sys::getenv (string var)) (string val)) - #+clisp (setf (sys::getenv (string var)) (string val)) - #+cmu (let ((cell (assoc (string var) ext:*environment-list* :test #'equalp - :key #'string))) - (if cell - (setf (cdr cell) (string val)) - (push (cons (intern (string var) "KEYWORD") (string val)) ext:*environment-list*))) - #+gcl (si:setenv (string var) (string val)) - #+lispworks (setf (lw:environment-variable (string var)) (string val)) - #+lucid (setf (lcl:environment-variable (string var)) (string val)) - #-(or allegro clisp cmu gcl lispworks lucid) - (error 'not-implemented :proc (list '(setf getenv) var))) - ;; modified from function ASDF -- Copyright Dan Barlow and Contributors