[gsharp-cvs] CVS gsharp/Mxml

crhodes crhodes at common-lisp.net
Sat Feb 9 18:21:00 UTC 2008


Update of /project/gsharp/cvsroot/gsharp/Mxml
In directory clnet:/tmp/cvs-serv15850

Modified Files:
	mxml.lisp 
Log Message:
One or two more stylistic changes.


--- /project/gsharp/cvsroot/gsharp/Mxml/mxml.lisp	2008/02/09 18:17:20	1.6
+++ /project/gsharp/cvsroot/gsharp/Mxml/mxml.lisp	2008/02/09 18:21:00	1.7
@@ -1004,9 +1004,9 @@
       (cxml:with-element "type" (cxml:text type))
       (loop repeat dots
          do (cxml:with-element "dot"))
-      (if (> (hash-table-count *staff-hash*) 1)
-          (cxml:with-element "staff"
-            (cxml:text (write-to-string (gethash (staff rest) *staff-hash*))))))))
+      (when (> (hash-table-count *staff-hash*) 1)
+	(cxml:with-element "staff"
+	  (cxml:text (write-to-string (gethash (staff rest) *staff-hash*))))))))
 
 (defmethod make-xml-element ((cluster cluster) voice)
   ;; this maybe should get called earlier. or later. i don't know.
@@ -1034,9 +1034,9 @@
       (unless (null voice)
         (cxml:with-element "voice" (cxml:text (write-to-string voice))))
       ;; TODO: make this use the first melody staff above the lyrics staff
-      (if (> (hash-table-count *staff-hash*) 1)
-          (cxml:with-element "staff"
-            (cxml:text (write-to-string (gethash (staff lyric) *staff-hash*)))))
+      (when (> (hash-table-count *staff-hash*) 1)
+	(cxml:with-element "staff"
+	  (cxml:text (write-to-string (gethash (staff lyric) *staff-hash*)))))
       (cxml:with-element "lyric"
         (cxml:with-element "syllabic" (cxml:text syllabic))
         (cxml:with-element "text" (cxml:text text))))))




More information about the Gsharp-cvs mailing list