Hi Chun Tian,
The platform is Ubuntu 9.04 x64. Here's the patch to hunchentoot to
make it compile with ecl. When I try to run hunchentoot tests or to
access any page I get different errors.
I don't know when to start looking, since I'm new to both usockets and
hunchentoot.
Regads,
Marko
On Fri, Feb 12, 2010 at 1:18 AM, Chun Tian (binghe)
<[email protected]> wrote:
> Hi, Marko
>
> What's your platform? If it's not MS Windows, please show your backtraces
> when error happens.
>
> Regards,
>
> Chun Tian (binghe)
>
> 在 2010-2-12，01:24， Marko Kocić 写道：
>
>> Hi all,
>>
>> what is the status of latest ECL support in usocket?
>>
>> By running tests it seems that some stuff is not supported yet.
>> I'm trying to get hunchentoot to run with ECL, managed to make it
>> compile hunchentoot with some patches, but when running it fails in
>> usocket:wait-for-input-internal.
>>
>> If someone is interested to give it a try, I can send WIP hunchentoot patch.
>>
>> Regards,
>> Marko Kocić
>>
>> _______________________________________________
>> usocket-devel mailing list
>> [email protected]
>> http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel
>
>
diff -rN -u old-hunchentoot/set-timeouts.lisp new-hunchentoot/set-timeouts.lisp
--- old-hunchentoot/set-timeouts.lisp 2010-02-12 13:00:04.000000000 +0100
+++ new-hunchentoot/set-timeouts.lisp 2010-02-12 13:00:04.000000000 +0100
@@ -65,6 +65,14 @@
#+:cmu
(setf (lisp::fd-stream-timeout (usocket:socket-stream usocket))
(coerce read-timeout 'integer))
- #-(or :clisp :allegro :openmcl :sbcl :lispworks :cmu)
+
+ #+:ecl
+ (when read-timeout
+ (setf (sb-bsd-sockets:sockopt-receive-timeout (usocket:socket usocket)) read-timeout))
+ #+:ecl
+ (when write-timeout
+ (setf (sb-bsd-sockets:sockopt-send-timeout (usocket:socket usocket)) write-timeout))
+
+ #-(or :clisp :allegro :openmcl :sbcl :lispworks :cmu :ecl)
(not-implemented 'set-timeouts))
diff -rN -u old-hunchentoot/specials.lisp new-hunchentoot/specials.lisp
--- old-hunchentoot/specials.lisp 2010-02-12 13:00:04.000000000 +0100
+++ new-hunchentoot/specials.lisp 2010-02-12 13:00:04.000000000 +0100
@@ -254,6 +254,7 @@
#+:allegro "http://www.franz.com/products/allegrocl/";
#+:lispworks "http://www.lispworks.com/";
#+:openmcl "http://openmcl.clozure.com/";
+ #+:ecl "http://ecls.sourceforge.net/";
"A link to the website of the underlying Lisp implementation.")
(defvar *dispatch-table* (list 'dispatch-easy-handlers 'default-dispatcher)
@@ -317,7 +318,7 @@
#-:lispworks bt:*supports-threads-p*)
(defvar *global-session-db-lock*
- (load-time-value (and *supports-threads-p* (make-lock "global-session-db-lock")))
+ (and bt:*supports-threads-p* (make-lock "global-session-db-lock"))
"A global lock to prevent two threads from modifying *session-db* at
the same time \(or NIL for Lisps which don't have threads).")
_______________________________________________
usocket-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel
