projects
/
xmlutils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3357: remove load-compile-op from .asd file
[xmlutils.git]
/
debian
/
xmlutils.asd
diff --git
a/debian/xmlutils.asd
b/debian/xmlutils.asd
index 7f78010eb5e13de599b69d1f43d1e2b0b725c027..b09bdd3246abd202548e5c03705b4ee73bf35eb4 100644
(file)
--- a/
debian/xmlutils.asd
+++ b/
debian/xmlutils.asd
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Sep 2002
;;;;
;;;; 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
;;;;
;;;;
;;;; This file, part of cl-xmlutils, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-20,6
+20,11
@@
#-allegro (require :acl-compat)
#-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"
(defsystem :xmlutils
:name "cl-xmlutils"
:author "Franz, Inc"
@@
-39,10
+44,6
@@
(:file "pxml3" :depends-on ("pxml2"))
))
(: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")
(defmethod source-file-type ((c cl-source-file) (s (eql (find-system :xmlutils))))
"cl")