[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [STUMP] mpd.lisp minor fix and notifications patch
From: |
Vitaly Mayatskikh |
Subject: |
Re: [STUMP] mpd.lisp minor fix and notifications patch |
Date: |
Sat, 23 Feb 2008 11:49:45 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.1 (gnu/linux) |
"Shawn Betts" <address@hidden> writes:
> Thanks, these patches are in git now.
My bad, I forgot to replace #+cmu with #+clisp :(
--- mpd.lisp.bak 2008-02-23 11:30:09.000000000 +0100
+++ mpd.lisp 2008-02-23 11:31:08.000000000 +0100
@@ -38,7 +38,7 @@
;;mpd client
(defparameter *mpd-socket* nil)
(defparameter *mpd-server*
- #+cmu
+ #+clisp
"localhost"
#+sbcl
#(127 0 0 1)
@@ -59,7 +59,7 @@
(defun mpd-send (command)
"Send command to stream ending with newline"
(with-mpd-connection
- (#+cmu
+ (#+clisp
ext:write-char-sequence
#+sbcl
write-sequence
@@ -100,7 +100,7 @@
(defun mpd-connect ()
"Connect to mpd server"
(setq *mpd-socket*
- #+cmu
+ #+clisp
(handler-case (socket:socket-connect *mpd-port* *mpd-server*
:element-type 'character)
((or system::simple-os-error error)
--
wbr, Vitaly