me
/
guix
Archived
1
0
Fork 0

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.
master
Guillaume Le Vaillant 2020-09-16 20:15:43 +02:00
parent 4287ee6970
commit e1dda5ddfd
No known key found for this signature in database
GPG Key ID: 6BE8208ADF21FE3F
1 changed files with 27 additions and 8 deletions

View File

@ -6814,14 +6814,15 @@ your own classes.")
`(("lisp-unit" ,sbcl-lisp-unit))) `(("lisp-unit" ,sbcl-lisp-unit)))
(arguments (arguments
'(#:asd-systems '("antik-base" '(#:asd-systems '("antik-base"
"foreign-array" "foreign-array")
"physical-dimension"
"science-data")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'fix-build (add-after 'unpack 'fix-build
(lambda _ (lambda _
(delete-file "antik.asd") (for-each delete-file
'("antik.asd"
"physical-dimension.asd"
"science-data.asd"))
#t))))) #t)))))
(synopsis "Scientific and engineering computation in Common Lisp") (synopsis "Scientific and engineering computation in Common Lisp")
(description (description
@ -6838,6 +6839,21 @@ computer known.")
(define-public cl-antik-base (define-public cl-antik-base
(sbcl-package->cl-source-package sbcl-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 (define-public sbcl-gsll
(let ((commit "1a8ada22f9cf5ed7372d352b2317f4ccdb6ab308") (let ((commit "1a8ada22f9cf5ed7372d352b2317f4ccdb6ab308")
(revision "1")) (revision "1"))
@ -6899,6 +6915,9 @@ intending to program in Lisp.")
(define-public cl-gsll (define-public cl-gsll
(sbcl-package->cl-source-package sbcl-gsll)) (sbcl-package->cl-source-package sbcl-gsll))
(define-public ecl-gsll
(sbcl-package->ecl-package sbcl-gsll))
(define-public sbcl-antik (define-public sbcl-antik
(package (package
(inherit sbcl-antik-base) (inherit sbcl-antik-base)
@ -6907,15 +6926,15 @@ intending to program in Lisp.")
`(("antik-base" ,sbcl-antik-base) `(("antik-base" ,sbcl-antik-base)
("gsll" ,sbcl-gsll))) ("gsll" ,sbcl-gsll)))
(arguments (arguments
'(#:phases '(#:asd-systems '("antik"
"science-data")
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'fix-build (add-after 'unpack 'fix-build
(lambda _ (lambda _
(for-each delete-file (for-each delete-file
'("antik-base.asd" '("antik-base.asd"
"foreign-array.asd" "foreign-array.asd"))
"physical-dimension.asd"
"science-data.asd"))
#t))))))) #t)))))))
(define-public cl-antik (define-public cl-antik