- ;; special forms
- (block pprint-block)
- (catch pprint-block)
- (eval-when pprint-block)
- (flet pprint-flet)
- (function pprint-quote)
- (labels pprint-flet)
- (let pprint-let)
- (let* pprint-let)
- (locally pprint-progn)
- (macrolet pprint-flet)
- (multiple-value-call pprint-block)
- (multiple-value-prog1 pprint-block)
- (progn pprint-progn)
- (progv pprint-progv)
- (quote pprint-quote)
- (return-from pprint-block)
- (setq pprint-setq)
- (symbol-macrolet pprint-let)
- (tagbody pprint-tagbody)
- (throw pprint-block)
- (unwind-protect pprint-block)
-
- ;; macros
- (case pprint-case)
- (ccase pprint-case)
- (ctypecase pprint-typecase)
- (defconstant pprint-block)
- (define-modify-macro pprint-defun)
- (define-setf-expander pprint-defun)
- (defmacro pprint-defun)
- (defparameter pprint-block)
- (defsetf pprint-defun)
- (defstruct pprint-block)
- (deftype pprint-defun)
- (defun pprint-defun)
- (defvar pprint-block)
- (destructuring-bind pprint-destructuring-bind)
- (do pprint-do)
- (do* pprint-do)
- (do-all-symbols pprint-dolist)
- (do-external-symbols pprint-dolist)
- (do-symbols pprint-dolist)
- (dolist pprint-dolist)
- (dotimes pprint-dolist)
- (ecase pprint-case)
- (etypecase pprint-typecase)
- #+nil (handler-bind ...)
- #+nil (handler-case ...)
- #+nil (loop ...)
- (multiple-value-bind pprint-progv)
- (multiple-value-setq pprint-block)
- (pprint-logical-block pprint-block)
- (print-unreadable-object pprint-block)
- (prog pprint-prog)
- (prog* pprint-prog)
- (prog1 pprint-block)
- (prog2 pprint-progv)
- (psetf pprint-setq)
- (psetq pprint-setq)
- #+nil (restart-bind ...)
- #+nil (restart-case ...)
- (setf pprint-setq)
- (step pprint-progn)
- (time pprint-progn)
- (typecase pprint-typecase)
- (unless pprint-block)
- (when pprint-block)
- (with-compilation-unit pprint-block)
- #+nil (with-condition-restarts ...)
- (with-hash-table-iterator pprint-block)
- (with-input-from-string pprint-block)
- (with-open-file pprint-block)
- (with-open-stream pprint-block)
- (with-output-to-string pprint-block)
- (with-package-iterator pprint-block)
- (with-simple-restart pprint-block)
- (with-standard-io-syntax pprint-progn)))
+ ;; special forms
+ (block pprint-block)
+ (catch pprint-block)
+ (eval-when pprint-block)
+ (flet pprint-flet)
+ (function pprint-quote)
+ (labels pprint-flet)
+ (let pprint-let)
+ (let* pprint-let)
+ (locally pprint-progn)
+ (macrolet pprint-flet)
+ (multiple-value-call pprint-block)
+ (multiple-value-prog1 pprint-block)
+ (progn pprint-progn)
+ (progv pprint-progv)
+ (quote pprint-quote)
+ (return-from pprint-block)
+ (setq pprint-setq)
+ (symbol-macrolet pprint-let)
+ (tagbody pprint-tagbody)
+ (throw pprint-block)
+ (unwind-protect pprint-block)
+
+ ;; macros
+ (case pprint-case)
+ (ccase pprint-case)
+ (ctypecase pprint-typecase)
+ (defconstant pprint-block)
+ (define-modify-macro pprint-defun)
+ (define-setf-expander pprint-defun)
+ (defmacro pprint-defun)
+ (defpackage pprint-defpackage)
+ (defparameter pprint-block)
+ (defsetf pprint-defun)
+ (defstruct pprint-block)
+ (deftype pprint-defun)
+ (defun pprint-defun)
+ (defvar pprint-block)
+ (destructuring-bind pprint-destructuring-bind)
+ (do pprint-do)
+ (do* pprint-do)
+ (do-all-symbols pprint-dolist)
+ (do-external-symbols pprint-dolist)
+ (do-symbols pprint-dolist)
+ (dolist pprint-dolist)
+ (dotimes pprint-dolist)
+ (ecase pprint-case)
+ (etypecase pprint-typecase)
+ #+nil (handler-bind ...)
+ #+nil (handler-case ...)
+ #+nil (loop ...)
+ (multiple-value-bind pprint-progv)
+ (multiple-value-setq pprint-block)
+ (pprint-logical-block pprint-block)
+ (print-unreadable-object pprint-block)
+ (prog pprint-prog)
+ (prog* pprint-prog)
+ (prog1 pprint-block)
+ (prog2 pprint-progv)
+ (psetf pprint-setq)
+ (psetq pprint-setq)
+ #+nil (restart-bind ...)
+ #+nil (restart-case ...)
+ (setf pprint-setq)
+ (step pprint-progn)
+ (time pprint-progn)
+ (typecase pprint-typecase)
+ (unless pprint-block)
+ (when pprint-block)
+ (with-compilation-unit pprint-block)
+ #+nil (with-condition-restarts ...)
+ (with-hash-table-iterator pprint-block)
+ (with-input-from-string pprint-block)
+ (with-open-file pprint-block)
+ (with-open-stream pprint-block)
+ (with-output-to-string pprint-block)
+ (with-package-iterator pprint-block)
+ (with-simple-restart pprint-block)
+ (with-standard-io-syntax pprint-progn)))