Changeset 3267

Show
Ignore:
Timestamp:
06/15/08 08:34:22 (7 months ago)
Author:
ksprotte
Message:

added &key arg "swank-port" to bos start function

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/build.lisp

    r2979 r3267  
    5353             ~%So I'd like to enforce this here.")) 
    5454 
    55 (defun start () 
     55(defun start (&key (swank-port 4005)) 
    5656  (ensure-sbcl-home) 
    5757  (env-ascii-check) 
    …… 
    6666  ;; slime 
    6767  (asdf:oos 'asdf:load-op :swank) 
    68   (eval (read-from-string "(progn (swank-loader::init) 
    69                              (swank:create-server :port 4005 :dont-close t))")) 
     68  (eval (read-from-string (format nil "(progn (swank-loader::init) 
     69                                         (swank:create-server :port ~D :dont-close t))" swank-port))) 
    7070  ;; start the bos server 
    7171  (apply #'bos.m2::reinit (read-configuration "m2.rc"))