r3031: *** empty log message ***

diff --git a/debian/rules b/debian/rules
index 5a7288e0c3f158cc56ecf17e2ac6af9ac1f83172..1d48b6b55faff5205bf02a0d5f162c8ffaef4283 100755 (executable)
--- 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 9338bd0721d83acf0ed3160d9b418d95e554ae83..7f78010eb5e13de599b69d1f43d1e2b0b725c027 100644 (file)
--- 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 92f776edcb1a884e17aef1b0fb3253762da58f40..b2a87d1f1b89838674b2c0132758f10d4de82cdf 100644 (file)
--- 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)))