Cheers everyone,
While trying to load the OM-Pursuit library on OM 6.8, I get this message:
Error while loading the library OM-Pursuit:
“No applicable methods for #<standard-generic-function (setf name) 234376BA>
with args (\”PREPARETOPLAY\” #<standard-method preparetoplay (t note t) 2010FD47>)”
The sole instance of PreparetoPlay in the OM-Pursuit folder is in the dispatch-cseq.lisp file and is defined as follows:
(defmethod* PrepareToPlay ((player t) (self note) at &key approx port interval voice)
(when (and midiplayer (not (memq (tie self) '(continue end))))
(setf port (or port (port self)))
(let ((chan (+ (1- (chan self)) (1- (micro-channel (approx-m (midic self) approx) approx))))
(pitch (truncate (approx-scale (get-current-scale approx) (midic self)) 100))
(vel (vel self))
(dur (- (real-dur self) 2))
(date (+ MidiShare-start-time at))
(voice (or voice 0)))
(if interval
(let ((newinterval (interval-intersec interval (list at (+ at (- (real-dur self) 1))))))
(when newinterval
(playnote port chan pitch vel (- (second newinterval) (first newinterval) 1)
(- (+ MidiShare-start-time (first newinterval))
(first interval))
voice)))
(playnote port chan pitch vel dur date voice)))))
I’m sure this is just a matter of some minor debugging of the Library in Lisp. All help, or a working version of OM-Pursuit, will be most welcome.
All the best,
António