anchor.diff:  (defconstant +bytes-per-second+ 88200)
   (defconstant +bytes-per-sample+ 2)
   (defconstant +bits-per-sample+ 16)
  +(defconstant +extension-size+ 0)
   
   (defconstant +data-id+ "data")
   (defconstant +data-size+ 0)
  
positive.code:    (io :initform nil
             :initarg :io
             :accessor io)
     (num-channels :initform +num-channels+
                   :initarg :num-channels
                   :accessor num-channels)
  
negative.code:     (write-uint (io wave-object) (sample-rate wave-object) 4)
      (write-uint (io wave-object) (bytes-per-second wave-object) 4)
      (write-uint (io wave-object) byte-width 2)
      (write-uint (io wave-object) (bits-per-sample wave-object) 2)
      (when (= (fmt-size wave-object) 18)
        (write-uint (io wave-object) (extension-size wave-object) 2))
      (write-tag (io wave-object) +data-id+)
      (write-uint (io wave-object) (* data-size byte-width) 4)
      (loop for frame in (frames wave-object) do
  