;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Sep 2002
;;;;
-;;;; $Id: xmlutils.asd,v 1.2 2002/10/15 13:59:37 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
;;;;
#-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"
(: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")