On Sat, 19 Oct 2024 16:08:37 +0200,
Kirill A. Korinsky <kir...@korins.ky> wrote:
> 
> On Wed, 09 Oct 2024 06:14:54 +0200,
> Timo Myyrä <timo.my...@bittivirhe.fi> wrote:
> > 
> > 
> > The code looks ok, I haven't tested it. But let's wait a bit to see how
> > upstream will handle the issue before patching the port.
> > 
> 
> Upstream had merged this patch with fixing typos in comments
> https://github.com/stumpwm/stumpwm/commit/20d839f2ddfdfd25a8460152bc5dc45a9354e773
> 
> An updated diff:
>

and I had made diff which doesn't applied. Sorry for that. Here an update one:

Index: Makefile
===================================================================
RCS file: /cvs/ports/x11/stumpwm/Makefile,v
retrieving revision 1.23
diff -u -p -r1.23 Makefile
--- Makefile    30 Sep 2024 15:12:58 -0000      1.23
+++ Makefile    19 Oct 2024 14:18:26 -0000
@@ -2,7 +2,7 @@ COMMENT=                easily hackable Common LISP wi
 
 VERSION=               23.11
 DISTNAME=              stumpwm-${VERSION}
-REVISION=              7
+REVISION=              8
 
 CATEGORIES=            x11
 
Index: patches/patch-make-image_lisp_in
===================================================================
RCS file: /cvs/ports/x11/stumpwm/patches/patch-make-image_lisp_in,v
retrieving revision 1.1
diff -u -p -r1.1 patch-make-image_lisp_in
--- patches/patch-make-image_lisp_in    18 Feb 2024 07:46:17 -0000      1.1
+++ patches/patch-make-image_lisp_in    19 Oct 2024 14:18:26 -0000
@@ -7,3 +7,22 @@ Index: make-image.lisp.in
  (in-package #:cl-user)
  
  (let* ((expected-warnings
+@@ -48,7 +50,17 @@
+     (uiop:symbol-call '#:asdf '#:register-immutable-system system-name)))
+ 
+ (sb-ext:save-lisp-and-die "stumpwm" :toplevel (lambda ()
+-                                                ;; asdf requires sbcl_home to 
be set, so set it to the value when the image was built
++                                                ;; stumpwm might be built in 
a fake enviroment, so use uiop:restore-image
++                                                ;; to compute the real 
uiop:*user-cache* for that user
++                                                (uiop:restore-image)
++                                                ;; and clean the asdf 
configuration to avoid some cached paths as well
++                                                (asdf:clear-configuration)
++                                                
(asdf:clear-output-translations)
++                                                
(asdf:initialize-output-translations
++                                                 '(:output-translations
++                                                   :enable-user-cache
++                                                   
:ignore-inherited-configuration))
++                                                ;; asdf requires SBCL_HOME to 
be set, so set it to the value when the image was built
+                                                 (alexandria:when-let ((home 
#.(sb-ext:posix-getenv "SBCL_HOME")))
+                                                   (sb-posix:putenv (format 
nil "SBCL_HOME=~A" home)))
+                                                 (stumpwm:stumpwm)


-- 
wbr, Kirill

Reply via email to