anchor.diff:  (defun queue-empty-p (queue)
     (null (car queue)))
   
  +;; The juicy stuff.
   (defclass client ()
     ((socket :accessor socket :initarg :socket
              :initform (error "Must provide a socket for this client."))
  
positive.code:              do (setf (aref string i) (code-char code)))
            (setf (input-buffer-fill client) 0)
            string)))))
  
negative.code:         (format t "Received unexpected EOF from client.~%")
          (finish-output)
          (disconnect client :close)))))
  
  (defgeneric on-write (client)
    (:method ((client client))
  