Changeset 326

Timestamp:

Jan 17, 2004, 7:57:15 PM (21 years ago)

Author:

Gary Byers

Message:

PPRINT-DISATCH: symbol is external in CL, so don't use it as a structure
name.

File:

• trunk/ccl/lib/pprint.lisp (modified) (3 diffs)

trunk/ccl/lib/pprint.lisp

@@ -335 +335 @@
 ;                       ---- 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 +382 @@
                  (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 +3458 @@
 
 
-(setq *IPD* (make-pprint-dispatch))
+(setq *IPD* (make-pprint-dispatch-table))
 
 (set-pprint-dispatch+ '(satisfies function-call-p) #'alternative-fn-call '(-5) *IPD*)