Index: /trunk/ccl/lib/pprint.lisp
===================================================================
--- /trunk/ccl/lib/pprint.lisp	(revision 325)
+++ /trunk/ccl/lib/pprint.lisp	(revision 326)
@@ -335,5 +335,5 @@
 ;                       ---- DISPATCHING ----
 
-(cl:defstruct (pprint-dispatch (:conc-name nil) (:copier nil))
+(cl:defstruct (pprint-dispatch-table (:conc-name nil) (:copier nil))
   (conses-with-cars (make-hash-table :test #'eq) :type hash-table)
   (structures (make-hash-table :test #'eq) :type hash-table)
@@ -382,5 +382,5 @@
 		 (setf (gethash key new-structures) (#+ccl-2 copy-uvector #-ccl-2 copy-entry value)))
 	     (structures table))
-    (make-pprint-dispatch
+    (make-pprint-dispatch-table
       :conses-with-cars new-conses-with-cars
       :structures new-structures
@@ -3458,5 +3458,5 @@
 
 
-(setq *IPD* (make-pprint-dispatch))
+(setq *IPD* (make-pprint-dispatch-table))
 
 (set-pprint-dispatch+ '(satisfies function-call-p) #'alternative-fn-call '(-5) *IPD*)