Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Introduced dependency on osicat.

  • Loading branch information...
commit 625c19f2de186b16e349fd0aa13c3c8fd92c9c61 1 parent 8b1472d
@blitz authored
Showing with 2 additions and 18 deletions.
  1. +1 −1  cl-dbus.asd
  2. +1 −1  network.lisp
  3. +0 −16 utilities.lisp
View
2  cl-dbus.asd
@@ -12,6 +12,6 @@
"transport"))
(:file "test" :depends-on ("packages" "network")))
:depends-on (iterate flexi-streams defclass-star iolib babel cl-ppcre
- ironclad))
+ ironclad osicat))
;;; EOF
View
2  network.lisp
@@ -25,7 +25,7 @@ address. Defaults to :SESSION."
(stream (connect-via-address-string
(etypecase address
(symbol (ecase address
- (:session (getenv "DBUS_SESSION_BUS_ADDRESS"))))
+ (:session (osicat-posix:getenv "DBUS_SESSION_BUS_ADDRESS"))))
(string address))))
(con (make-instance 'dbus-connection
:stream stream)))
View
16 utilities.lisp
@@ -46,22 +46,6 @@
(dc (1+ (* out-pos 2)))))))
(finally (return output)) ))
-
-;;; TODO Use compatibility layer.
-;; From UFFI via CFFI
-(defun getenv (var)
- #+allegro (sys::getenv (string var))
- #+clisp (sys::getenv (string var))
- #+(or cmu scl) (cdr (assoc (string var) ext:*environment-list* :test #'equalp
- :key #'string))
- #+gcl (si:getenv (string var))
- #+lispworks (lw:environment-variable (string var))
- #+lucid (lcl:environment-variable (string var))
- #+(or mcl ccl) (ccl::getenv var)
- #+sbcl (sb-ext:posix-getenv var)
- #-(or allegro clisp cmu scl gcl lispworks lucid mcl ccl sbcl)
- (error "error getenv not implemented"))
-
;;; EOF
Please sign in to comment.
Something went wrong with that request. Please try again.