# HG changeset patch
# User c.rhodes <c.rhodes@gold.ac.uk>
# Date 1185210359 -3600
# Node ID 291f3be180e913d13ecd6e2a253087f3c16c3160
# Parent  2c5866238d7b66574843d559f07bff4cc797020d
Use ps13-new-imp with no voiceleading

darcs-hash:20070723170559-dc3a5-c53df5ee6cd49bd3d853fbf7d96a51267066a7fd.gz

diff -r 2c5866238d7b -r 291f3be180e9 implementations/gsharp/gsharp-import.lisp
--- a/implementations/gsharp/gsharp-import.lisp	Mon Jul 23 18:05:36 2007 +0100
+++ b/implementations/gsharp/gsharp-import.lisp	Mon Jul 23 18:05:59 2007 +0100
@@ -142,7 +142,7 @@
          ("f" . :flat) ("ff" . :double-flat))))
   (defun annotate-misspellings (composition)
     (do* ((ocp-list (ocp-list composition))
-          (note-sequence (ps13:ps13-new-imp (map 'list #'cdr ocp-list) 10 42))
+          (note-sequence (ps13:ps13-new-imp (map 'list #'cdr ocp-list) 10 42 nil nil nil))
           (list ocp-list (cdr list))
           (spellings note-sequence (cdr spellings)))
          ((null list))