RPC properly encodes () as NIL not (NIL)

njordhov · Apr 22, 2011 · 9f6f4de · 9f6f4de
1 parent 6fe9247
commit 9f6f4de
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/src/swank/rpc.clj b/src/swank/rpc.clj
@@ -107,13 +107,12 @@
   nil))
 
 (defmethod print-object clojure.lang.ISeq [o, #^Writer w]
-  (.write w "(")
-  (print-object (first o) w)
-  (doseq [item (rest o)]
-    (.write w " ")
-    (print-object item w))
-  (.write w ")"))
-
+  (if (empty? o)    (.write w "NIL")    (do     (.write w "(")
+     (print-object (first o) w)
+     (doseq [item (rest o)]
+            (.write w " ")
+            (print-object item w))
+     (.write w ")"))))
 (defn- write-form
   ([#^Writer writer message]
     (print-object message writer)))