Add support for Scheme and Racket language.

sources_non_forked/slimv/swank-clojure/swank/commands.clj

@@ -0,0 +1,14 @@
+(ns swank.commands)
+
+(defonce slime-fn-map {})
+
+(defmacro defslimefn
+  ([fname & body]
+     `(alter-var-root #'slime-fn-map
+                      assoc
+                      (symbol "swank" ~(name fname))
+		      (defn ~fname ~@body)))
+  {:indent 'defun})
+
+(defn slime-fn [sym]
+  (slime-fn-map (symbol "swank" (name sym))))