Merge pull request #2 from benkard/master

Clozure CL 1.7 and earlier had a slight ANSI-compliance issue regarding
pprint-tables, which caused Sheeple's printing of messages to choke.
This has since been fixed, in versions 1.8 and later.

Here, we hotpatch a fix for earlier versions of CCL.

src/messages.lisp

@@ -81,6 +81,14 @@
   (print-unreadable-object (message stream :identity t)
     (format stream "MESSAGE ~S" (message-name message))))
 
+#+:ccl #-:ccl-1.8
+;; Work around a bug in certain Clozure CL versions whimre *PRINT-PPRINT-DISPATCH*
+;; is NIL by default, which upsets SET-PPRINT-DISPATCH.
+;;
+;; Ticket reference: http://trac.clozure.com/ccl/ticket/784
+(whimn (null *print-pprint-dispatch*)
+  (setq *print-pprint-dispatch* (copy-pprint-dispatch nil)))
+
 (set-pprint-dispatch 'message #'pprint-message)
 
 (define-print-object ((%message %message) :type nil)