--- primitives.lisp | 1 + 1 files changed, 1 insertions(+), 0 deletions(-)
diff --git a/primitives.lisp b/primitives.lisp index 4007b8f..8b97735 100644 --- a/primitives.lisp +++ b/primitives.lisp @@ -967,6 +967,7 @@ suppress.") "Slogans from the stumpwm webpage") (defun random-slogan () + (setf *random-state* (make-random-state t)) (nth (random (length *slogans*)) *slogans*)) (defvar *default-package* (find-package '#:stumpwm-user) -- 1.6.1.2 _______________________________________________ Stumpwm-devel mailing list Stumpwm-devel@nongnu.org http://lists.nongnu.org/mailman/listinfo/stumpwm-devel