anchor.diff:  	  (when status
   	    (unwind-protect 
   		 (progn
  -					;(setf (mem-aref (player-out-buffer *player*) :short) (mus-sample-to-short sound))
  -		   (mus-audio-write (player-dac *player*) sound (player-out-bytes *player*))))))))
  -  
  -(defun produce-sound ()
  -  (let ((testo (make-oscil)))
  -    (loop repeat 100
  -       do (let ((outbuffer (make-array (* *buffer-size* *channels*) :element-type '(signed-byte 16)))) 
  -	    (loop for i below (length outbuffer)
  -	       do (setf (aref outbuffer i) (mus-sample-to-short (oscil testo))))
  -	    (send-message *mailbox* outbuffer)))))
  -
  -(defun test ()
  -  (stop-player)
  -  (start-player)
  -  (produce-sound))+		   (mus-audio-write (player-dac *player*) sound (player-out-bytes *player*))))))))
positive.code: 		(send-message *mailbox* outbuffer)))
  
  	(mus-sound-close-input fd)
  	;;(loop for i below chans
  	;;   do (foreign-free (mem-aref bufs :pointer i)))
  	;;(foreign-free bufs)
  	;;(foreign-free obuf)
  	))))
  
  (defstruct (player (:constructor %make-player (out-buffer out-bytes)))
    (out-buffer)
  
negative.code:   (let ((fd (mus-sound-open-input filename)))
      (unless (= fd -1)
        (let* ((channels (mus-sound-chans filename))
  	     (frames (mus-sound-frames filename))
  	     (buffers (foreign-alloc :pointer :count channels)))
  	;;allocate buffers for reading file
  