On 20 April 2012 22:44, z_axis <z_a...@163.com> 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.
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
