/[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.130 by heller, Tue Apr 19 20:17:55 2005 UTC revision 1.131 by lgorrie, Wed Apr 20 10:23:29 2005 UTC
# Line 41  Line 41 
41    
42  ;;; TCP Server  ;;; TCP Server
43    
44    (defun communication-style ()
45      (if (and (member :sb-thread *features*)
46               (not (sb-alien:extern-alien "linux_no_threads_p" sb-alien:boolean)))
47          :spawn
48          :fd-handler))
49    
50  (defimplementation preferred-communication-style ()  (defimplementation preferred-communication-style ()
51    (if (sb-int:featurep :sb-thread) :spawn :fd-handler))    (if (sb-int:featurep :sb-thread) :spawn :fd-handler))
52    

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

  ViewVC Help
Powered by ViewVC 1.1.5