X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=packages.lisp;h=cd3ecf1070120e53caa56a783139eca18e18d713;hb=8860ab3c3069575f135b837923e2531bebc42007;hp=8b497e4e56cd963228e4dcd517802a33c2fe47e2;hpb=f49e847742f3b30b1a911c2a2e59e1adb1c3cc2f;p=cl-readline.git

diff --git a/packages.lisp b/packages.lisp
index 8b497e4..cd3ecf1 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -1,5 +1,5 @@
 ;; Copyright (c) 2003 Nikodemus Siivola
-;; 
+;;
 ;; Permission is hereby granted, free of charge, to any person obtaining
 ;; a copy of this software and associated documentation files (the
 ;; "Software"), to deal in the Software without restriction, including
@@ -7,10 +7,10 @@
 ;; distribute, sublicense, and/or sell copies of the Software, and to
 ;; permit persons to whom the Software is furnished to do so, subject to
 ;; the following conditions:
-;; 
+;;
 ;; The above copyright notice and this permission notice shall be included
 ;; in all copies or substantial portions of the Software.
-;; 
+;;
 ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 ;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
@@ -19,22 +19,27 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-(defpackage libreadline
-  (:use cl uffi))
-
 (defpackage readline
   (:nicknames rl)
-  (:use cl uffi)  
+  (:use cl uffi)
   (:export
    add-completion
    add-history
    clear-completions
    readline
-   use-cl-complete
+   readexpr
+   use-package-complete
    use-custom-complete
    use-filename-complete
+   without-echo
    ))
 
-(uffi:load-foreign-library "/usr/lib/cl-readline/libreadline-cl.so"
-			   :module "readline-cl")
+(uffi:load-foreign-library "/lib/libreadline.so.4"
+                           :module "readline")
+
+(uffi:load-foreign-library "cl-readline.o"
+                           :module "cl-readline")
+
+(uffi:load-foreign-library "cl-termios.o"
+                           :module "cl-termios")