summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPierre Neidhardt <mail@ambrevar.xyz>2020-03-07 17:11:49 +0100
committerPierre Neidhardt <mail@ambrevar.xyz>2020-03-07 17:12:35 +0100
commit262d6ed4652f7274af8f0ec0a8d32f9e895c417f (patch)
treeb6abe7ed79d777b289fe492588d0e319ed378cd2
parent322ea25c5685b1383e0d9d11aec1e6f528aaf1e7 (diff)
gnu: next: Fix build with SBCL 2.0.2.
* gnu/packages/web-browsers.scm (next)[arguments]: Fix lambda-list type error on SBCL 2.0.2.
-rw-r--r--gnu/packages/web-browsers.scm12
1 files changed, 11 insertions, 1 deletions
diff --git a/gnu/packages/web-browsers.scm b/gnu/packages/web-browsers.scm
index c68c91170b..8a6ffaeef1 100644
--- a/gnu/packages/web-browsers.scm
+++ b/gnu/packages/web-browsers.scm
@@ -575,7 +575,17 @@ key-bindings and is fully configurable and extensible in Common Lisp.")
(format #t "~a" ,(package-version next-gtk-webkit))))
(invoke "make" "install-assets"
(string-append "PREFIX="
- (assoc-ref outputs "out"))))))))
+ (assoc-ref outputs "out")))))
+ (add-after 'unpack 'fix-lambda-list
+ ;; Starting from SBCL 2.0.2, Next 1.5.0 won't build
+ ;; because of a weird lambda list type.
+ (lambda _
+ (substitute* "source/keymap.lisp"
+ (("^\\(declaim .* define-key\\)\\)") ""))
+ (substitute* "source/search-buffer.lisp"
+ (("define-key :keymap keymap \"C-s\"") "define-key \"C-s\"")
+ (("\\(update-selection-highlight-hint :follow t :scroll t\\)\\)\\)")
+ "(update-selection-highlight-hint :follow t :scroll t)) :keymap keymap)")))))))
(inputs
`(("alexandria" ,sbcl-alexandria)
("bordeaux-threads" ,sbcl-bordeaux-threads)