[CM] ; floor argument 93.649190420188-93.649190420188i is a complex, but should

[Heinrich Taube]

;floor argument 93.649190420188-93.649190420188i is a complex, but  
should
be a real, line 6
wrong-type-arg

ok, this works on osx so  maybe a number issue for windows. ill wait  
to see if bil has any ideas.
btw there is an implementaton of loop which is much easier than do:

(with-sound (:play #t)
   (loop for i from 0 to 7
      do (p (* i .5) :duration .5
                :keyNum (+ 24 (* 12 i))
                :strike-velocity .5
                :amp .4
                :DryPedalResonanceFactor .25)))