[Linedit-cvs] CVS src

[nsiivola]

Update of /project/linedit/cvsroot/src
In directory clnet:/tmp/cvs-serv2297

Modified Files:
	editor.lisp linedit.asd terminal.lisp version.lisp-expr 
Log Message:
Lispworks patch #1 by Lui Fungsin

--- /project/linedit/cvsroot/src/editor.lisp	2004/04/25 15:03:26	1.17
+++ /project/linedit/cvsroot/src/editor.lisp	2007/03/18 01:40:35	1.18
@@ -127,14 +127,16 @@
 
 (uffi:def-function ("linedit_interrupt" c-interrupt)
     ()
-  :returning :void)
+  :returning :void
+  :module "signals")
 
 (defun editor-interrupt (editor)
   (without-backend editor (c-interrupt)))
 
 (uffi:def-function ("linedit_stop" c-stop)
     ()
-  :returning :void)
+  :returning :void
+  :module "signals")
 
 (defun editor-stop (editor)
   (without-backend editor (c-stop)))
--- /project/linedit/cvsroot/src/linedit.asd	2004/04/25 12:25:47	1.31
+++ /project/linedit/cvsroot/src/linedit.asd	2007/03/18 01:40:35	1.32
@@ -43,7 +43,7 @@
 (defmethod perform ((o load-op) (c uffi-c-source-file))
   (let ((loader (intern "LOAD-FOREIGN-LIBRARY" :uffi)))
     (dolist (f (asdf::input-files o c))
-      (funcall loader f))))
+      (funcall loader f :module (pathname-name f)))))
 
 (defmethod perform ((o compile-op) (c uffi-c-source-file))
   (unless (zerop (run-shell-command "~A ~A ~{~A ~}-o ~A"
--- /project/linedit/cvsroot/src/terminal.lisp	2007/03/18 01:26:01	1.8
+++ /project/linedit/cvsroot/src/terminal.lisp	2007/03/18 01:40:35	1.9
@@ -27,7 +27,8 @@
 
 (uffi:def-function ("linedit_terminal_columns" c-terminal-columns)
     ((default :int))
-  :returning :int)
+  :returning :int
+  :module "terminal_glue")
 
 (defmethod backend-columns ((backend terminal))
   (let ((cols (c-terminal-columns *default-columns*)))
@@ -37,14 +38,16 @@
 
 (uffi:def-function ("linedit_terminal_lines" c-terminal-lines)
     ((default :int))
-  :returning :int)
+  :returning :int
+  :module "terminal_glue")
 
 (defmethod backend-lines ((backend terminal))
   (c-terminal-lines *default-lines*))
 
 (uffi:def-function ("linedit_terminal_init" c-terminal-init)
     ()
-  :returning :int)
+  :returning :int
+  :module "terminal_glue")
 
 (defmethod backend-init ((backend terminal))
   (invariant (not (backend-ready-p backend)))
@@ -53,7 +56,8 @@
 
 (uffi:def-function ("linedit_terminal_close" c-terminal-close)
     ()
-  :returning :int)
+  :returning :int
+  :module "terminal_glue")
 
 (defmethod backend-close ((backend terminal))
   (invariant (backend-ready-p backend))
--- /project/linedit/cvsroot/src/version.lisp-expr	2007/03/18 01:26:01	1.16
+++ /project/linedit/cvsroot/src/version.lisp-expr	2007/03/18 01:40:35	1.17
@@ -1 +1 @@
-0.15.13
+0.15.14