Parent Directory | Revision Log | Patch
revision 1.1 by camm, Thu Dec 20 00:00:27 2001 UTC | revision 1.2 by camm, Sun Feb 3 18:44:07 2002 UTC | |
---|---|---|
# | Line 0 | Line 1 |
1 | (in-package "SI" ) | |
2 | (defun init-readline () | |
3 | ; init Readline word completion list for Gcl | |
4 | (if (fboundp 'si::readline-init) | |
5 | (let (l) | |
6 | (sloop::sloop for v in-package 'lisp do | |
7 | (if (or (boundp v) (fboundp v)) | |
8 | (setq l (cons (symbol-name v) l)))) | |
9 | (sloop::sloop for v in-package 'keyword do | |
10 | (if (or (boundp v) (fboundp v)) | |
11 | (setq l (cons (format nil ":~A" v) l)))) | |
12 | (si::readline-init t "Gcl" 1 l)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |