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

Diff of /slime/swank-sbcl.lisp

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

revision 1.154 by nsiivola, Wed Apr 12 08:43:55 2006 UTC revision 1.155 by crhodes, Wed Apr 19 09:18:53 2006 UTC
# Line 32  Line 32 
32  ;;; TCP Server  ;;; TCP Server
33    
34  (defimplementation preferred-communication-style ()  (defimplementation preferred-communication-style ()
35    (if (and (member :sb-thread *features*)    (cond
36             #+linux      ;; fixme: when SBCL/win32 gains better select() support, remove
37             (not (sb-alien:extern-alien "linux_no_threads_p" sb-alien:boolean)))      ;; this.
38        :spawn      ((member :win32 *features*) nil)
39        :fd-handler))      ((and (member :sb-thread *features*)
40              #+linux
41              (not (sb-alien:extern-alien "linux_no_threads_p" sb-alien:boolean)))
42          :spawn)
43        (t :fd-handler)))
44    
45  (defun resolve-hostname (name)  (defun resolve-hostname (name)
46    (car (sb-bsd-sockets:host-ent-addresses    (car (sb-bsd-sockets:host-ent-addresses

Legend:
Removed from v.1.154  
changed lines
  Added in v.1.155

  ViewVC Help
Powered by ViewVC 1.1.5