anchor.diff:  ;;;
   ;;; TCP Clients
   ;;;
  -
   (defclass tcp-client (fundamental-character-stream)
     ((account :initform nil :accessor account)
      (avatar :initform nil :accessor avatar)
  
positive.code:     (format s "~A:~A" (remote-name client) (port client))))
  
  ;;; Gray streams stuff
  
  (defmethod close ((client tcp-client) &key abort)
    (close (socket client) :abort abort))
  (defmethod open-stream-p ((client tcp-client))
  
negative.code: (defun queue-empty-p (queue)
    (null (car queue)))
  
  (defun queue-peek (q)
    (caar q))
  
  (defun queue-tail (q)
    (car (last (cdr q))))
  
  ;;;
  ;;; Config variables
  ;;;
  