I'm sure it worked before, but now it prints the integer, not a
one-element character. Use an explicit call to `string' to fix it.
(make-string nfull ?█)
(if (= width (+ nfull nblank))
""
(make-string nfull ?█)
(if (= width (+ nfull nblank))
""
- (aref " ▏▎▍▌▋▊▉█" (floor (+ frac 0.0625) 0.125)))
+ (string (aref " ▏▎▍▌▋▊▉█" (floor (+ frac 0.0625) 0.125))))
(make-string nblank ? ))))
(defun squeeze-mixer-make-bar (vol width)
(make-string nblank ? ))))
(defun squeeze-mixer-make-bar (vol width)