# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1542237500 18000
# Node ID bb5224a1a20936a981b81203b44d26031e5a6c73
# Parent  04099eeb54c029620448e87f75dfdaf1dd464681
Fix hash table pretty printing in CCL

diff -r 04099eeb54c0 -r bb5224a1a209 src/base.lisp
--- a/src/base.lisp	Fri Nov 09 21:56:55 2018 -0500
+++ b/src/base.lisp	Wed Nov 14 18:18:20 2018 -0500
@@ -379,5 +379,7 @@
   (values))
 
 (defun toplevel ()
+  ;; ccl clobbers the pprint dispatch table when dumping an image, no idea why
+  (set-pprint-dispatch 'hash-table 'losh:pretty-print-hash-table)
   (print-version)
   (run))