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

[Nikodemus Siivola]

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

Modified Files:
	linedit.asd 
Log Message:
Prettier interning.
Date: Mon Sep 29 15:28:36 2003
Author: nsiivola

Index: src/linedit.asd
diff -u src/linedit.asd:1.14 src/linedit.asd:1.15
--- src/linedit.asd:1.14	Mon Sep 29 15:19:59 2003
+++ src/linedit.asd	Mon Sep 29 15:28:36 2003
@@ -31,8 +31,7 @@
 		       :defaults (component-pathname c))))
 
 (defmethod perform ((o load-op) (c c-source-file))
-  (let ((loader (or (find-symbol "LOAD-FOREIGN-LIBRARY" :uffi)
-		    (error "Could not find UFFI:LOAD-FOREIGN-LIBRARY."))))
+  (let ((loader (intern "LOAD-FOREIGN-LIBRARY" :uffi)))
     (dolist (f (input-files o c))
       (funcall loader f))))