X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=debian%2Fxmlutils.asd;h=b09bdd3246abd202548e5c03705b4ee73bf35eb4;hb=2d40f4169cc89aaecf1a762cae1e2d7cd55587ab;hp=7f78010eb5e13de599b69d1f43d1e2b0b725c027;hpb=d8b217684dec9f0e22d52256f1565f14748b96c0;p=xmlutils.git

diff --git a/debian/xmlutils.asd b/debian/xmlutils.asd
index 7f78010..b09bdd3 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.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
 ;;;;
@@ -20,6 +20,11 @@
 
 #-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"
@@ -39,10 +44,6 @@
    (: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")