x11-wm/stumpwm.stumpwm
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm.git synced 2026-09-10 07:26:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Compact conditional, removing unneeded clause

Browse source
This commit is contained in:
szos 2022-12-07 06:18:16 +01:00
parent fa254af403
commit 9e84984f43
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
dynamic-window.lisp
View file

@ -63,9 +63,8 @@ area."
(let ((factors (loop for i from 1 to (1+ wincount)
when (= (mod wincount i) 0)
collect i)))
(cond ((= (length factors) 1) ; prime number
(collect-x-y (1+ wincount)))
((= (length factors) 2)
(cond ((or (= (length factors) 1) ; prime number
(= (length factors) 2))
(collect-x-y (1+ wincount)))
(t (nthcdr (floor (length factors) 2) factors))))))
(unless (= wincount 1)