X-Git-Url: http://git.kpe.io/?p=cl-readline.git;a=blobdiff_plain;f=packages.lisp;h=cd3ecf1070120e53caa56a783139eca18e18d713;hp=dd801cf74d63488b94ffb0fd366cf60b1ff0cd2e;hb=HEAD;hpb=1640f89acdd00711a4b1dd29d53a3bf4168da433

diff --git a/packages.lisp b/packages.lisp
index dd801cf..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.
@@ -21,19 +21,25 @@
 
 (defpackage readline
   (:nicknames rl)
-  (:use cl uffi)  
+  (:use cl uffi)
   (:export
    add-completion
    add-history
    clear-completions
    readline
    readexpr
-   repl
    use-package-complete
    use-custom-complete
    use-filename-complete
+   without-echo
    ))
 
-(uffi:load-foreign-library "/usr/lib/cl-readline/cl-readline.so"
-			   :module "cl-readline")
+(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")