← Back to branch summary

~ubuntu-branches/ubuntu/vivid/gcl/vivid

« back to all changes in this revision

Viewing changes to lsp/readline.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2002-03-04 14:29:59 UTC
  • Revision ID: james.westby@ubuntu.com-20020304142959-dey14w08kr7lldu3
Tags: upstream-2.5.0.cvs20020219
Import upstream version 2.5.0.cvs20020219

Show diffs side-by-side

added added

removed removed

Lines of Context:
lsp/readline.lsp
 
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))))