Update of /project/fomus/cvsroot/fomus In directory common-lisp.net:/tmp/cvs-serv19049

Modified Files: load.lisp Log Message: Bug fix Date: Fri Aug 5 19:25:15 2005 Author: dpsenicka

Index: fomus/load.lisp diff -u fomus/load.lisp:1.3 fomus/load.lisp:1.4 --- fomus/load.lisp:1.3 Fri Jul 29 10:58:20 2005 +++ fomus/load.lisp Fri Aug 5 19:25:15 2005 @@ -1,15 +1,16 @@ ;; -*-lisp-*- ;; Load file for FOMUS

-(let ((fl '("package" "version" "misc" "deps" "data" "classes" "util" "accidentals" "beams" "marks" - "other" "ottavas" "parts" "postproc" "split" "staves" "voices" "quantize" "backend_ly" - "backends" "main" "interface" "final"))) - (when (some (lambda (na) (let* ((cl (merge-pathnames na *load-pathname*)) - (cn (compile-file-pathname cl)) - (wd (file-write-date cn))) - (or (null wd) (>= (file-write-date cl) (file-write-date cn))))) fl) - (loop for na in fl - for cl = (merge-pathnames na *load-pathname*) - for cn = (compile-file-pathname cl) do - (compile-file cl) - (load cn)))) \ No newline at end of file +(loop with fl = '("package" "version" "misc" "deps" "data" "classes" "util" "accidentals" "beams" "marks" + "other" "ottavas" "parts" "postproc" "split" "staves" "voices" "quantize" "backend_ly" + "backends" "main" "interface" "final") + and nw + for na in fl + for cl = (merge-pathnames na *load-pathname*) + for cn = (compile-file-pathname cl) do + (when (or nw + (not (probe-file cn)) + (>= (file-write-date cl) (file-write-date cn))) + (compile-file cl) + (setf nw t)) + (load cn)) \ No newline at end of file