Function: GEN-ENTRY-POINT-LAMBDA

Source

(defun gen-entry-point-lambda (url request-lambda-list body)
  `(lambda ()
     (ucw.component.action.dribble
      ,(concatenate 'string
                    "Serving entry point '" url "' in session ~S.")
      (session.id (context.session *context*)))
     (with-request-params ,request-lambda-list
       (context.request *context*)
       (with-call/cc
           (let (self)
             (declare (ignorable self))
             (block nil ,@body))))))