[hunchentoot-devel] Starting a server hangs

[Jonathon McKitrick]

On Mon, Dec 18, 2006 at 08:27:29PM +0100, Edi Weitz wrote:
: On Mon, 18 Dec 2006 18:03:19 +0000, Jonathon McKitrick <jcm at FreeBSD-uk.eu.org> wrote:
: 
: >   (ajax:rlg-web-start :port 9000))
: >
: > [...]
: >
: >     (setf *rlg-server* (hunchentoot:start-server :port 4242))
: 
: You're sure the above is not the culprit?
: 
: Other than that, what you sent is not a self-contained test case.
: Send something that I can just use with instructions how to reproduce
: the faulty behaviour.

Okay, I'm attaching 2 small files.  If you start sbcl, load hunchentoot, then
load hunchentoot-start.lisp, the server will start and all is well.

If you start sbcl, then load test-hunchentoot.asd, the system will hang at the
start-server call.


Jonathon McKitrick
--
My other computer is your Windows box.
-------------- next part --------------
(in-package :cl-user)

(defparameter *rlg-server* nil)

(defun rlg-web-start (&key port)
  "Start the server, initialize dispatch table."
  (setf hunchentoot:*dispatch-table*
	(list (hunchentoot:create-static-file-dispatcher-and-handler
	       "/index.html" #P "web/ah01/")
	      'hunchentoot:default-dispatcher))
  (format t "; --> Starting...~%")
  (setf *rlg-server* (hunchentoot:start-server :port port))
  (format t "; --> Ready!~%"))

(rlg-web-start :port 9000)
-------------- next part --------------
;; -*- mode: lisp; encoding: utf-8 -*-
;; Copyright ?? 2006 Jonathon McKitrick.  All Rights Reserved.

(defpackage :rlg-system (:use :cl :asdf))
(in-package :rlg-system)

(defsystem test-hunchentoot
  :components
  ((:file "hunchentoot-start"))
   :depends-on (:hunchentoot :clsql :cl-pdf :cl-typesetting :html-template))