Changeset 14112 for trunk/abcl/src/org/armedbear/lisp/pprint-dispatch.lisp

Timestamp:

08/18/12 08:17:42 (9 years ago)

Author:

ehuelsmann

Message:

Use PROVIDE/REQUIRE to prevent multiple loading.

File:

• trunk/abcl/src/org/armedbear/lisp/pprint-dispatch.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/pprint-dispatch.lisp

@@ -57 +57 @@
 
 (in-package #:xp)
+
+(require "PPRINT")
 
 (defvar *ipd* nil ;see initialization at end of file.
@@ -336 +338 @@
 
 (setf *print-pprint-dispatch* (copy-pprint-dispatch nil))
+
+(provide "PPRINT-DISPATCH")