r3357: remove load-compile-op from .asd file

[xmlutils.git] / debian / xmlutils.asd

diff --git a/debian/xmlutils.asd b/debian/xmlutils.asd
index 9338bd0721d83acf0ed3160d9b418d95e554ae83..b09bdd3246abd202548e5c03705b4ee73bf35eb4 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.4 2002/11/08 16:51:40 kevin Exp $
 ;;;;
 ;;;; This file, part of cl-xmlutils, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -18,6 +18,13 @@
 
 (in-package :asdf)
 
+#-allegro (require :acl-compat)
+
+#+lispworks
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defvar system::*stack-overflow-behavior* :warn)
+  (setq system::*stack-overflow-behavior* :warn))
+
 (defsystem :xmlutils
   :name "cl-xmlutils"
   :author "Franz, Inc"
@@ -30,9 +37,13 @@
            (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")