My latest version is using the package definition as you specified. It was a little tricky at first because I had to tweak my .stumpwmrc a bit afterwards - I also had to change it to use "load" instead of "load-module" - but now all seems to be working as before and my Lisp seems stronger :) Thanks!
On Mon, 2012-10-15 at 02:39 -0300, Diogo F. S. Ramos wrote: > We first define a symbol using `defparameter'. > > If later we decide to change it, we use the previous `setf'. > --- > > Although it works, using `setf' in a symbol before defining a variable > with `defpackage', `defvar' or using `let' is discourage. > > src/stumpwm-cmus.lisp | 8 ++++---- > 1 file changed, 4 insertions(+), 4 deletions(-) > > diff --git a/src/stumpwm-cmus.lisp b/src/stumpwm-cmus.lisp > index 20ba9a3..081bb9d 100644 > --- a/src/stumpwm-cmus.lisp > +++ b/src/stumpwm-cmus.lisp > @@ -59,11 +59,11 @@ > ;;; (define-key *root-map* (kbd "C-M-l") "cmus-lyrics") > > ;;; Code: > -(setf *cmus-commands* '( :PLAY "play" :PAUSE "pause" :STOP "stop" > - :NEXT "next" :PREV "prev" :FILE "file" :REPEAT > "repeat" > - :SHUFFLE "shuffle" :VOLUME "volume" :CLEAR "clear" > :RAW "raw")) > +(defparameter *cmus-commands* '( :PLAY "play" :PAUSE "pause" :STOP "stop" > + :NEXT "next" :PREV "prev" :FILE "file" > :REPEAT "repeat" > + :SHUFFLE "shuffle" :VOLUME "volume" :CLEAR > "clear" :RAW "raw")) > > -(setf *cmus-playlist-directory* "~/.cmus/") > +(defparameter *cmus-playlist-directory* "~/.cmus/") > > ;; Thanks to sabetts of #stumpwm > (defun cat (&rest strings) _______________________________________________ Stumpwm-devel mailing list Stumpwm-devel@nongnu.org https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
