anchor.diff:  
   (defmethod (setf frame-blocking-strategy) (val (frame frame))
     (declare (type (integer 0 1) val)
  -	   (optimize (speed 3) (space 0)))
  +	   (optimize (speed 3)))
     (setf (slot-value frame 'blocking-strategy)
   	(cond
   	 ((= val 0) :fixed)
  
positive.code: 
  (defmethod (setf frame-block-size) (val (frame frame))
    (declare (type (unsigned-byte 4) val)
  	   (optimize (speed 3) (space 0)))
    (setf (slot-value frame 'block-size)
  	(cond
  	 ((= val 1) 192)               ; 0001
  
negative.code: 	      (t (error "Invalid channel assignment")))))
  
  (defmethod (setf frame-sample-size) (val (frame frame))
    (declare (type (unsigned-byte 3) val)
  	   (optimize (speed 3)))
    (let ((sample-sizes (list
  		       (streaminfo-bitspersample (frame-streaminfo frame)) ; 000
  		       8            ; 001
  