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

Diff of /slime/swank-lispworks.lisp

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

revision 1.82 by heller, Fri Feb 10 16:54:01 2006 UTC revision 1.83 by dcrosher, Wed Mar 22 16:40:01 2006 UTC
# Line 67  Line 67 
67    
68  (defimplementation accept-connection (socket  (defimplementation accept-connection (socket
69                                        &key (external-format :iso-latin-1-unix)                                        &key (external-format :iso-latin-1-unix)
70                                        buffering)                                        buffering timeout)
71    (declare (ignore buffering))    (declare (ignore buffering timeout))
72    (assert (eq external-format :iso-latin-1-unix))    (assert (eq external-format :iso-latin-1-unix))
73    (let* ((fd (comm::get-fd-from-socket socket)))    (let* ((fd (comm::get-fd-from-socket socket)))
74      (assert (/= fd -1))      (assert (/= fd -1))

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

  ViewVC Help
Powered by ViewVC 1.1.5