From f842bbed191d50aa9c580384202aa568a2442d73 Mon Sep 17 00:00:00 2001
From: John Darrington <jmd@gnu.org>
Date: Sat, 5 Jul 2014 14:30:51 +0200
Subject: [PATCH] gnu: Add gcl.

* gnu-system.am (GNU_SYSTEM_MODULES): Add new package.
* gnu/packages/lisp.scm: New file.
---
 gnu-system.am         |  1 +
 gnu/packages/lisp.scm | 81 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 82 insertions(+)
 create mode 100644 gnu/packages/lisp.scm

diff --git a/gnu-system.am b/gnu-system.am
index 90f9033ac6..a538c4594b 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -144,6 +144,7 @@ GNU_SYSTEM_MODULES =				\
   gnu/packages/libunwind.scm			\
   gnu/packages/lightning.scm			\
   gnu/packages/linux.scm			\
+  gnu/packages/lisp.scm			\
   gnu/packages/lout.scm				\
   gnu/packages/lsh.scm				\
   gnu/packages/lsof.scm				\
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
new file mode 100644
index 0000000000..065bb46b7e
--- /dev/null
+++ b/gnu/packages/lisp.scm
@@ -0,0 +1,81 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2014 John Darrington <jmd@gnu.org>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages lisp)
+  #:use-module (gnu packages)
+  #:use-module ((guix licenses)
+                #:renamer (symbol-prefix-proc 'license:))
+  #:use-module (guix packages)
+  #:use-module (gnu packages readline)
+  #:use-module (gnu packages texinfo)
+  #:use-module (gnu packages texlive)
+  #:use-module (gnu packages m4)
+  #:use-module (guix download)
+  #:use-module (guix utils)
+  #:use-module (guix build-system gnu))
+
+(define-public gcl
+  (package
+    (name "gcl")
+    (version "2.6.10")
+    (source
+     (origin
+      (method url-fetch)
+      (uri (string-append "mirror://gnu/" name "/" name "-" version ".tar.gz"))
+      (sha256
+       (base32 "1vsicv81ml7d92c87bckgkpvcshi6hzdnj44k0j6zs5mj8pzp8br"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:parallel-build? #f  ; The build system seems not to be thread safe.
+       #:tests? #f  ; There does not seem to be make check or anything similar.
+       #:configure-flags '("--enable-ansi") ; required for use by the maxima package
+       #:phases (alist-cons-before
+                'configure 'pre-conf
+                (lambda _ 
+                  ;; Patch bug when building readline support.  This bug was
+                  ;; also observed by Debian
+                  ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=741819
+                  (substitute* "o/gcl_readline.d"
+                    (("rl_attempted_completion_function = \\(CPPFunction \\*\\)rl_completion;")
+                      "rl_attempted_completion_function = rl_completion;"))
+                  (substitute* 
+                      (append 
+                       '("pcl/impl/kcl/makefile.akcl"
+                         "add-defs"
+                         "unixport/makefile.dos"
+                         "add-defs.bat"
+                         "gcl-tk/makefile.prev"
+                         "add-defs1")
+                       (find-files "h" "\\.defs"))
+                    (("SHELL=/bin/(ba)?sh")
+                     (string-append "SHELL=" (which "bash")))))
+                %standard-phases)))
+    (native-inputs
+     `(("m4" ,m4)
+       ("readline" ,readline)
+       ("texinfo" ,texinfo)
+       ("texlive" ,texlive)))
+    (home-page "http://www.gnu.org/software/gcl")
+    (synopsis "A Common Lisp implementation")
+    (description "GCL is an implementation of the Common Lisp language.  It
+features the ability to compile to native object code and to load native
+object code modules directly into its lisp core.  It also features a
+stratified garbage collection strategy, a source-level debugger and a built-in
+interface to the Tk widget system.")
+    (license license:lgpl2.0+)))
+