Fixed up Common Lisp examples using sb-alien.

csound · Aug 29, 2018 · de27f98 · de27f98
1 parent dfc0844
commit de27f98
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/interfaces/csound.asd b/interfaces/csound.asd
@@ -4,7 +4,7 @@
 ;;; Michael Gogins
 ;;; 11 July 2016
 ;;;
-(require :asdf)
+(require "asdf")
 (asdf::defsystem "csound"
   :name "csound"
   :description "CFFI interface to the Csound C API."

diff --git a/interfaces/sb-csound.asd b/interfaces/sb-csound.asd
@@ -11,6 +11,8 @@
   :version "1.0"
   :author "Michael Gogins <michael.gogins@gmail.com>"
   :licence "LLGPL"
+  :depends-on ("sb-posix"
+  "cm2")
   :serial t ;; the dependencies are linear.
   :components  
   ((:file "sb-csound")))

diff --git a/interfaces/sb-csound.lisp b/interfaces/sb-csound.lisp
@@ -80,8 +80,6 @@
 (declaim (inline csoundCleanup))
 (define-alien-routine "csoundCleanup" integer (csound integer))
 
-(set-dispatch-macro-character #\# #\> #'cl-heredoc:read-heredoc)
-
 (in-package :cm)
 (use-package :sb-csound)
 
@@ -112,7 +110,7 @@ using 'test' for character equality.
           when pos do (write-string replacement out)
           while pos)))
 
-(defun render-with-csound (sequence csd-text &optional (channel-offset 1) (velocity-scale 127) (csound nil))
+(defun render-csound (sequence csd-text &optional (channel-offset 1) (velocity-scale 127) (csound nil))
 "
 Given a Common Music seq 'sequence', translates each of its events into a
 Csound 'i' statement, optionally offsetting the channel number and/or