[armedbear-cvs] r14112 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Aug 18 01:17:42 2012
New Revision: 14112

Log:
Use PROVIDE/REQUIRE to prevent multiple loading.

Modified:
   trunk/abcl/src/org/armedbear/lisp/pprint-dispatch.lisp
   trunk/abcl/src/org/armedbear/lisp/pprint.lisp
   trunk/abcl/src/org/armedbear/lisp/print-object.lisp
   trunk/abcl/src/org/armedbear/lisp/print.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/pprint-dispatch.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/pprint-dispatch.lisp	Fri Aug 17 09:02:52 2012	(r14111)
+++ trunk/abcl/src/org/armedbear/lisp/pprint-dispatch.lisp	Sat Aug 18 01:17:42 2012	(r14112)
@@ -57,6 +57,8 @@
 
 (in-package #:xp)
 
+(require "PPRINT")
+
 (defvar *ipd* nil ;see initialization at end of file.
   "initial print dispatch table.")
 
@@ -333,3 +335,5 @@
 (set-pprint-dispatch+ 'pprint-dispatch-table #'pprint-dispatch-print '(0) *ipd*)
 
 (setf *print-pprint-dispatch* (copy-pprint-dispatch nil))
+
+(provide "PPRINT-DISPATCH")
\ No newline at end of file

Modified: trunk/abcl/src/org/armedbear/lisp/pprint.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/pprint.lisp	Fri Aug 17 09:02:52 2012	(r14111)
+++ trunk/abcl/src/org/armedbear/lisp/pprint.lisp	Sat Aug 18 01:17:42 2012	(r14112)
@@ -59,6 +59,8 @@
 
 ;must do the following in common lisps not supporting *print-shared*
 
+(require "PRINT")
+
 (defvar *print-shared* nil)
 (export '(*print-shared*))
 

Modified: trunk/abcl/src/org/armedbear/lisp/print-object.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/print-object.lisp	Fri Aug 17 09:02:52 2012	(r14111)
+++ trunk/abcl/src/org/armedbear/lisp/print-object.lisp	Sat Aug 18 01:17:42 2012	(r14112)
@@ -121,4 +121,4 @@
                 (cell-error-name x)))
       (format stream "The variable ~S is unbound." (cell-error-name x))))
 
-(provide 'print-object)
+(provide "PRINT-OBJECT")

Modified: trunk/abcl/src/org/armedbear/lisp/print.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/print.lisp	Fri Aug 17 09:02:52 2012	(r14111)
+++ trunk/abcl/src/org/armedbear/lisp/print.lisp	Sat Aug 18 01:17:42 2012	(r14112)
@@ -314,3 +314,5 @@
         (t
          (%print-object object stream)))
   object)
+
+(provide "PRINT")
\ No newline at end of file