06/09: gnu: ccl: Install included libraries.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit fc7d5a34d01fb9ad84bc28942595867eda12f0ba
Author: Andy Patterson <address@hidden>
Date:   Wed Mar 15 22:12:10 2017 -0400

    gnu: ccl: Install included libraries.
    
    * gnu/packages/lisp.scm (ccl)[arguments]: Add 'srfi-26' to '#:modules', and
    copy the included libraries to the output in the 'install' phase.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/lisp.scm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 60e381d..208da70 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -414,6 +414,9 @@ statistical profiler, a code coverage tool, and many other 
extensions.")
        ("subversion" ,subversion)))
     (arguments
      `(#:tests? #f                      ;no 'check' target
+       #:modules ((srfi srfi-26)
+                  (guix build utils)
+                  (guix build gnu-build-system))
        #:phases
        (alist-replace
         'unpack
@@ -465,10 +468,16 @@ statistical profiler, a code coverage tool, and many 
other extensions.")
                         ;; "guix package --search="
                         (_              "UNSUPPORTED")))
                     (heap (string-append kernel ".image")))
-               (mkdir-p libdir)
+               (install-file kernel libdir)
+               (install-file heap libdir)
+
+               (let ((dirs '("lib" "library" "examples" "contrib"
+                             "tools" "objc-bridge")))
+                 (for-each copy-recursively
+                           dirs
+                           (map (cut string-append libdir <>) dirs)))
+
                (mkdir-p bindir)
-               (copy-file kernel (string-append libdir kernel))
-               (copy-file heap (string-append libdir heap))
                (with-output-to-file wrapper
                  (lambda ()
                    (display