removed print from bottom of pitch: get-cmn-data

mdedwards · Jan 6, 2025 · a7a0bad · a7a0bad
1 parent 90a1f90
commit a7a0bad
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/pitch.lsp b/src/pitch.lsp
@@ -19,7 +19,7 @@
 ;;;
 ;;; Creation date:    March 18th 2001
 ;;;
-;;; $$ Last modified:  14:45:04 Sat Oct 19 2024 CEST
+;;; $$ Last modified:  10:19:55 Mon Jan  6 2025 CET
 ;;;
 ;;; SVN ID: $Id$
 ;;;
@@ -2147,7 +2147,7 @@ pitch::add-mark: mark PIZZ already present but adding again!
       result
       (apply #'cmn::note (econs 
                           (if (listp result)
-                            (print (loop for i in result collect (eval i)))
+                            (loop for i in result collect (eval i))
                             (list (eval result)))
                           (eval (rm-package rhythm :cmn)))))))