空懒序列的quote在求值时产生错误

Question

user=> (eval `'())
()
user=> `'~(map identity ())
(quote ())
user=> (eval `'~(map identity ()))    ;; 预期：()
CompilerException java.lang.UnsupportedOperationException: 未知集合类型, 编译：(NO_SOURCE_PATH:5:1)
user=> (prn *e)
#error {
 :cause "未知集合类型"
 :via
 [{:type clojure.lang.Compiler$CompilerException
   :message "java.lang.UnsupportedOperationException: 未知集合类型, 编译：(NO_SOURCE_PATH:5:1)"
   :at [clojure.lang.Compiler analyzeSeq "Compiler.java" 6730]}
  {:type java.lang.UnsupportedOperationException
   :message "未知集合类型"
   :at [clojure.lang.Compiler$EmptyExpr emit "Compiler.java" 2929]}]
 :trace
 [[clojure.lang.Compiler$EmptyExpr emit "Compiler.java" 2929]
  [clojure.lang.Compiler$BodyExpr emit "Compiler.java" 5905]
  [clojure.lang.Compiler$FnMethod doEmit "Compiler.java" 5453]
  [clojure.lang.Compiler$FnMethod emit "Compiler.java" 5311]
  [clojure.lang.Compiler$FnExpr emitMethods "Compiler.java" 3843]
  [clojure.lang.Compiler$ObjExpr compile "Compiler.java" 4489]
  [clojure.lang.Compiler$FnExpr parse "Compiler.java" 3983]
  [clojure.lang.Compiler analyzeSeq "Compiler.java" 6721]
  [clojure.lang.Compiler analyze "Compiler.java" 6524]
  [clojure.lang.Compiler eval "Compiler.java" 6779]
  [clojure.lang.Compiler eval "Compiler.java" 6745]
  [clojure.core$eval invoke "core.clj" 3081]
  ;; 其他...
nil
user=> (eval `'~(map identity '(x)))
(x)


*原因：* 在空列表的情况下，编译器这里看到了一个LazySeq。我怀疑应该在堆栈中更早的位置生成一个空列表，但我还没有跟踪到那里。

Answer 1

参考：https://clojure.atlassian.net/browse/CLJ-1768 (由 alex+import 报告)

Answer 2

重复： https://ask.clojure.org/index.php/13255/compiler-bug-with-lazy-seq-getting-quoted

Answer 3

评论者：timengler

在clojure 1.8版本中仍然存在