diff options
| -rw-r--r-- | src/clojure/contrib/pprint/cl_format.clj | 1 | ||||
| -rw-r--r-- | src/clojure/contrib/pprint/pprint_base.clj | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/clojure/contrib/pprint/cl_format.clj b/src/clojure/contrib/pprint/cl_format.clj index 8c68977e..145697ff 100644 --- a/src/clojure/contrib/pprint/cl_format.clj +++ b/src/clojure/contrib/pprint/cl_format.clj @@ -158,7 +158,6 @@ http://www.lispworks.com/documentation/HyperSpec/Body/22_c.htm ;;; Common handling code for ~A and ~S ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(declare *print-base* *print-radix*) (declare opt-base-str) (def #^{:private true} diff --git a/src/clojure/contrib/pprint/pprint_base.clj b/src/clojure/contrib/pprint/pprint_base.clj index eec1326d..064fc5ec 100644 --- a/src/clojure/contrib/pprint/pprint_base.clj +++ b/src/clojure/contrib/pprint/pprint_base.clj @@ -251,7 +251,9 @@ to a pretty printing writer to which it should do its printing. For example functions, see *simple-dispatch* and *code-dispatch* in clojure.contrib.pprint.dispatch.clj." [function] - (def *print-pprint-dispatch* function) + (let [old-meta (meta #'*print-pprint-dispatch*)] + (alter-var-root #'*print-pprint-dispatch* (constantly function)) + (alter-meta! #'*print-pprint-dispatch* (constantly old-meta))) nil) (defmacro with-pprint-dispatch |