anchor.diff:  (defun send-command (string &key (expecting nil) (server *server*) (sindex 0) (also nil))
     "send an NNTP command and read response. Return first digit of response and entire response string"
     (let ((command (if also ;; secondary command string
  -		     (concatenate 'string " " also)
  +		     (concatenate 'string string " " also)
   		     string)))
  -    ;;(format t "SENDING [~A]~%" command)
  +    (format t "SENDING [~A]~%" command)
       (handler-case
  -	(let ((socket (elt (server-sock server) sindex)))
  +	(let ((socket (socket server sindex)))
   	  (format (usocket:socket-stream socket) "~A~C~C" command #\return #\linefeed)
   	  (force-output (usocket:socket-stream socket))
   	  (read-response :expecting expecting :server server :sindex sindex))
  
positive.code: 	       :sock (make-array 1 )
  	       :grp  (make-array 1 :element-type 'string :initial-element "alt.autos.camaro")))
  
  (defun socket (&optional (server *server*) (sindex 0))
    (elt (server-sock server) sindex))
  
  (define-condition nntp-error (error)
    ((message
  
negative.code:     (if expecting
  	(unless (eq code expecting) ;if checking for error
  	    (nntp-error code line)))
      (values line code) ;return if ok
  ))
  ;;;
  ;;; Restore server connection and state
  