This justs removes string-upcase from lookup-symbol in command.lisp
as requested by FIXME.
--
you must know the ledge of wise and dome to understand your culture of freedom!
http://pxpippen.blogspot.com/
http://groups.google.com/group/lispstl
Powerfull Allah
From cea4cda104787dd30c3c26004ad296b9e545175d Mon Sep 17 00:00:00 2001
From: Patrick Pippen <[EMAIL PROTECTED]>
Date: Mon, 30 Jun 2008 01:55:40 -0500
Subject: [PATCH] lookup-symbol remove string-upcase
---
command.lisp | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/command.lisp b/command.lisp
index d7866ef..6601d25 100644
--- a/command.lisp
+++ b/command.lisp
@@ -200,9 +200,9 @@ then describes the symbol."
;; FIXME: should we really use string-upcase?
(let* ((ofs (split-string string ":"))
(pkg (if (> (length ofs) 1)
- (find-package (string-upcase (pop ofs)))
+ (find-package (pop ofs))
*package*))
- (var (string-upcase (pop ofs)))
+ (var (pop ofs))
(ret (find-symbol var pkg)))
(when (plusp (length ofs))
(throw 'error "Too many :'s"))
--
1.5.3.7
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
http://lists.nongnu.org/mailman/listinfo/stumpwm-devel
