X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=umlisp.asd;h=ee78240cff03987c173238e2ec07b5a052c62e76;hb=5a80d916816131a1d56a60790cd1e4b5e9c88810;hp=2cd4756979d97821914e162a842df16f190813d7;hpb=f513e7b50135115f3c56b840c2cb0d1c9c8ffa82;p=umlisp.git

diff --git a/umlisp.asd b/umlisp.asd
index 2cd4756..ee78240 100644
--- a/umlisp.asd
+++ b/umlisp.asd
@@ -1,9 +1,28 @@
-;;;;  -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; $Id: umlisp.asd,v 1.3 2002/10/09 00:34:47 kevin Exp $
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: umlisp -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          umlisp.asd
+;;;; Purpose:       ASDF system definition file for UMLisp
+;;;; Programmer:    Kevin M. Rosenberg
+;;;; Date Started:  Apr 2000
+;;;;
+;;;; $Id: umlisp.asd,v 1.6 2002/10/14 09:25:20 kevin Exp $
+;;;;
+;;;; This file, part of UMLisp, is
+;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
+;;;;
+;;;; UMLisp users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the GNU General Public License.
+;;;; *************************************************************************
 
 (in-package :asdf)
 
-(defsystem umlisp
+#+(or allegro lispworks cmu sbcl)
+(defsystem :umlisp
+  :perform (load-op :after (op umlisp)
+		    (pushnew :umlisp cl:*features*))
+  
     :components 
      ((:file "package")
       (:file "data-structures" :depends-on ("package"))
@@ -15,8 +34,12 @@
       (:file "classes" :depends-on ("utils"))
       (:file "sql-classes" :depends-on ("classes" "sql"))
       (:file "composite" :depends-on ("sql-classes")))
-     :depends-on (:kmrcl
-		  :clsql-mysql
-		  :clsql)
-     )
+     :depends-on (:clsql-mysql
+		  :clsql-postgresql
+		  :clsql
+		  :kmrcl))
 
+#+(or allegro lispworks cmu sbcl)
+(when (ignore-errors (find-class 'load-compiled-op))
+  (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :umlisp))))
+    (pushnew :umlisp cl:*features*)))