[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-132-gedfeb6d

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  edfeb6db2f8517c9d8785b3561bb95afaa4ae4e2 (commit)
      from  bbada271d996eba4616dba7ddb47d4f05be7f275 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit edfeb6db2f8517c9d8785b3561bb95afaa4ae4e2
Author: Michael Raitza <spacefrogg-clfswm at meterriblecrew.net>
Date:   Mon Oct 8 22:45:10 2012 +0200

    src/tools.lisp (n-rotate-list): Implementation ehancements (1/2 GC, 2x speed).

diff --git a/ChangeLog b/ChangeLog
index b72f7be..9b5b79d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-08 Michael Raitza <spacefrogg-clfswm at meterriblecrew.net>
+
+	* src/tools.lisp (n-rotate-list): Implementation ehancements (1/2 GC,
+	2x speed).
+
 2012-10-07  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* contrib/wallpaper.lisp (wallpaper): Handle no xinerama support
diff --git a/src/tools.lisp b/src/tools.lisp
index 7655b4b..d930362 100644
--- a/src/tools.lisp
+++ b/src/tools.lisp
@@ -979,10 +979,11 @@ Useful for re-using the &REST arg after removing some options."
   (when list
     (append (last list) (butlast list))))
 
-(defun n-rotate-list (list n)
-  (if (> n 0)
-      (n-rotate-list (rotate-list list) (1- n))
-      list))
+(defun n-rotate-list (list steps)
+  (when list
+    (let* ((len (length list))
+           (nsteps (mod steps len)))
+      (append (nthcdr nsteps list) (butlast list (- len nsteps))))))
 
 
 (defun append-formated-list (base-str

-----------------------------------------------------------------------

Summary of changes:
 ChangeLog      |    5 +++++
 src/tools.lisp |    9 +++++----
 2 files changed, 10 insertions(+), 4 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager