On Mon, Dec 18, 2006 at 06:35:48PM +0100, Edi Weitz wrote: : On Mon, 18 Dec 2006 17:14:59 +0000, Jonathon McKitrick jcm@FreeBSD-uk.eu.org wrote: : : > I'm experimenting with hunchentoot with a view to porting my web : > app. I have 0.4.11 running on SBCL-1.0 and Ubuntu Linux. : > : > I have a default handler set up, and call: : > (hunchentoot:start-server :port 8888) : > : > and it works fine. : > : > However, when I call the above function from inside the startup : > sequence of the asdf system that loads the app, it hangs. : > : > What am I doing wrong here? : : You should send real code so we can see what you're doing. FWIW, I : don't know what you mean with "from inside the startup sequence."
Well, it's difficult to simulate, but I'll try. The last file loaded by asdf does this:
(defun rlg-start () "Entry point after loading via asdf/require." (db:connect-to-rlg) (ajax:rlg-web-start :port 9000))
(rlg-start)
------------------------
And another file has this:
(in-package :ajax)
(defparameter *rlg-server* nil)
(defun rlg-web-start (&key port) "Start the server, initialize dispatch table." (setf *dispatch-table* (list (create-static-file-dispatcher-and-handler "/index.html" #P "web/ah01/") 'default-dispatcher)) (format t "; --> Starting...~%") (setf *rlg-server* (hunchentoot:start-server :port 4242)) (format t "; --> Ready!~%"))
Jonathon McKitrick -- My other computer is your Windows box.