stumpwm-devel
[Top][All Lists]
Advanced

[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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]