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

Diff of /slime/swank-allegro.lisp

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

revision 1.64 by heller, Wed Nov 24 19:49:18 2004 UTC revision 1.65 by heller, Mon Nov 29 17:35:03 2004 UTC
# Line 51  Line 51 
51  (defimplementation close-socket (socket)  (defimplementation close-socket (socket)
52    (close socket))    (close socket))
53    
54  (defimplementation accept-connection (socket &key external-format)  (defimplementation accept-connection (socket
55                                          &key (external-format :iso-latin-1-unix))
56    (let ((s (socket:accept-connection socket :wait t)))    (let ((s (socket:accept-connection socket :wait t)))
57      (set-external-format s external-format)      (set-external-format s external-format)
58      s))      s))

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

  ViewVC Help
Powered by ViewVC 1.1.5