July 2010 - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] hans changed trunk/bknr/web/src/images/imageproc-handler.lisp
by BKNR Commits 05 Jul '10

05 Jul '10

Revision: 4565 Author: hans URL: http://bknr.net/trac/changeset/4565 fix for current alexandria API U trunk/bknr/web/src/images/imageproc-handler.lisp Modified: trunk/bknr/web/src/images/imageproc-handler.lisp =================================================================== --- trunk/bknr/web/src/images/imageproc-handler.lisp 2010-07-04 20:34:21 UTC (rev 4564) +++ trunk/bknr/web/src/images/imageproc-handler.lisp 2010-07-05 09:21:40 UTC (rev 4565) @@ -179,5 +179,5 @@ (with-http-response (:content-type (image-content-type (image-type-keyword image))) (setf (header-out :content-length) (blob-size image)) (with-open-file (blob-data (blob-pathname image) :element-type '(unsigned-byte 8)) - (copy-stream blob-data (send-headers) '(unsigned-byte 8))))))) + (copy-stream blob-data (send-headers) :element-type '(unsigned-byte 8)))))))

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/src/init.lisp
by BKNR Commits 04 Jul '10

04 Jul '10

Revision: 4564 Author: hans URL: http://bknr.net/trac/changeset/4564 this is how the taskmaster needs to be passed U trunk/projects/quickhoney/src/init.lisp Modified: trunk/projects/quickhoney/src/init.lisp =================================================================== --- trunk/projects/quickhoney/src/init.lisp 2010-07-04 20:32:45 UTC (rev 4563) +++ trunk/projects/quickhoney/src/init.lisp 2010-07-04 20:34:21 UTC (rev 4564) @@ -40,7 +40,7 @@ ((start-fn () (hunchentoot:start (make-instance 'hunchentoot:acceptor :port port - :taskmaster 'hunchentoot:single-threaded-taskmaster + :taskmaster (make-instance 'hunchentoot:single-threaded-taskmaster) :request-dispatcher 'bknr.web:bknr-dispatch :persistent-connections-p nil)))) (if foregroundp

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/src/
by BKNR Commits 04 Jul '10

04 Jul '10

Revision: 4563 Author: hans URL: http://bknr.net/trac/changeset/4563 adapt to new hunchentoot U trunk/projects/quickhoney/src/handlers.lisp U trunk/projects/quickhoney/src/init.lisp Modified: trunk/projects/quickhoney/src/handlers.lisp =================================================================== --- trunk/projects/quickhoney/src/handlers.lisp 2010-06-14 07:56:22 UTC (rev 4562) +++ trunk/projects/quickhoney/src/handlers.lisp 2010-07-04 20:32:45 UTC (rev 4563) @@ -597,5 +597,5 @@ ()) (defmethod handle ((handler shutdown-handler)) - (hunchentoot:stop-server hunchentoot:*server*) + (hunchentoot:stop hunchentoot:*acceptor*) "Shutting down HTTP server") Modified: trunk/projects/quickhoney/src/init.lisp =================================================================== --- trunk/projects/quickhoney/src/init.lisp 2010-06-14 07:56:22 UTC (rev 4562) +++ trunk/projects/quickhoney/src/init.lisp 2010-07-04 20:32:45 UTC (rev 4563) @@ -6,7 +6,7 @@ #+openmcl (ccl:save-application "quickhoney" :prepend-kernel t)) -(defun startup () +(defun startup (&key foregroundp (port *webserver-port*)) (cond (*dumped-image* (asdf:oos 'asdf:load-op :quickhoney) @@ -36,8 +36,14 @@ (format t "; loading site configuration file~%") (let ((*package* (find-package :quickhoney.config))) (load "site-config.lisp"))) - (bt:make-thread (curry #'hunchentoot:start-server - :port *webserver-port* - :threaded nil - :persistent-connections-p nil) - :name (format nil "HTTP server on port ~A" *webserver-port*))) + (flet + ((start-fn () + (hunchentoot:start (make-instance 'hunchentoot:acceptor + :port port + :taskmaster 'hunchentoot:single-threaded-taskmaster + :request-dispatcher 'bknr.web:bknr-dispatch + :persistent-connections-p nil)))) + (if foregroundp + (funcall #'start-fn) + (bt:make-thread #'start-fn + :name (format nil "HTTP server on port ~A" *webserver-port*)))))

1 0