(a(b.c)d)在方框符号中的正确表示是什么?

你可以使用 sdraw program :

(load "sdraw.generic.lisp")

(sdraw '(a (b . c) d))

[*|*]--->[*|*]------->[*|*]--->NIL
 |        |            |
 v        v            v
 A       [*|*]--->C    D
          |
          v
          B

回答这样的问题的方法是让系统为您回答。不幸的是,正确地做到这一点需要理解CL打印系统是如何工作的,这并不是那么简单(事实上:我已经忘记了如何正确地做到这一点!)。但是你可以编写一个无意识的函数,它可以把东西转换成字符串,并使用对象系统以合适的方式把各种各样的东西转换成字符串。这 用于非conses但包含conses的对象,但仅用于简单目的就足够了:

(defgeneric thing->string (thing)
  (:method ((thing t))
   ;; any kind of thing we don't know about gets printed like this
   (format nil "~A" thing))
  (:method ((thing cons))
   ;; conses get printed like this
   (format nil "(~A . ~A)" 
           (thing->string (car thing))
           (thing->string (cdr thing)))))

(thing->string ...) 我会回答你的问题。