anchor.diff:  (defmethod set-header ((self frame) key value)
     (with-slots (headers) self
       (if (not (assoc key headers :test #'string=))
  -	(setf headers (append (list (list key value)) headers))
  -	(let ((result))
  -	  (dolist (header headers)
  -	    (if (string= (first header) key)
  -		(push (list key value) result)
  -		(push header result)))
  -	  (format t "result: ~s~%" result)
  -	  (setf headers result)))))
  +        (setf headers (append (list (list key value)) headers))
  +        (let ((result))
  +          (dolist (header headers)
  +            (if (string= (first header) key)
  +                (push (list key value) result)
  +                (push header result)))
  +          (format t "result: ~s~%" result)
  +          (setf headers result)))))
   
   ;;-------------------------------------------------------------------------
   ;; stomp
  
positive.code: (defmethod send ((self stomp-connection) string)
    (with-slots (fd) self
      (let ((stream (sb-sys:make-fd-stream fd :output t :element-type '(unsigned-byte 8)
  					 :buffering :none)))
        (write-sequence (sb-ext:string-to-octets string) stream)
        (finish-output stream))))
  
  
negative.code:       ;; open the socket and send the connect string
  
        (with-slots (host port ip socket fd handler) self
          (setf ip (ip-addr-of host))
          (setf socket (sk-make))
          (sk-connect socket ip port)
          (setf fd (sk-file-desc socket))
          (setf handler (sb-sys:add-fd-handler fd :input (lambda (x)
                                                           (declare (ignore x))
                                                           (receive self))))
          (let ((frame (make-instance 'frame :name "CONNECT")))
            (if user
                (set-header frame "login" user))
            (if pass
                (set-header frame "passcode" pass))
            (send self frame)))
  
      ;; just log the error for now
  
  