diff options
| author | Guillaume Le Vaillant <glv@posteo.net> | 2020-09-16 20:15:43 +0200 |
|---|---|---|
| committer | Guillaume Le Vaillant <glv@posteo.net> | 2020-09-16 20:15:43 +0200 |
| commit | e1dda5ddfd1f6cfc0af59b49f8db384c07189b45 (patch) | |
| tree | 73aaf0ecbcf832907d7e9e1cd597f51f7741fcb5 | |
| parent | 4287ee6970a26f7706ab65bb0642accbced0148d (diff) | |
| download | guix-patches-e1dda5ddfd1f6cfc0af59b49f8db384c07189b45.tar guix-patches-e1dda5ddfd1f6cfc0af59b49f8db384c07189b45.tar.gz | |
gnu: Add some missing ECL packages.
* gnu/packages/lisp-xyz.scm (sbcl-antik-base)[arguments]: Remove
physical-dimensions and science-data from 'asd-systems'. Update 'fix-build'
phase accordingly.
(ecl-antik-base, ecl-gsll): New variables.
(sbcl-antik)[arguments]: Add 'asd-systems'. Update 'fix-build' phase
accordingly.
| -rw-r--r-- | gnu/packages/lisp-xyz.scm | 35 |
1 files changed, 27 insertions, 8 deletions
diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index 9662a36a85..cd04f8db96 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -6814,14 +6814,15 @@ your own classes.") `(("lisp-unit" ,sbcl-lisp-unit))) (arguments '(#:asd-systems '("antik-base" - "foreign-array" - "physical-dimension" - "science-data") + "foreign-array") #:phases (modify-phases %standard-phases (add-after 'unpack 'fix-build (lambda _ - (delete-file "antik.asd") + (for-each delete-file + '("antik.asd" + "physical-dimension.asd" + "science-data.asd")) #t))))) (synopsis "Scientific and engineering computation in Common Lisp") (description @@ -6838,6 +6839,21 @@ computer known.") (define-public cl-antik-base (sbcl-package->cl-source-package sbcl-antik-base)) +(define-public ecl-antik-base + (let ((pkg (sbcl-package->ecl-package sbcl-antik-base))) + (package + (inherit pkg) + (arguments + (substitute-keyword-arguments (package-arguments pkg) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'unpack 'fix-readtable + (lambda _ + (substitute* "input-output/readtable.lisp" + (("#-ccl") + "#-(or ccl ecl)")) + #t))))))))) + (define-public sbcl-gsll (let ((commit "1a8ada22f9cf5ed7372d352b2317f4ccdb6ab308") (revision "1")) @@ -6899,6 +6915,9 @@ intending to program in Lisp.") (define-public cl-gsll (sbcl-package->cl-source-package sbcl-gsll)) +(define-public ecl-gsll + (sbcl-package->ecl-package sbcl-gsll)) + (define-public sbcl-antik (package (inherit sbcl-antik-base) @@ -6907,15 +6926,15 @@ intending to program in Lisp.") `(("antik-base" ,sbcl-antik-base) ("gsll" ,sbcl-gsll))) (arguments - '(#:phases + '(#:asd-systems '("antik" + "science-data") + #:phases (modify-phases %standard-phases (add-after 'unpack 'fix-build (lambda _ (for-each delete-file '("antik-base.asd" - "foreign-array.asd" - "physical-dimension.asd" - "science-data.asd")) + "foreign-array.asd")) #t))))))) (define-public cl-antik |