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

Diff of /slime/swank-ecl.lisp

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

revision 1.5 by dcrosher, Wed Mar 22 16:40:01 2006 UTC revision 1.6 by heller, Thu Aug 10 11:53:35 2006 UTC
# Line 15  Line 15 
15     :specializer-direct-methods     :specializer-direct-methods
16     :compute-applicable-methods-using-classes))     :compute-applicable-methods-using-classes))
17    
 #+nil  
 (ffi:clines "  
 #include <unistd.h>  
 #include <sys/types.h>")  
   
18    
19  ;;;; TCP Server  ;;;; TCP Server
20    
# Line 45  Line 40 
40    (sb-bsd-sockets:socket-close socket))    (sb-bsd-sockets:socket-close socket))
41    
42  (defimplementation accept-connection (socket  (defimplementation accept-connection (socket
43                                        &key (external-format :iso-latin-1-unix)                                        &key external-format
44                                        buffering timeout)                                        buffering timeout)
45    (declare (ignore buffering timeout))    (declare (ignore buffering timeout))
46    (assert (eq external-format :iso-latin-1-unix))    (assert (eq external-format :iso-latin-1-unix))
# Line 166  Line 161 
161               (t               :not-available)))))               (t               :not-available)))))
162        :not-available))        :not-available))
163    
164  (defimplementation function-name ((f function))  (defimplementation function-name (f)
165    (si:compiled-function-name f))    (si:compiled-function-name f))
166    
167  (defimplementation macroexpand-all (form)  (defimplementation macroexpand-all (form)

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

  ViewVC Help
Powered by ViewVC 1.1.5