[fomus-cvs] CVS update: fomus/load.lisp

[David Psenicka]

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