Changeset 3319

Show
Ignore:
Timestamp:
06/24/08 18:56:18 (7 months ago)
Author:
hans
Message:

Use :port paramter to parametrize frontend, not backend.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/lisp-ecoop/src/webserver.lisp

    r3315 r3319  
    3838                 :javascript-urls (list (format nil "~Astatic/javascript.js" base-href)))) 
    3939 
    40 (defun start-webserver (&key (port 9000)) 
     40(defun start-webserver (&key (port 9000) (backend-port 9001)) 
    4141  (when (and (boundp '*server*) *server*) 
    4242    (stop-server *server*)) 
    …… 
    4444  (setf *hunchentoot-default-external-format* (flex:make-external-format :utf-8 :eol-style :lf) 
    4545        hunchentoot:*rewrite-for-session-urls* nil) 
    46   (setq *server* (start-server :port port)) 
    47   (start-frontend :backend-port port)) 
     46  (setq *server* (start-server :port backend-port)) 
     47  (start-frontend :backend-port backend-port :port port))