From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Darrington Subject: =?UTF-8?q?=5BPATCH=201/2=5D=20gnu=3A=20Add=20gcl=2E?= Date: Sat, 5 Jul 2014 14:55:51 +0200 Message-ID: <1404564952-12213-1-git-send-email-jmd@gnu.org> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:37681) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1X3PVb-000593-47 for guix-devel@gnu.org; Sat, 05 Jul 2014 08:56:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1X3PVW-0008Q9-U9 for guix-devel@gnu.org; Sat, 05 Jul 2014 08:56:03 -0400 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org Cc: John Darrington * gnu-system.am (GNU_SYSTEM_MODULES): Add new package. * gnu/packages/lisp.scm: New file. --- gnu-system.am | 1 + gnu/packages/lisp.scm | 82 +++++++++++++++++++++++++++++++++++++++++++= ++++++ 2 files changed, 83 insertions(+) create mode 100644 gnu/packages/lisp.scm diff --git a/gnu-system.am b/gnu-system.am index 90f9033..a538c45 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -144,6 +144,7 @@ GNU_SYSTEM_MODULES =3D \ 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 0000000..78d7dd9 --- /dev/null +++ b/gnu/packages/lisp.scm @@ -0,0 +1,82 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright =C2=A9 2014 John Darrington +;;; +;;; 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 (a= t +;;; 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 . + +(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 "http://ftp.halifax.rwth-aachen.de/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 s= afe. + #:tests? #f ; There does not seem to be make check or anything s= imilar. + #:configure-flags '("--enable-ansi") ; required for use by the ma= xima package + #:phases (alist-cons-before + 'configure 'pre-conf + (lambda _=20 + ;; Patch bug when building readline support. This bug= was + ;; also observed by Debian + ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=3D= 741819 + (substitute* "o/gcl_readline.d" + (("rl_attempted_completion_function =3D \\(CPPFuncti= on \\*\\)rl_completion;") + "rl_attempted_completion_function =3D rl_completio= n;")) + (substitute*=20 + (append=20 + '("pcl/impl/kcl/makefile.akcl" + "add-defs" + "unixport/makefile.dos" + "add-defs.bat" + "gcl-tk/makefile.prev" + "add-defs1") + (find-files "h" "\\.defs")) + (("SHELL=3D/bin/(ba)?sh") + (string-append "SHELL=3D" (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 bu= ilt-in +interface to the Tk widget system.") + (license license:lgpl2.0+))) + --=20 1.7.10.4