On 20 April 2012 22:44, z_axis
<address@hidden> wrote:
The mpd module works great with SBCL. But it seems that the mpd module doesnot support CCL.
Would anyone knowing CCL like to hack it to support CCL ?
Sincerely!
If you look at the source code you can see
#-(or sbcl clisp) (error "unimplemented")
So it won't work with ccl. Mainly because it relies on socket support in these implementations. To make it more portable you should remove the conditional code like this one:
#+clisp
(handler-case (socket:socket-connect *mpd-port* *mpd-server*
:element-type 'character)
((or system::simple-os-error error)
(err)
(format t "Error connecting to mpd: ~a~%" err)))
#+sbcl
(handler-case (let ((s (make-instance 'sb-bsd-sockets:inet-socket
:type :stream :protocol :tcp)))
(sb-bsd-sockets:socket-connect s *mpd-server*
*mpd-port*)
(sb-bsd-sockets:socket-make-stream s
:input t
:output t
:buffering :none))
((or simple-error error)
(err)
(format t "Error connecting to mpd: ~a~%" err)))
and reimplement it using usocket.