Update Nyquist to v3.09.

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

@@ -0,0 +1,33 @@
+; machine.lsp -- machine/system-dependent definitions
+; 	sparc
+
+(setf *default-sound-srate* 8192)
+
+(if (not (boundp '*default-sf-format*))
+    (setf *default-sf-format* snd-head-NeXT))
+
+(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 r ()
+  (system (format nil
+                  "play ~A"
+                  *default-sound-file*)))
+
+(defmacro play (expr)
+  `(prog (specs)
+         (setf specs (s-save ,expr NY:ALL *default-sound-file*))
+         (r)))
+
+