Changeset 14112

Timestamp:

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

Author:

ehuelsmann

Message:

Use PROVIDE/REQUIRE to prevent multiple loading.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• pprint-dispatch.lisp (modified) (2 diffs)
• pprint.lisp (modified) (1 diff)
• print-object.lisp (modified) (1 diff)
• print.lisp (modified) (1 diff)

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")

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

@@ -59 +59 @@
 
 ;must do the following in common lisps not supporting *print-shared*
+
+(require "PRINT")
 
 (defvar *print-shared* nil)

trunk/abcl/src/org/armedbear/lisp/print-object.lisp

@@ -122 +122 @@
       (format stream "The variable ~S is unbound." (cell-error-name x))))
 
-(provide 'print-object)
+(provide "PRINT-OBJECT")

trunk/abcl/src/org/armedbear/lisp/print.lisp

@@ -315 +315 @@
          (%print-object object stream)))
   object)
+
+(provide "PRINT")