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 ARWIN-TA
RGET)
(setf *libssl-pathname* "/usr/lib/libssl.dylib")
_______________________________________________
lispweb mailing list
lispweb red-bean.com
http
://www.red-bean.com/mailman/listinfo/lispweb
|