projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2842: *** empty log message ***
[uffi.git]
/
uffi.asd
diff --git
a/uffi.asd
b/uffi.asd
index 1b1c9b52865c1cd75c8cbcfddf0fa8ff8c53e220..a3735710466c30ef469b2a66e011a0af8eaf9a03 100644
(file)
--- a/
uffi.asd
+++ b/
uffi.asd
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: uffi.asd,v 1.1
3 2002/09/20 01:26:17
kevin Exp $
+;;;; $Id: uffi.asd,v 1.1
5 2002/09/25 12:44:59
kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-19,6
+19,7
@@
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(in-package :asdf)
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(in-package :asdf)
+#+(or allegro lispworks cmu openmcl mcl)
(defsystem uffi
:name "cl-uffi"
:author "Kevin M. Rosenberg <kmr@debian.org>"
(defsystem uffi
:name "cl-uffi"
:author "Kevin M. Rosenberg <kmr@debian.org>"
@@
-29,7
+30,7
@@
:long-description "UFFI provides a universal foreign function interface (FFI) for Common Lisp. UFFI supports CMUCL, Lispworks, and AllegroCL."
:perform (load-op :after (op uffi)
:long-description "UFFI provides a universal foreign function interface (FFI) for Common Lisp. UFFI supports CMUCL, Lispworks, and AllegroCL."
:perform (load-op :after (op uffi)
-
(pushnew :uffi cl:*features*))
+ (pushnew :uffi cl:*features*))
:components
(
:components
(
@@
-60,6
+61,11
@@
))
))
-(defmethod source-file-type ((c cl-source-file) (s (eql (find-system 'uffi))))
+#+(or allegro lispworks cmu openmcl mcl)
+(defmethod source-file-type ((c cl-source-file) (s (eql (find-system :uffi))))
"cl")
"cl")
+#+(or allegro lispworks cmu openmcl mcl)
+(when (ignore-errors (find-class 'load-compiled-op))
+ (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :uffi))))
+ (pushnew :uffi cl:*features*)))