anchor.diff:     (second socket)
   
      #+clisp
  -   (if socket (socket-server-port socket) *port*)
  +   (if socket (ext:socket-server-port socket) *port*)
   
      #+(or Allegro use-acl-socket)
      (socket:local-port socket)
  
positive.code:    "close a listener socket"
  
     #+clisp 
     (socket-server-close socket)
  
     ;; default
     (close socket)))
  
negative.code:      (mess 1 "Selecting ~A" select)
       (let ((select-list (select-value select)))
         (when select-list
           (setf (select-value select) (ext:socket-status select-list 60))))
       (mess 1 "Select result ~A" (select-value select))
       select)
  
  