Minor string check to prevent unknown alsa card errors
authorPhilippe Brochard <pbrochard@common-lisp.net>
Sat, 3 Nov 2012 20:22:04 +0000 (3 21:22 +0100)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Sat, 3 Nov 2012 20:22:04 +0000 (3 21:22 +0100)
contrib/amixer.lisp

index 8309030..53d4aee 100644 (file)
@@ -70,7 +70,7 @@
          (fmt "amixer ~A ~A~{ ~A~} 2>/dev/null | tail -1 | ~A")
          (shell (format nil fmt cmd scontrol parameters sed))
          (line (read-line (do-shell shell) nil t)))
-    (when line
+    (when (stringp line)
       (let* ((ratio (parse-integer line :junk-allowed t))
              (%-pos (position #\% line)))
         (values (and ratio (/ ratio 100))