/\\\          
---\\\---------
----\\\--------
----/\\\------- Common Music 2.6.0
---/--\\\------
--/----\\\-----
 /      \\\/   

? (hertz 60)
261.62555
? (hertz 'a4)
440.0
? (hertz 'A4)
440.0
? (keynum 261 :hz)
59.95855
? (keynum 'A4)
69
? (keynum 440)
440
? (keynum 440 :hz)
69.0
? (keynum 440 :hz t)
69.0
? (keynum 442 :hz)
69.07852
? (round (keynum 442 :hz))
69
0.07852173
? ? (ring-mod 60 33)
(63.30329 55.914185)
? (ring-mod 60 43)
(65.50784 51.874855)
? (ring-mod 60 23)
(61.9308 57.826515)
? (define list-1 (list 1 2 3))
? (define list-2 (list 5 6 7))
? list-1
(1 2 3)
? list-2
(5 6 7)
? (and list-1 list-2)
(5 6 7)
? (define empty-list nil)
? empty-list
NIL
? (and list-1 empty-list)
NIL
? (and empty-list list-1)
NIL
? (or list-1 empty-list)
(1 2 3)
? (or empty-list list-1)
(1 2 3)
? ? (ring-mod-list (list 60 61 63 65) (list 40 40 40 40))
((64.74049 53.450607) (65.506165 54.89173) (67.06781 57.67295) (68.66771 60.34045))
? (pitch 60)
> Error in process listener(4): Undefined function PITCH called with arguments (60) .
> While executing: "Unknown"
> Type :GO to continue, :POP to abort.
> If continued: Retry applying PITCH to (60).
Type :? for other options.
1 > :pop

? (note end-frequency 440)
> Error in process listener(4): Unbound variable: END-FREQUENCY
> While executing: CCL::CHEAP-EVAL-IN-ENVIRONMENT
> Type :GO to continue, :POP to abort.
> If continued: Retry getting the value of END-FREQUENCY.
Type :? for other options.
1 > :pop

? (note 440)
> Error in process listener(4): No note for keynum 440 in #<tuning "chromatic-scale">.
> While executing: #<STANDARD-METHOD TUNING-KEYNUM->NOTE (TUNING T T T)>
> Type :POP to abort.
Type :? for other options.
1 > (note 440 :hz)
; Warning: Found :hz tag, use the :hz keyword parameter instead: (NOTE :HZ T)
; While executing: NOTE
A4
1 > :pop

? (note 440 :hz t)
A4
? ? (make-glissando 440 880 10)
(A4 B4 C5 D5 EF5 E5 F5 FS5 G5 A5)
? (make-glissando 440 880 8)
(A4 B4 CS5 EF5 E5 F5 G5 A5)
? (make-glissando 440 880 9)
(A4 B4 C5 D5 EF5 F5 FS5 G5 A5)
? (make-glissando 440 880 13)
(A4 BF4 B4 CS5 D5 EF5 E5 E5 F5 FS5 G5 AF5 A5)
? ? (make-glissando 440 880 13)
(69.0 70.28299 71.4774 72.59473 73.64427 74.63382 75.56985 76.45786 77.30253 78.10791 78.877464 79.61427 81.0)
? (make-glissando 440 880 4)
(69.0 72.86314 76.019554 81.0)
? (make-glissando 440 880 5)
(69.0 72.15642 74.82512 77.13686 81.0)
? ? (make-glissando 440 880 5)
(440 528 616 704 . 880)
? (make-glissando 440 880 4)
(440 550 660 . 880)
? ? (make-glissando 440 880 5)
(440 550 660 770 . 880)
? ? (make-glissando 440 880 5)
(440 550 660 770 880)
? (make-glissando 440 880 5)
(440 550 660 770 880)
? ? (make-glissando 440 880 5)
(69.0 72.86314 76.019554 78.68826 81.0)
? ((78.68826 44.999985) (79.29577 51.029976) (79.882675 55.4936) (80.45035 59.039085) (81.0 61.980453) (81.53273 64.49389) (82.04956 66.68827) (82.55141 68.63551) (83.03911 70.38574) (83.51344 71.97514) (83.97513 73.43081) (84.42483 74.77352) (84.86314 76.019554))
? midi-stream
> Error in process listener(4): Unbound variable: MIDI-STREAM
> While executing: "Unknown"
> Type :GO to continue, :POP to abort.
> If continued: Retry getting the value of MIDI-STREAM.
Type :? for other options.
1 > (midi-stream)
> Error in process listener(4): Undefined function MIDI-STREAM called with arguments () .
> While executing: "Unknown"
> Type :GO to continue, :POP to abort.
> If continued: Retry applying MIDI-STREAM to NIL.
Type :? for other options.
2 > :pop

1 > :pop

? midi-file
> Error in process listener(4): Unbound variable: MIDI-FILE
> While executing: "Unknown"
> Type :GO to continue, :POP to abort.
> If continued: Retry getting the value of MIDI-FILE.
Type :? for other options.
1 > :pop

? *midi-stream*
> Error in process listener(4): Unbound variable: *MIDI-STREAM*
> While executing: "Unknown"
> Type :GO to continue, :POP to abort.
> If continued: Retry getting the value of *MIDI-STREAM*.
Type :? for other options.
1 > :pop

? *midi-file*
> Error in process listener(4): Unbound variable: *MIDI-FILE*
> While executing: "Unknown"
> Type :GO to continue, :POP to abort.
> If continued: Retry getting the value of *MIDI-FILE*.
Type :? for other options.
1 > :pop

? (exit)

Process inferior-lisp finished