/[gcl]/gcl/lsp/readline.lsp
ViewVC logotype

Diff of /gcl/lsp/readline.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26