diff options
| author |  Tom Willemsen | 2013-04-06 14:58:58 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2013-04-06 14:58:58 +0200 |
| commit | 8cad2d8582a5a64fb5e6cf30b573809d8bd4af7c (patch) | |
| tree | 46b0eaf076920524a47a9acca509b34236473fe6 | |
| parent | 85868d6dcf0d999fae93a900adc75947814cac4c (diff) | |
| download | clark-8cad2d8582a5a64fb5e6cf30b573809d8bd4af7c.tar.gz clark-8cad2d8582a5a64fb5e6cf30b573809d8bd4af7c.zip | |
Eval make-command-name during execute
So that it also works when loaded from some other place.
| -rw-r--r-- | lisp/clark.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/clark.lisp b/lisp/clark.lisp index c32edc2..47b09d8 100644 --- a/lisp/clark.lisp +++ b/lisp/clark.lisp @@ -174,7 +174,7 @@ The result contains the url, name and the description of the bookmark." (let ((*package* (in-package :org.ryuslash.clark))) (load (get-rc-location) :if-does-not-exist nil))) -(eval-when (:compile-toplevel :load-toplevel) +(eval-when (:compile-toplevel :load-toplevel :execute) (defun make-command-name (base) "Turn BASE into the name of a possible command." (intern (concatenate 'string (string-upcase base) "-COMMAND") |