使用代码分发表时clojure.pprint/pprint 错误

Question

在使用代码分发表打印let时，clojure.pprint/pprint 中似乎存在一个错误。这发生在 Clojure 和 ClojureScript 上。

Clojure 1.11.1
user=> (require '[clojure.pprint :as pp])

user=> 
(binding [pp/*print-pprint-dispatch* pp/code-dispatch]
  (pp/pprint
   '(let)))

((let)) ;; prints some extra parenthesis

(binding [pp/*print-pprint-dispatch* pp/code-dispatch]
  (pp/pprint
   '(let*)))

(let*) ;; doesn't happen when pprinting any other form

Answer 1

问题在于在 clojure.pprint/pprint-let 中，pprint-logical-block 包裹了两个分支，而它不应该这样做，因为 pprint-simple-code-list 已经生成了括号。

在此添加补丁

From 1761194420c8befe62a6e12cabfd4483b645b703 Mon Sep 17 00:00:00 2001                                
From: Juan Monetta <[email protected]>                                                             
Date: Fri, 10 Nov 2023 11:19:02 -0300                                                                 
Subject: [PATCH] Fix clojure.pprint pprint-let when form doesn't contain                               
 bindings                                                                                              
                                                                                                      
---                                                                                                     
 src/clj/clojure/pprint/dispatch.clj | 15 ++++++++-------                                               
 1 file changed, 8 insertions(+), 7 deletions(-)                                                         
                                                                                                      
diff --git a/src/clj/clojure/pprint/dispatch.clj b/src/clj/clojure/pprint/dispatch.clj                
index 965c0b25..cd1c2b29 100644                                                                        
--- a/src/clj/clojure/pprint/dispatch.clj                                                              
+++ b/src/clj/clojure/pprint/dispatch.clj                                                             
@@ -335,13 +335,14 @@                                                                                 
                                                                                                       
 (defn- pprint-let [alis]                                                                              
   (let [base-sym (first alis)]                                                                        
-    (pprint-logical-block :prefix "(" :suffix ")"                                                    
-      (if (and (next alis) (vector? (second alis)))                                                    
-        (do                                                                                            
-          ((formatter-out "~w ~1I~@_") base-sym)                                                     
-          (pprint-binding-form (second alis))                                                        
-          ((formatter-out " ~_~{~w~^ ~_~}") (next (rest alis))))                                      
-        (pprint-simple-code-list alis)))))                                                            
+    (if (and (next alis) (vector? (second alis)))                                                    
+      (pprint-logical-block                                                                          
+       :prefix "(" :suffix ")"                                                                        
+       (do                                                                                            
+         ((formatter-out "~w ~1I~@_") base-sym)                                                       
+         (pprint-binding-form (second alis))                                                           
+         ((formatter-out " ~_~{~w~^ ~_~}") (next (rest alis)))))                                       
+      (pprint-simple-code-list alis))))                                                                
                                                                                                         
                                                                                                         
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;                    
--   

Comments

您想将官方补丁添加到 Jira工单中吗？

---

我不确定能否做到，因为我没有Jira用户。

---

如果您愿意，可以参考贡献者说明[这里](https://clojure.org/dev/dev)。没有压力要这样做，我只是想建议您这样做，因为您已经找到了一个可能的解决方案。

Answer 2

创建了jira任务单 https://clojure.atlassian.net/browse/CLJ-2816 来跟踪这个问题。