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

Diff of /slime/swank-clisp.lisp

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

revision 1.6 by vsedach, Mon Jan 12 06:05:52 2004 UTC revision 1.7 by lgorrie, Tue Jan 13 04:23:12 2004 UTC
# Line 25  Line 25 
25    (use-package "GRAY"))    (use-package "GRAY"))
26    
27  (setq *use-dedicated-output-stream* nil)  (setq *use-dedicated-output-stream* nil)
 (setq *start-swank-in-background* nil)  
28  ;(setq *redirect-output* nil)  ;(setq *redirect-output* nil)
29    
30  #+linux  #+linux
# Line 79  Line 78 
78    
79  ;;; TCP Server  ;;; TCP Server
80    
81  (defmethod create-socket-server (init-fn &key announce-fn (port 0)  (defmethod accept-socket/stream (&key (port 0) announce-fn)
82                                           (accept-background nil)    (get-socket-stream port announce-fn))
83                                           (handle-background nil)  
84                                           (loop nil)  (defmethod accept-socket/run (&key (port 0) announce-fn init-fn)
                                          (reuse-address nil))  
   (declare (ignore loop reuse-address accept-background handle-background))  
85    (let* ((slime-stream (get-socket-stream port announce-fn))    (let* ((slime-stream (get-socket-stream port announce-fn))
86           (handler-fn (funcall init-fn slime-stream)))           (handler-fn (funcall init-fn slime-stream)))
87        (loop (funcall handler-fn))))      (loop while t do (funcall handler-fn))))
88    
89  (defun get-socket-stream (port announce)  (defun get-socket-stream (port announce)
90    (let ((socket (socket:socket-server port)))    (let ((socket (socket:socket-server port)))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5