[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-149-gcdeb96b

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  cdeb96b82d4633877d4f711675f8c2f07caaa976 (commit)
      from  9e6f49844679ef45148f18178c8eb8900d6db7d3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit cdeb96b82d4633877d4f711675f8c2f07caaa976
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Sat Nov 3 21:22:04 2012 +0100

    Minor string check to prevent unknown alsa card errors

diff --git a/contrib/amixer.lisp b/contrib/amixer.lisp
index 8309030..53d4aee 100644
--- a/contrib/amixer.lisp
+++ b/contrib/amixer.lisp
@@ -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))

-----------------------------------------------------------------------

Summary of changes:
 contrib/amixer.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager