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