/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.151 by lgorrie, Fri Mar 19 21:07:35 2004 UTC revision 1.152 by lgorrie, Mon Mar 22 13:56:39 2004 UTC
# Line 9  Line 9 
9    
10  (defpackage :swank  (defpackage :swank
11    (:use :common-lisp :swank-backend)    (:use :common-lisp :swank-backend)
12    (:export #:*sldb-pprint-frames*    (:export #:startup-multiprocessing
            #:startup-multiprocessing  
13             #:start-server             #:start-server
14             #:create-swank-server             #:create-swank-server
15             #:ed-in-emacs             #:ed-in-emacs
16               ;; configurables
17               #:*sldb-pprint-frames*
18               #:*communication-style*
19               #:*log-events*
20               #:*use-dedicated-output-stream*
21             ;; re-exported from backend             ;; re-exported from backend
22             #:frame-source-location-for-emacs             #:frame-source-location-for-emacs
23             #:restart-frame             #:restart-frame
# Line 170  corresponding values in the CDR of VALUE Line 174  corresponding values in the CDR of VALUE
174  Redirection is done while Lisp is processing a request for Emacs.")  Redirection is done while Lisp is processing a request for Emacs.")
175    
176  (defvar *use-dedicated-output-stream* t)  (defvar *use-dedicated-output-stream* t)
177  (defvar *swank-in-background* (preferred-communication-style))  (defvar *communication-style* (preferred-communication-style))
178  (defvar *log-events* nil)  (defvar *log-events* nil)
179    
180  (defun start-server (port-file &optional (background *swank-in-background*)  (defun start-server (port-file &optional (background *communication-style*)
181                       dont-close)                       dont-close)
182    (setup-server 0 (lambda (port) (announce-server-port port-file port))    (setup-server 0 (lambda (port) (announce-server-port port-file port))
183                  background dont-close))                  background dont-close))
184    
185  (defun create-swank-server (&optional (port +server-port+)  (defun create-swank-server (&optional (port +server-port+)
186                              (background *swank-in-background*)                              (background *communication-style*)
187                              (announce-fn #'simple-announce-function)                              (announce-fn #'simple-announce-function)
188                              dont-close)                              dont-close)
189    (setup-server port announce-fn background dont-close))    (setup-server port announce-fn background dont-close))

Legend:
Removed from v.1.151  
changed lines
  Added in v.1.152

  ViewVC Help
Powered by ViewVC 1.1.5