/[gcl]/gcl/unixport/init_gcl.lsp
ViewVC logotype

Diff of /gcl/unixport/init_gcl.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.2.1 by camm, Wed Dec 19 00:11:22 2001 UTC revision 1.3.2.2 by camm, Thu Dec 20 00:00:27 2001 UTC
# Line 21  Line 21 
21  (setq compiler::*cmpinclude* "<cmpinclude.h>") (load #"../cmpnew/cmpmain.lsp") (gbc t)  (setq compiler::*cmpinclude* "<cmpinclude.h>") (load #"../cmpnew/cmpmain.lsp") (gbc t)
22   (load #"../cmpnew/lfun_list.lsp")   (load #"../cmpnew/lfun_list.lsp")
23   (gbc t) (load #"../cmpnew/cmpopt.lsp") (gbc t)   (gbc t) (load #"../cmpnew/cmpopt.lsp") (gbc t)
24  (load #"../lsp/auto.lsp") (gbc t)  (load #"../lsp/auto_new.lsp") (gbc t)
25    
26   (when compiler::*cmpinclude-string*   (when compiler::*cmpinclude-string*
27    (with-open-file (st "../h/cmpinclude.h")    (with-open-file (st "../h/cmpinclude.h")
# Line 95  Line 95 
95   (unintern 'user)   (unintern 'user)
96   ;system-init   ;system-init
97    
  ; init Readline word completion list for Gcl  
  (if (fboundp 'si::readline-init)  
         (let (l)  
                 (sloop::sloop for v in-package 'lisp do  
                         (if (or (boundp v) (fboundp v))  
                                 (setq l (cons (symbol-name v) l))))  
                 (sloop::sloop for v in-package 'keyword do  
                         (if (or (boundp v) (fboundp v))  
                                 (setq l (cons (format nil ":~A" v) l))))  
                 (si::readline-init t "Gcl" 1 l)))  
   
98   (if (fboundp 'user-init) (user-init))   (if (fboundp 'user-init) (user-init))
99   (si::set-up-top-level)   (si::set-up-top-level)
100   (in-package "USER")   (in-package "USER")

Legend:
Removed from v.1.3.2.1  
changed lines
  Added in v.1.3.2.2

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