From 42f118010be14b761144efccae9bdeb33a3db212 Mon Sep 17 00:00:00 2001
From: Mark H Weaver <mhw@netris.org>
Date: Sun, 19 Apr 2015 09:55:01 -0400
Subject: gnu: ccl: Fix inputs on non-Intel platforms.

* gnu/packages/lisp.scm (ccl)[inputs]: Add default cases in 'match' forms.
  Fix pattern in "armhf-linux" case of sha256 field.
---
 gnu/packages/lisp.scm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index f0599a95c6..8f12efb9eb 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -309,15 +309,19 @@ statistical profiler, a code coverage tool, and many other extensions.")
                  "ftp://ftp.clozure.com/pub/release/1.10/ccl-" version "-"
                  (match (%current-system)
                    ((or "i686-linux" "x86_64-linux") "linuxx86")
-                   ("armhf-linux" "linuxarm"))
+                   ("armhf-linux" "linuxarm")
+                   ;; Prevent errors when querying this package on unsupported
+                   ;; platforms, e.g. when running "guix package --search="
+                   (_ "UNSUPPORTED"))
                  ".tar.gz"))
            (sha256
             (base32
              (match (%current-system)
                ((or "i686-linux" "x86_64-linux")
                 "0mr653q5px05lr11z2mk551m5g47b4wq96vbfibpp0qlc9jp58lc")
-               ("armhf"
-                "1py02irpmi2qz5rq3h33wfv6impf15z8i2rign6hvhlqn7s99wwh"))))))))
+               ("armhf-linux"
+                "1py02irpmi2qz5rq3h33wfv6impf15z8i2rign6hvhlqn7s99wwh")
+               (_ ""))))))))
     (native-inputs
      `(("m4" ,m4)
        ("subversion" ,subversion)))
-- 
cgit v1.2.3