From e481082fa36a5660e2d4191dcd5a8da2aecc41ca Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 7 Nov 2005 17:54:11 +0000 Subject: [PATCH] r10811: fix warning for sbcl. remove setf getenv --- src/libraries.lisp | 4 ++-- src/os.lisp | 15 --------------- 2 files changed, 2 insertions(+), 17 deletions(-) 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 -- 2.34.1