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