X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=clsql-base.asd;h=72e02b8409936b7289eed3d0e1b0f9d11e12dcdf;hb=c26576fadaa8c5e5c5a2406de108529c308bd9b4;hp=8d1bf0d5b802a4398347557b60cd94a0faaa8a04;hpb=0140f390dc26d640b2289c212da82e5b3f51106f;p=clsql.git diff --git a/clsql-base.asd b/clsql-base.asd index 8d1bf0d..72e02b8 100644 --- a/clsql-base.asd +++ b/clsql-base.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: clsql-base.asd,v 1.16 2002/10/14 04:09:02 kevin Exp $ +;;;; $Id: clsql-base.asd,v 1.18 2002/11/08 16:51:50 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -18,7 +18,7 @@ (in-package :asdf) -#+(or allegro lispworks cmu sbcl openmcl mcl) +#+(or allegro lispworks cmu sbcl openmcl mcl scl) (defsystem :clsql-base :name "cl-sql-base" :author "Kevin M. Rosenberg " @@ -41,7 +41,3 @@ (:file "db-interface" :depends-on ("conditions")) (:file "initialize" :depends-on ("db-interface")))))) -#+(or allegro lispworks cmu sbcl openmcl mcl) -(when (ignore-errors (find-class 'load-compiled-op)) - (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :clsql-base)))) - (pushnew :clsql-base cl:*features*)))