public static void startFetchEdbGateway(int port) {
    { String lispforms = "#+:aserve\n    (CL:progn\n      (CL:defun handle-fetch-query (request entity)\n        (net.aserve:with-http-response (request entity)\n          (net.aserve:with-http-body (request entity)\n            (CL:case (net.aserve:request-method request)\n              (:get\n               (CL:let ((query (net.aserve:request-query request\n                                                         :uri CL:t\n                                                         :post CL:nil))\n                        (keys (stella::new-key-value-list)))\n                 (CL:loop for (key . value) in query\n                     do (stella::insert-at\n                         keys\n                         (stella::wrap-string (CL:string key))\n                         (stella::wrap-string value)))\n                 (evaluate-fetch-query\n                  keys (net.aserve:request-reply-stream request))))\n              (CL:t\n               (CL:format (net.aserve:request-reply-stream request) \n                          \"Error occurred:<BR>~%Unhandled request method ~S\"\n                          (net.aserve:request-method request)))))))\n      (CL:defun start-fetch-EDB-servlet (port)\n        (CL:compile 'handle-fetch-query)\n        (net.aserve:publish :path \"/ploom/fetch-EDB-query\"\n                            :content-type \"text/html\"\n                            :function 'handle-fetch-query)\n        (net.aserve:start :port port)))\n    #-:aserve ()";

    }
  }