X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=kmrcl.asd;h=83ccb5ae5ec255b51acab40cd201352c7f0a0b4b;hb=e9425347d51ee6933462b0c08c01979eee18c2eb;hp=b43dd7619c8dc1ca6cd055355d1b587629049219;hpb=3907355f35e0a1c97671a0c8a25c64e8d63550e7;p=kmrcl.git diff --git a/kmrcl.asd b/kmrcl.asd index b43dd76..83ccb5a 100644 --- a/kmrcl.asd +++ b/kmrcl.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: kmrcl.asd,v 1.15 2002/10/20 02:00:50 kevin Exp $ +;;;; $Id: kmrcl.asd,v 1.23 2002/12/13 21:59:57 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -16,10 +16,6 @@ ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* -#+allegro (require :pxml) -#+(and allegro common-lisp-controller) (c-l-c::clc-require :aserve) -#+(and allegro (not common-lisp-controller)) (require :aserve) - (in-package :asdf) (defsystem :kmrcl @@ -27,26 +23,19 @@ (pushnew :kmrcl cl:*features*)) :components ((:file "package") + (:file "console" :depends-on ("package")) (:file "genutils" :depends-on ("package")) (:file "strings" :depends-on ("package")) - #+(or allegro lispworks) (:file "equal" :depends-on ("package")) + (:file "equal" :depends-on ("package")) (:file "buff-input" :depends-on ("genutils")) (:file "telnet-server" :depends-on ("genutils")) - (:file "pipes" :depends-on ("package")) (:file "random" :depends-on ("package")) (:file "cl-symbols" :depends-on ("package")) + (:file "math" :depends-on ("package")) #+allegro (:file "attrib-class" :depends-on ("package")) (:file "web-utils" :depends-on ("package")) - (:file "xml-utils" :depends-on ("package")) - #+(or allegro lispworks cmu sbcl scl) (:file "ml-class" :depends-on ("strings" "genutils")) - #+(or allegro aserve) (:file "web-utils-aserve" :depends-on ("strings" "genutils")) - #+(and common-lisp-controller (not allegro)) - :depends-on - #+(and common-lisp-controller (not allegro)) - (:aserve) - )) + (:file "xml-utils" :depends-on ("package"))) + ) + -(when (ignore-errors (find-class 'load-compiled-op)) - (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :kmrcl)))) - (pushnew :kmrcl cl:*features*)))