anchor.diff:  (defmethod alsa-write ((pcm pcm-stream))
     (assert (eql (direction pcm) :snd-pcm-stream-playback))
     (let* ((expected (/ (buffer-size pcm) (channels-count pcm)))
  -         (result (snd-pcm-writei (deref (handle pcm)) (buffer pcm) expected)))
  +         (result (with-pointer-to-vector-data (ptr (buffer pcm))
  +		   (snd-pcm-writei (deref (handle pcm)) ptr expected))))
       (cond ((= result (- +epipe+))
              ;; Under run, so prepare and retry
   	   (warn "Underrun!")
  
positive.code: 	  (progn ,@body)
         (also-alsa:drain ,stream)
         (also-alsa:alsa-close ,stream))))
  
negative.code: 
  (eval-when (:compile-toplevel)
    (defconstant +epipe+ 32))
  
  (declaim (inline alsa-element-type to-alsa-format deref ensure-success))
  
  (define-foreign-library libasound
    (:unix "libasound.so.2")
  