1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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)))
|
