[Lispweb] Announcement: Hunchentoot

Ralf Stoye stoye at stoye.com
Tue Oct 10 17:24:27 CDT 2006


I just tested Hunchentoot on osx openmcl (ppc),
two small quirks in port-mcl:
<---------------------------------------- diff   
----------------------------------------------->
--- hunchentoot-0.4.2/port-mcl.lisp	2006-10-06 16:28:43.000000000 +0200
+++ hunchentoot-0.4.2-rs/port-mcl.lisp	2006-10-11 00:06:19.000000000  
+0200
@@ -40,7 +40,7 @@
(defmacro atomic-incf (place &optional (delta 1))
    "Like INCF but wrapped with CCL:WITHOUT-INTERRUPTS so other
threads can't interfer."
-  `(ccl:without-interrupts (*incf-mutex*) (incf ,place ,delta)))
+    `(ccl::atomic-incf-decf ,place ,delta))
(defun invoke-with-timeout (seconds bodyfn timeoutfn)
    "Executes the function \(with no arguments) BODY-FN and returns
@@ -104,7 +104,7 @@
                         (loop (funcall function (ccl:accept- 
connection socket :wait t))))
                     (when socket
                       (cl:ignore-errors
-                       (ext:close-socket socket))))))))
+                       (close socket))))))))
        (let ((listener-thread (process-run-function process-name  
#'open-socket-and-accept)))
          (ccl:process-wait "Waiting for server to start" (lambda ()  
done))
          (typecase done
<---------------------------------------- end of diff   
----------------------------------------------->


further i had to adjust the path to libssl in cl+ssl,
in file cl+ssl.asd, just below (defparameter *libssl-pathname*....)  
insert:
#+(and :openmcl :DARWIN-TARGET)
(setf *libssl-pathname* "/usr/lib/libssl.dylib")





More information about the lispweb mailing list