From d8b217684dec9f0e22d52256f1565f14748b96c0 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 15 Oct 2002 13:59:37 +0000
Subject: [PATCH] r3031: *** empty log message ***

---
 debian/rules        |  2 +-
 debian/xmlutils.asd | 14 ++++++++++++--
 pxml0.cl            |  7 +++++--
 3 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/debian/rules b/debian/rules
index 5a7288e..1d48b6b 100755
--- a/debian/rules
+++ b/debian/rules
@@ -42,7 +42,7 @@ install: build
 	dh_clean -k
 	# Add here commands to install the package into debian/xmlutils.
 	dh_installdirs $(clc-systems) $(clc-xmlutils) $(doc-dir)
-	dh_install debian/xmlutils.asd phtml.cl pxmls[0-3].cl build.cl $(clc-xmlutils)
+	dh_install debian/xmlutils.asd phtml.cl $(wildcard pxml[0-3].cl) build.cl $(clc-xmlutils)
 	dh_install $(shell echo *.html) $(doc-dir)
 	dh_link $(clc-xmlutils)/xmlutils.asd $(clc-systems)/xmlutils.asd
 
diff --git a/debian/xmlutils.asd b/debian/xmlutils.asd
index 9338bd0..7f78010 100644
--- a/debian/xmlutils.asd
+++ b/debian/xmlutils.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2002
 ;;;;
-;;;; $Id: xmlutils.asd,v 1.1 2002/10/15 13:43:24 kevin Exp $
+;;;; $Id: xmlutils.asd,v 1.2 2002/10/15 13:59:37 kevin Exp $
 ;;;;
 ;;;; This file, part of cl-xmlutils, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -18,6 +18,8 @@
 
 (in-package :asdf)
 
+#-allegro (require :acl-compat)
+
 (defsystem :xmlutils
   :name "cl-xmlutils"
   :author "Franz, Inc"
@@ -30,9 +32,17 @@
 	    (pushnew :xmlutils cl:*features*))
   
   :components
-  ((:file "xmlutils")))
+  ((:file "phtml")
+   (:file "pxml0")
+   (:file "pxml1" :depends-on ("pxml0"))
+   (:file "pxml2" :depends-on ("pxml1"))
+   (:file "pxml3" :depends-on ("pxml2"))
+   ))
 
 (when (ignore-errors (find-class 'load-compiled-op))
   (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :xmlutils))))
     (pushnew :xmlutils cl:*features*)))
 
+(defmethod source-file-type ((c cl-source-file) (s (eql (find-system :xmlutils))))
+  "cl")
+
diff --git a/pxml0.cl b/pxml0.cl
index 92f776e..b2a87d1 100644
--- a/pxml0.cl
+++ b/pxml0.cl
@@ -19,7 +19,7 @@
 ;; version) or write to the Free Software Foundation, Inc., 59 Temple Place,
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
-;; $Id: pxml0.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $
+;; $Id: pxml0.cl,v 1.2 2002/10/15 13:59:37 kevin Exp $
 
 ;; pxml.cl - parse xml
 ;;
@@ -38,6 +38,9 @@
 
 (in-package :net.xml.parser)
 
+#-allegro (defvar excl::*dribble-bug-hooks*)
+#-allegro (export '*dribble-bug-hooks* 'excl)
+
 (unless (fboundp 'pxml-dribble-bug-hook)
   (let ((pxml-version-strings nil))
     (defun pxml-dribble-bug-hook (stream-or-string)
@@ -49,7 +52,7 @@
 
     (push 'pxml-dribble-bug-hook excl:*dribble-bug-hooks*)))
 
-(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.1 2002/10/15 12:23:03 kevin Exp $")
+(funcall 'pxml-dribble-bug-hook "$Id: pxml0.cl,v 1.2 2002/10/15 13:59:37 kevin Exp $")
 
 (defun xml-char-p (char)
   (declare (optimize (speed 3) (safety 1)))
-- 
2.34.1