ANSI Common Lisp 22 Printer 22.1 The Lisp Printer
22.1.4 Examples of Printer Behavior
(let ((*print-escape* t)) (fresh-line) (write #\a))
#\a
#\a
(let ((*print-escape* nil) (*print-readably* nil))
(fresh-line)
(write #\a))
a
#\a
(progn (fresh-line) (prin1 #\a))
#\a
#\a
(progn (fresh-line) (print #\a))
#\a
#\a
(progn (fresh-line) (princ #\a))
a
#\a
(dolist (val '(t nil))
(let ((*print-escape* val) (*print-readably* val))
(print '#\a)
(prin1 #\a) (write-char #\Space)
(princ #\a) (write-char #\Space)
(write #\a)))
#\a #\a a #\a
#\a #\a a a
NIL
(progn (fresh-line) (write '(let ((a 1) (b 2)) (+ a b))))
(LET ((A 1) (B 2)) (+ A B))
(LET ((A 1) (B 2)) (+ A B))
(progn (fresh-line) (pprint '(let ((a 1) (b 2)) (+ a b))))
(LET ((A 1)
(B 2))
(+ A B))
(LET ((A 1) (B 2)) (+ A B))
(progn (fresh-line)
(write '(let ((a 1) (b 2)) (+ a b)) :pretty t))
(LET ((A 1)
(B 2))
(+ A B))
(LET ((A 1) (B 2)) (+ A B))
(with-output-to-string (s)
(write 'write :stream s)
(prin1 'prin1 s))
"WRITEPRIN1"
|