ryuslash/clark
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Eval make-command-name during execute

Browse source 
So that it also works when loaded from some other place.
This commit is contained in:
Tom Willemsen 2013-04-06 14:58:58 +02:00
parent 85868d6dcf
commit 8cad2d8582
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/clark.lisp
View file

@ -174,7 +174,7 @@ The result contains the url, name and the description of the bookmark."
(let ((*package* (in-package :org.ryuslash.clark))) (let ((*package* (in-package :org.ryuslash.clark)))
(load (get-rc-location) :if-does-not-exist nil))) (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) (defun make-command-name (base)
"Turn BASE into the name of a possible command." "Turn BASE into the name of a possible command."
(intern (concatenate 'string (string-upcase base) "-COMMAND") (intern (concatenate 'string (string-upcase base) "-COMMAND")