projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use lower case symbols for compatibility with "modern"-mode AllegroCL
[clsql.git]
/
clsql.asd
diff --git
a/clsql.asd
b/clsql.asd
index 29e2f38bf55d7835402837963faeee29ff297f29..c28225e22833284cec52833f893c937f6a60b4b2 100644
(file)
--- a/
clsql.asd
+++ b/
clsql.asd
@@
-3,7
+3,7
@@
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: clsql.asd
;;;; FILE IDENTIFICATION
;;;;
;;;; Name: clsql.asd
-;;;; Purpose: ASDF
s
ystem definition for CLSQL
+;;;; Purpose: ASDF
S
ystem definition for CLSQL
;;;; Authors: Marcus Pearce and Kevin M. Rosenberg
;;;; Created: March 2004
;;;;
;;;; Authors: Marcus Pearce and Kevin M. Rosenberg
;;;; Created: March 2004
;;;;
@@
-16,14
+16,15
@@
(defpackage #:clsql-system (:use #:asdf #:cl))
(in-package #:clsql-system)
(defpackage #:clsql-system (:use #:asdf #:cl))
(in-package #:clsql-system)
-#+clisp
-(progn
- (asdf:operate 'asdf:load-op 'cffi)
- (asdf:operate 'asdf:load-op 'cffi-uffi-compat)
- (asdf:defsystem uffi :depends-on (cffi-uffi-compat)))
+#+(and clisp (not :clsql-cffi))
+(asdf:operate 'asdf:load-op 'clsql-cffi)
;; need to load uffi for below perform :after method
(eval-when (:compile-toplevel :load-toplevel :execute)
;; need to load uffi for below perform :after method
(eval-when (:compile-toplevel :load-toplevel :execute)
+ #+:clsql-cffi
+ (unless (find-package 'cffi-uffi-compat)
+ (asdf:operate 'asdf:load-op 'cffi-uffi-compat))
+ #-:clsql-cffi
(unless (find-package 'uffi)
(asdf:operate 'asdf:load-op 'uffi)))
(unless (find-package 'uffi)
(asdf:operate 'asdf:load-op 'uffi)))