[Linedit-cvs] CVS src

[nsiivola]

Update of /project/linedit/cvsroot/src
In directory cl-net:/tmp/cvs-serv27405

Modified Files:
	linedit.asd 
Log Message:
make linedit.asd Allegro modern-mode friendly

 Patch by Kevin M. Rosenberg <kevin at rosenberg.net>



--- /project/linedit/cvsroot/src/linedit.asd	2010/03/11 17:15:42	1.34
+++ /project/linedit/cvsroot/src/linedit.asd	2010/03/11 17:21:30	1.35
@@ -50,7 +50,7 @@
 		       :defaults (component-pathname c))))
 
 (defmethod perform ((o load-op) (c uffi-c-source-file))
-  (let ((loader (intern "LOAD-FOREIGN-LIBRARY" :uffi)))
+  (let ((loader (intern (symbol-name '#:load-foreign-library) :uffi)))
     (dolist (f (asdf::input-files o c))
       (funcall loader f :module (pathname-name f)))))