Hi,
I've just set up fomus on cygwin (clisp, cm) but I'm having a little
trouble getting it working.
I'm just trying the first example in the docs as listed below but
I get an error message: "*** - -: NIL is not a number".
I know this is a pretty common Lisp error (excuse the unintentional pun!)
but I'm not sure where I should be looking to resolve it.
Any suggestions would be very much appreciated.
Thanks a million,
Brian
This is the example code:
-------------------------
(fomus
:output '(:lilypond :view t)
:ensemble-type :orchestra
:parts
(list
(make-part
:name "Piano"
:instr :piano
:events
(loop
for off from 0 to 10 by 1/2
collect (make-note :off off
:dur (if (< off 10) 1/2 1)
:note (+ 48 (random 25))
:marks (when (<= (random 3) 0)
'(:staccato)))))))
This is the error message I'm getting
(including some initial startup warnings):
------------------------------------------
CM[1]> (load "/usr/local/lisp/fomus/load.lisp")
...
WARNING: DEFUN/DEFMACRO: redefining function MAKE-PART in
/usr/local/lisp/fomus/classes.fas, was defined in
/usr/local/lisp/cm/bin/clisp_2.38_cygwin_nt-5.1-i686/pkg.fas
WARNING: DEFUN/DEFMACRO: redefining function MAKE-NOTE in
/usr/local/lisp/fomus/classes.fas, was defined in
/usr/local/lisp/cm/bin/clisp_2.38_cygwin_nt-5.1-i686/pkg.fas
...
WARNING: DEFUN/DEFMACRO: redefining function GET-INSTR-SYMS in
/usr/local/lisp/fomus/util.fas, was defined in
/usr/local/lisp/cm/bin/clisp_2.38_cygwin_nt-5.1-i686/pkg.fas
...
WARNING: DEFUN/DEFMACRO: redefining function FOMUS in
/usr/local/lisp/fomus/interface.fas, was defined in
/usr/local/lisp/cm/bin/clisp_2.38_cygwin_nt-5.1-i686/pkg.fas
WARNING: DEFUN/DEFMACRO: redefining function FOMUS-FILE in
/usr/local/lisp/fomus/interface.fas, was defined in
/usr/local/lisp/cm/bin/clisp_2.38_cygwin_nt-5.1-i686/fomus.fas
...
;; FOMUS v0.2.1
;; Lisp music notation formatter
;; Copyright (c) 2005, 2006 David Psenicka, All Rights Reserved
;; See file "COPYING" for terms of use and distribution.
;; Loaded file /usr/local/lisp/fomus/final.fas
;; Loaded file /usr/local/lisp/fomus/load.lisp
T
CM[2]> (fomus "/usr/local/lisp/fomus1.txt")
;; Loading input file "/usr/local/lisp/fomus1.txt"...
;; Formatting music...
*** - -: NIL is not a number
The following restarts are available:
USE-VALUE :R1 You may input a value to be used instead.
ABORT :R2 ABORT
Break 1 CM[3]>
