;; 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
;; 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.
(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")