fixed a bug that Clack wouldn't run on port 80.

fukamachi · Jun 13, 2011 · 1a7c3ac · 1a7c3ac
1 parent c0696ff
commit 1a7c3ac
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/src/core/handler/apache.lisp b/src/core/handler/apache.lisp
@@ -49,8 +49,9 @@ This function is called on each request."
 (defun command->plist (command)
   (bind ((url (ml:header-value command :url))
          (pos (position #\? url))
-         ((server-name server-port)
+         ((server-name &optional (server-port "80"))
-          (split-sequence #\: (ml:header-value command :host))))
+          (split-sequence #\: (ml:header-value command :host)
+                          :from-end t)))
     (append
      (list
       :request-method (ml:header-value command :method)

diff --git a/src/core/handler/hunchentoot.lisp b/src/core/handler/hunchentoot.lisp
@@ -97,7 +97,7 @@ before pass to Hunchentoot."
 (defun request->plist (req)
   "Convert Request from server into a plist
 before pass to Clack application."
-  (destructuring-bind (server-name server-port)
+  (destructuring-bind (server-name &optional (server-port "80"))
       (split-sequence #\: (host req) :from-end t)
     (append
      (list