/[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.131 by lgorrie, Wed Apr 20 10:23:29 2005 UTC revision 1.132 by lgorrie, Wed Apr 20 12:43:49 2005 UTC
# Line 41  Line 41 
41    
42  ;;; TCP Server  ;;; TCP Server
43    
44  (defun communication-style ()  (defimplementation preferred-communication-style ()
45    (if (and (member :sb-thread *features*)    (if (and (member :sb-thread *features*)
46             (not (sb-alien:extern-alien "linux_no_threads_p" sb-alien:boolean)))             (not (sb-alien:extern-alien "linux_no_threads_p" sb-alien:boolean)))
47        :spawn        :spawn
48        :fd-handler))        :fd-handler))
   
 (defimplementation preferred-communication-style ()  
   (if (sb-int:featurep :sb-thread) :spawn :fd-handler))  
49    
50  (defun resolve-hostname (name)  (defun resolve-hostname (name)
51    (car (sb-bsd-sockets:host-ent-addresses    (car (sb-bsd-sockets:host-ent-addresses

Legend:
Removed from v.1.131  
changed lines
  Added in v.1.132

  ViewVC Help
Powered by ViewVC 1.1.5