[fomus-devel] Error: NIL is not a number

13 Jun 2006

      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

...

;;  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]>