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

Diff of /slime/swank-backend.lisp

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

revision 1.94 by heller, Sun Nov 20 23:25:38 2005 UTC revision 1.97 by dcrosher, Wed Mar 22 16:40:01 2006 UTC
# Line 84  Line 84 
84     #:slot-definition-type     #:slot-definition-type
85     #:slot-definition-readers     #:slot-definition-readers
86     #:slot-definition-writers     #:slot-definition-writers
87       #:slot-boundp-using-class
88       #:slot-value-using-class
89     ;; generic function protocol     ;; generic function protocol
90     #:compute-applicable-methods-using-classes     #:compute-applicable-methods-using-classes
91     #:finalize-inheritance))     #:finalize-inheritance))
# Line 212  EXCEPT is a list of symbol names which s Line 214  EXCEPT is a list of symbol names which s
214    "Close the socket SOCKET.")    "Close the socket SOCKET.")
215    
216  (definterface accept-connection (socket &key external-format  (definterface accept-connection (socket &key external-format
217                                          buffering)                                          buffering timeout)
218     "Accept a client connection on the listening socket SOCKET.     "Accept a client connection on the listening socket SOCKET.
219  Return a stream for the new connection.")  Return a stream for the new connection.")
220    
# Line 232  Return a stream for the new connection." Line 234  Return a stream for the new connection."
234    "Return one of the symbols :spawn, :sigio, :fd-handler, or NIL."    "Return one of the symbols :spawn, :sigio, :fd-handler, or NIL."
235    nil)    nil)
236    
237    (definterface set-stream-timeout (stream timeout)
238      "Set the 'stream 'timeout.  The timeout is either the real number
239      specifying the timeout in seconds or 'nil for no timeout."
240      (declare (ignore stream timeout))
241      nil)
242    
243  ;;; Base condition for networking errors.  ;;; Base condition for networking errors.
244  (define-condition network-error (simple-error) ())  (define-condition network-error (simple-error) ())
245    
# Line 313  Example: Line 321  Example:
321    (unless (member :asdf *features*)    (unless (member :asdf *features*)
322      (error "ASDF is not loaded."))      (error "ASDF is not loaded."))
323    (with-compilation-hooks ()    (with-compilation-hooks ()
324      (let ((operate (find-symbol "OPERATE" :asdf))      (let ((operate (find-symbol (symbol-name '#:operate) :asdf))
325            (operation (find-symbol operation-name :asdf)))            (operation (find-symbol operation-name :asdf)))
326        (when (null operation)        (when (null operation)
327          (error "Couldn't find ASDF operation ~S" operation-name))          (error "Couldn't find ASDF operation ~S" operation-name))

Legend:
Removed from v.1.94  
changed lines
  Added in v.1.97

  ViewVC Help
Powered by ViewVC 1.1.5