From 2a4b21bbfe9c23a4c259aea40c1ffd608f59a136 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 30 May 2004 08:14:53 +0000 Subject: [PATCH] r9523: * clsql-mysql.asd, clsql-uffi.asd: Remove check and Common Lisp Controller invocation. --- ChangeLog | 2 ++ clsql-mysql.asd | 4 ++-- clsql-uffi.asd | 4 ++-- 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6a7e1af..0aa7933 100644 --- a/ChangeLog +++ b/ChangeLog @@ -11,6 +11,8 @@ prepared statements. * tests/test-internal.lisp: New file * sql/odbc-api.lisp: Update to using ODBC V3 protocol + * clsql-mysql.asd, clsql-uffi.asd: Remove check and Common Lisp + Controller invocation. 27 May 2004 Kevin Rosenberg * Version 2.11.3 diff --git a/clsql-mysql.asd b/clsql-mysql.asd index fe661dc..cbcd914 100644 --- a/clsql-mysql.asd +++ b/clsql-mysql.asd @@ -20,8 +20,8 @@ (in-package #:clsql-mysql-system) (eval-when (:compile-toplevel :load-toplevel :execute) - #+common-lisp-controller (require 'uffi) - #-common-lisp-controller (asdf:operate 'asdf:load-op 'uffi)) + (unless (find-package 'uffi) + (asdf:operate 'asdf:load-op 'uffi))) (defvar *library-file-dir* (append (pathname-directory *load-truename*) (list "db-mysql"))) diff --git a/clsql-uffi.asd b/clsql-uffi.asd index 215e6bc..e3aec75 100644 --- a/clsql-uffi.asd +++ b/clsql-uffi.asd @@ -20,8 +20,8 @@ ;; need to load uffi for below output-files method (eval-when (:compile-toplevel :load-toplevel :execute) - #+common-lisp-controller (require 'uffi) - #-common-lisp-controller (asdf:operate 'asdf:load-op 'uffi)) + (unless (find-package 'uffi) + (asdf:operate 'asdf:load-op 'uffi))) (defpackage clsql-uffi-system (:use #:asdf #:cl)) (in-package clsql-uffi-system) -- 2.34.1