Re: problems running v. 70-190a with ACL 6.2

Hello Ben,

I see two definitions of %allocate-resource in cl-http
one in clim-sys;resources.lisp like
(defmethod %allocate-resource ((resource resource) args &aux newly-created-p)
   (with-slots (free-list) resource
       (flet ((create-object ()
                   (let* ((constructor (resource-constructor resource))
                             (object (apply constructor resource args)))
                      (with-atomic-execution
                          (vector-push-extend object (resource-pool 
resource)))
                      (setq newly-created-p t)
                      object)))
          (declare (inline create-object))
          ;; find an object
          (let ((object (or (with-atomic-execution (pop free-list)) 
(create-object)))
                  (initializer (resource-initializer resource)))
             (when initializer
               (if (clim-sys-p resource)
                   (apply initializer object args)
                 (apply initializer resource object args)))
             (values object newly-created-p)))))

and a second in
mcl;server;resources.lisp
(defmethod %allocate-resource ((resource resource) args &aux newly-created-p)
   (with-slots (free-list) resource
       (flet ((create-object ()
                   (let* ((constructor (resource-constructor resource))
                             (object (apply constructor resource args)))
                      (with-atomic-execution
                          (vector-push-extend object (resource-pool 
resource)))
                      (setq newly-created-p t)
                      object)))
          (declare (inline create-object))
          ;; find an object
          (let ((object (or (with-atomic-execution (pop free-list)) 
(create-object)))
                  (initializer (resource-initializer resource)))
             (when initializer
                 (apply initializer resource object args))
             (values object newly-created-p)))))

They only differ in the the form
(if (clim-sys-p resource)
                   (apply initializer object args)
                 (apply initializer resource object args))

In my environment the former definition is active since clim-sys is loaded 
before cl-http-sys
I would bet a glass of spanish cava that for some reason in your 
environment the clim-sys version of allocate resource is active.
Either you use the mcl definition or 
change  path-initialize-resourced-server to
(defun patch-initialize-resourced-server (server set-stream set-host 
set-address)
  (initialize-resourced-server 'http-server server set-stream set-host 
set-address))
Hope that helps

Karsten