From 80a2d068505eab69ff12e4835c6435c22c1e5227 Mon Sep 17 00:00:00 2001
From: Daniel Nagy <danielnagy@posteo.de>
Date: Tue, 9 May 2023 19:30:00 +0200
Subject: [PATCH] lisp-modules.log4cl fix build on sbcl

---
 pkgs/development/lisp-modules/patches/log4cl-fix-build.patch | 5 +++++
 pkgs/development/lisp-modules/ql.nix                         | 3 +++
 2 files changed, 8 insertions(+)
 create mode 100644 pkgs/development/lisp-modules/patches/log4cl-fix-build.patch

diff --git a/pkgs/development/lisp-modules/patches/log4cl-fix-build.patch b/pkgs/development/lisp-modules/patches/log4cl-fix-build.patch
new file mode 100644
index 000000000000..04128217819e
--- /dev/null
+++ b/pkgs/development/lisp-modules/patches/log4cl-fix-build.patch
@@ -0,0 +1,5 @@
+--- a/src/naming-sbcl.lisp
++++ b/src/naming-sbcl.lisp
+@@ -108,1 +108,1 @@
+-              then (sb-c::lambda-parent lambda)
++              then (sb-c::lexenv-lambda (sb-c::lambda-lexenv lambda))
diff --git a/pkgs/development/lisp-modules/ql.nix b/pkgs/development/lisp-modules/ql.nix
index 71043571275d..7e134fbce980 100644
--- a/pkgs/development/lisp-modules/ql.nix
+++ b/pkgs/development/lisp-modules/ql.nix
@@ -164,6 +164,9 @@ let
     cl-readline = super.cl-readline.overrideLispAttrs (o: {
       nativeLibs = [ pkgs.readline ];
     });
+    log4cl = super.log4cl.overrideLispAttrs (o: {
+      patches = [ ./patches/log4cl-fix-build.patch ];
+    });
     md5 = super.md5.overrideLispAttrs (o: {
       lispLibs = [ super.flexi-streams ];
     });