bug#33772: StumpWM broken commands?

[Christopher Lemmer Webber]

Ludovic Courtès writes:

> Hi,
>
> Christopher Lemmer Webber <address@hidden> skribis:
>
>> It seems to me that StumpWM broke somehow, for some reason.  I can
>> confirm there was a version change:
>>
>> address@hidden:out        
>> /gnu/store/i0picr2xr2aq2a52nsaw67nvar1r3khw-sbcl-stumpwm-18.05
>> address@hidden:out        
>> /gnu/store/6h2iln76dx8pxdp1hsaqb1yncm8viczj-sbcl-stumpwm-18.11
>>
>> I am not sure if this is the cause or something else.  At any rate, when
>> I try to run commands such as "gnew" (the command to make a new
>> group/workstation) I get back:
>>
>>   Error In Command 'gnew': invalid number of arguments: 2
>>
>> I though I'd try running the command manually and check the error, but
>> this also happens with eval!  Some other commands are not affected.
>>
>> (I can try re-enabling the live REPL in StumpWM to play around with it,
>> but I currently have it off because they have the same live hacking
>> vulnerability in SBCL/SLIME that we had in Guile/Geiser some time ago.)
>
> Pierre, does that ring a bell?
>
> Others on the mailing list reported being happy with the upgrade, but
> maybe they use different bits of StumpWM.
>
> Thanks,
> Ludo’.

I did a quick patch to see if downgrading would fix the problems I was
having:

#+BEGIN_SRC diff
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index d8da2951d..18b68cb07 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -1020,6 +1020,19 @@ productive, customizable lisp based systems.")
     (license license:gpl2+)
     (properties `((cl-source-variant . ,(delay cl-stumpwm))))))
 
+(define-public stumpwm-18.05
+  (package
+    (inherit stumpwm)
+    (version "18.05")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://github.com/stumpwm/stumpwm/archive/";
+                    version ".tar.gz"))
+              (sha256
+               (base32 "1n2gaab3lwgf5r1hmwdcw13dkv9xdd7drn2shx28kfxvhdc9kbb9"))
+              (file-name (string-append "stumpwm-" version ".tar.gz"))))))
+
 (define-public sbcl-stumpwm
   (deprecated-package "sbcl-stumpwm" stumpwm))
#+END_SRC

The problems went away.

I'd be curious to hear indeed if anyone else is having trouble making
groups... if I'm the only one, I wonder what it could be about my
configuration that is causing this.