[Linedit-cvs] CVS update: src/linedit.asd

[Nikodemus Siivola]

Update of /project/linedit/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv3674

Modified Files:
	linedit.asd 
Log Message:
Play better with ASDF.
Date: Mon Sep 29 15:19:59 2003
Author: nsiivola

Index: src/linedit.asd
diff -u src/linedit.asd:1.13 src/linedit.asd:1.14
--- src/linedit.asd:1.13	Sun Sep 28 07:37:43 2003
+++ src/linedit.asd	Mon Sep 29 15:19:59 2003
@@ -19,10 +19,6 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;;; The system-definition itself needs UFFI. Blech.
-(unless (find-package :uffi)  
-  (error "UFFI must be loaded before Linedit."))
-
 (declaim (optimize (debug 3) (safety 3)))
 
 (in-package :asdf)
@@ -35,8 +31,10 @@
 		       :defaults (component-pathname c))))
 
 (defmethod perform ((o load-op) (c c-source-file))
-  (dolist (f (input-files o c))
-    (uffi:load-foreign-library f)))
+  (let ((loader (or (find-symbol "LOAD-FOREIGN-LIBRARY" :uffi)
+		    (error "Could not find UFFI:LOAD-FOREIGN-LIBRARY."))))
+    (dolist (f (input-files o c))
+      (funcall loader f))))
 
 (defmethod perform ((o compile-op) (c c-source-file))
   (unless (zerop (run-shell-command "~A ~A -shared -fPIC -o ~A"