/[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.13 by heller, Tue Jan 13 18:20:04 2004 UTC revision 1.14 by heller, Tue Jan 13 22:51:56 2004 UTC
# Line 43  Line 43 
43    (multiple-value-bind (socket where errno)    (multiple-value-bind (socket where errno)
44        (comm::create-tcp-socket-for-service port :address "localhost")        (comm::create-tcp-socket-for-service port :address "localhost")
45      (cond (socket socket)      (cond (socket socket)
46            (t (error 'network-error "asdf ~A")            (t (error 'network-error
47                :format-control "~A failed: ~A (~D)"                :format-control "~A failed: ~A (~D)"
48                :format-arguments (list where                :format-arguments (list where
49                                        (list #+unix (lw:get-unix-error errno))                                        (list #+unix (lw:get-unix-error errno))
50                                        errno)))))                                        errno))))))
51    
52  (defmethod local-port (socket)  (defmethod local-port (socket)
53    (nth-value 1 (comm:get-socket-address (socket-fd socket))))    (nth-value 1 (comm:get-socket-address (socket-fd socket))))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5