[STUMP] [PATCH] ensure that name argument to defprogram-shortcut can be a symbol

[Friedrich Delgado Friedrichs]

---
 user.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/user.lisp b/user.lisp
index 30363d5..27c373c 100644
--- a/user.lisp
+++ b/user.lisp
@@ -325,7 +325,7 @@ submitting the bug report."
                                          (map *top-map*)
                                          (key (kbd (concat "H-" (subseq 
command 0 1))))
                                          (pullp nil)
-                                         (pull-name (intern1 (concat name 
"-PULL")))
+                                         (pull-name (intern1 (concat (string 
name) "-PULL")))
                                          (pull-key (kbd (concat "H-M-" (subseq 
command 0 1)))))
   "Define a command and key binding to run or raise a program. If
 @var{pullp} is set, also define a command and key binding to run or
-- 
1.6.2.3