Plaster

(defun pretty-print (elements) (cond ((null elements) (princ ") ")) (t (cond ((listp (car elements)) (princ "( ") (pretty-print (car elements)) (format t "~%"))) (if (atom (car elements)) (prin1 (car elements))) (format t "~%") (princ #\Space) (pretty-print (cdr elements)))))