0.9.14.31:
[sbcl.git] / src / code / host-pprint.lisp
1 ;;;; Common Lisp pretty printer definitions that need to be on the
2 ;;;; host
3
4 ;;;; This software is part of the SBCL system. See the README file for
5 ;;;; more information.
6 ;;;;
7 ;;;; This software is derived from the CMU CL system, which was
8 ;;;; written at Carnegie Mellon University and released into the
9 ;;;; public domain. The software is in the public domain and is
10 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
11 ;;;; files for more information.
12
13 (in-package "SB!PRETTY")
14
15 (def!struct (pprint-dispatch-table (:copier nil))
16   ;; A list of all the entries (except for CONS entries below) in highest
17   ;; to lowest priority.
18   (entries nil :type list)
19   ;; A hash table mapping things to entries for type specifiers of the
20   ;; form (CONS (MEMBER <thing>)). If the type specifier is of this form,
21   ;; we put it in this hash table instead of the regular entries table.
22   (cons-entries (make-hash-table :test 'eql)))
23 (def!method print-object ((table pprint-dispatch-table) stream)
24   (print-unreadable-object (table stream :type t :identity t)))