Update Nyquist to v3.09.

lib-src/libnyquist/nyquist/sys/unix/pmax/system.lsp

@@ -0,0 +1,37 @@
+; machine.lsp -- machine/system-dependent definitions
+; 	rs6000
+
+(if (not (boundp '*default-sf-format*))
+    (setf *default-sf-format* snd-head-none))
+
+(if (not (boundp '*default-sound-file*))
+    (compute-default-sound-file))
+
+(if (not (boundp '*default-sf-dir*))
+    (setf *default-sf-dir* "/tmp/"))
+
+(if (not (boundp '*default-sf-mode*))
+    (setf *default-sf-mode* snd-mode-pcm))
+
+(if (not (boundp '*default-sf-bits*))
+    (setf *default-sf-bits* 16))
+
+; local definition for play
+
+
+(defun p6k ()
+  (system (format nil
+           "/usr/itc/projects/depot/tactus/bin/acpaplay ~A/~A < playparms"
+           *default-sf-dir*
+           *default-sound-file*)))
+
+
+(defmacro play (expr)
+  `(prog (specs playparms)
+         (setf specs (s-save ',expr 1000000000 *default-sound-file*))
+         (setf playparms (open "playparms" :direction :output))
+         (format playparms "~A~%16~%2~%~A~%" (car specs) (cadr specs))
+         (close playparms)
+         (p6k)))
+
+