[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv29055

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-eval-feature-conditional): Fix typo.
(slime-keywordify): Simplify.



--- /project/slime/cvsroot/slime/ChangeLog	2007/08/27 12:55:50	1.1173
+++ /project/slime/cvsroot/slime/ChangeLog	2007/08/27 14:32:09	1.1174
@@ -1,5 +1,10 @@
 2007-08-27  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-eval-feature-conditional): Fix typo.
+	(slime-keywordify): Simplify.
+
+2007-08-27  Helmut Eller  <heller at common-lisp.net>
+
 	Move presentations to contrib.  Part I.
 
 	* slime.el (slime-event-hooks, slime-dispatch-event): New hook.
--- /project/slime/cvsroot/slime/slime.el	2007/08/27 12:55:20	1.825
+++ /project/slime/cvsroot/slime/slime.el	2007/08/27 14:32:09	1.826
@@ -4934,20 +4934,17 @@
         ;; skip this sexp
         (slime-forward-sexp)))))
 
-(defun slime-keywordify (symbol-designator)
-  "Makes a keyword out of SYMBOL-DESIGNATOR, which may either be
-a symbol or a string."
-  (let ((name (downcase (etypecase symbol-designator
-                          (symbol (symbol-name symbol-designator))
-                          (string symbol-designator)))))
-    (intern (if (eq ?: (aref name 0))
-                name
-                (concat ":" name)))))
+(defun slime-keywordify (symbol)
+  "Make a keyword out of the symbol SYMBOL."
+  (let ((name (downcase (symbol-name symbol))))
+    (intern (if (eq ?: (aref name 0)) 
+                name 
+              (concat ":" name)))))
 
 (defun slime-eval-feature-conditional (e)
   "Interpret a reader conditional expression."
   (if (symbolp e)
-      (memq (slime-keywordify rd e) (slime-lisp-features))
+      (memq (slime-keywordify e) (slime-lisp-features))
     (funcall (ecase (slime-keywordify (car e))
                (:and #'every)
                (:or #'some)