anchor.diff:  (defun print-all-registered-nodes (&optional (host "localhost") (stream t))
     "Query the EPMD about all registered nodes and print the information."
     (with-epmd-connection-stream (epmd host)
  -    (write-sequence (make-names-request) epmd)
  +    (write-names-request epmd)
       (finish-output epmd)
       (multiple-value-bind (epmd-port node-info)
           (read-names-response epmd)
         (declare (ignore epmd-port))
  -      (princ node-info stream)
  +      (format stream "~{~a~%~}" node-info)
         t)))
   
   
  
positive.code: ;;
  
  (defun make-names-request ()
    (concatenate 'vector
                 (uint16-to-bytes 1)
                 (vector +names-req+)))
  
  
  ;;;
  ;;; NAMES_RESP
  
negative.code: ;;
  
  (defun read-names-response (stream)
    (values (handler-case (read-uint32 stream)
              (end-of-file () (error 'connection-closed-error)))
            (loop
               for line = (read-line stream nil)
               while line collect line)))
  
  
  ;;;
  