/[gcl]/gcl/lsp/gcl_info.data
ViewVC logotype

Diff of /gcl/lsp/gcl_info.data

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

revision 1.2 by camm, Sun Sep 14 02:43:05 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:30 2003 UTC
# Line 29  File:  hotlist Node: Top Line 29  File:  hotlist Node: Top
29    
30  * Menu: Hot list of favrite info items.  * Menu: Hot list of favrite info items.
31    
32  " "* (~a)~a::~%" lisp::make-array lisp::vector-push-extend lisp::open system::fread system::file-to-string system::string-match system::match-end system::match-beginning system::atoi system::get-match system::info-error lisp::position system::re-quote-string system::string-concatenate system::get-nodes system::show-info system::get-index-node system::fix-load-path system::file-search lisp::search system::info-get-tags system::nodes-from-index system::tkerror system::winfo system::info-subfile system::info-get-file system::waiting system::setup-info system::get-node-index system::print-node system::end-waiting system::get-info-choices system::add-file system::info-aux system::offer-choices lisp::type-error lisp::read-from-string lisp::remove-if lisp::user-homedir-pathname system::default-info-hotlist (system::%init . #((system::mf (lisp::quote system::sharp-u-reader) 0) (lisp::set-dispatch-macro-character #\# #\u (lisp::quote system::sharp-u-reader)) (system::*make-special (lisp::quote system::*info-data*)) (lisp::or (lisp::boundp (lisp::quote system::*info-data*)) (lisp::setq system::*info-data* lisp::nil)) (system::*make-special (lisp::quote system::*current-info-data*)) (lisp::or (lisp::boundp (lisp::quote system::*current-info-data*)) (lisp::setq system::*current-info-data* lisp::nil)) (system::mf (lisp::quote system::file-to-string) 1) (system::mf (lisp::quote system::atoi) 2) (system::mf (lisp::quote system::info-get-tags) 3) (system::mf (lisp::quote system::re-quote-string) 4) (system::mf (lisp::quote system::get-match) 5) (system::mf (lisp::quote system::get-nodes) 6) (system::mf (lisp::quote system::get-index-node) 7) (system::mf (lisp::quote system::nodes-from-index) 8) (system::mf (lisp::quote system::get-node-index) 9) (system::mf (lisp::quote system::all-matches) 10) (system::mm (lisp::quote system::node) 11) (system::mf (lisp::quote system::node-offset) 12) (system::*make-special (lisp::quote system::*info-paths*)) (lisp::or (lisp::boundp (lisp::quote system::*info-paths*)) (lisp::setq system::*info-paths* (lisp::quote ("" "/usr/info/" "/usr/local/lib/info/" "/usr/local/info/" "/usr/local/gnu/info/" "/usr/share/info/")))) (system::*make-special (lisp::quote system::*old-lib-directory*)) (lisp::or (lisp::boundp (lisp::quote system::*old-lib-directory*)) (lisp::setq system::*old-lib-directory* lisp::nil)) (system::mf (lisp::quote system::setup-info) 13) (system::mf (lisp::quote system::get-info-choices) 14) (system::mf (lisp::quote system::add-file) 15) (system::*make-special (lisp::quote system::*info-window*)) (lisp::or (lisp::boundp (lisp::quote system::*info-window*)) (lisp::setq system::*info-window* lisp::nil)) (system::*make-special (lisp::quote system::*tk-connection*)) (lisp::or (lisp::boundp (lisp::quote system::*tk-connection*)) (lisp::setq system::*tk-connection* lisp::nil)) (system::mf (lisp::quote system::info-error) 16) (system::*make-special (lisp::quote system::*last-info-file*)) (lisp::or (lisp::boundp (lisp::quote system::*last-info-file*)) (lisp::setq system::*last-info-file* lisp::nil)) (system::mf (lisp::quote system::info-get-file) 17) (system::mf (lisp::quote system::waiting) 18) (system::mf (lisp::quote system::end-waiting) 19) (system::mf (lisp::quote system::info-subfile) 20) (system::mf (lisp::quote system::info-node-from-position) 21) (system::mf (lisp::quote system::show-info) 22) (system::*make-special (lisp::quote system::*default-info-files*)) (lisp::or (lisp::boundp (lisp::quote system::*default-info-files*)) (lisp::setq system::*default-info-files* (lisp::quote ("gcl-si.info" "gcl-tk.info" "gcl.info")))) (system::mf (lisp::quote system::info-aux) 23) (system::mf (lisp::quote system::info-search) 24) (system::mf (lisp::quote system::idescribe) 25) (system::mf (lisp::quote system::info) 26) (system::mf (lisp::quote system::default-info-hotlist) 27) (system::*make-special (lisp::quote system::*info-window*)) (lisp::or (lisp::boundp (lisp::quote system::*info-window*)) (lisp::setq system::*info-window* lisp::nil)) (system::mf (lisp::quote system::add-to-hotlist) 28) (system::mf (lisp::quote system::list-matches) 29) (system::debug (lisp::quote system::sharp-u-reader) (lisp::quote (lisp::stream system::subchar system::arg))) (system::debug (lisp::quote system::file-to-string) (lisp::quote (system::file system::start lisp::nil system::len system::st))) (system::debug (lisp::quote system::atoi) (lisp::quote (lisp::string system::start))) (system::debug (lisp::quote system::info-get-tags) (lisp::quote (system::file))) (system::debug (lisp::quote system::re-quote-string) (lisp::quote (system::x))) (system::debug (lisp::quote system::get-match) (lisp::quote (lisp::string system::i))) (system::debug (lisp::quote system::get-nodes) (lisp::quote (system::pat system::node-string))) (system::debug (lisp::quote system::get-index-node) (lisp::quote (system::node-string system::node))) (system::debug (lisp::quote system::nodes-from-index) (lisp::quote (system::pat))) (system::debug (lisp::quote system::get-node-index) (lisp::quote (system::pat system::node-string))) (system::debug (lisp::quote system::all-matches) (lisp::quote (system::pat system::st lisp::nil #:g1430))) (system::debug (lisp::quote system::node-offset) (lisp::quote (system::node))) (system::debug (lisp::quote system::setup-info) (lisp::quote (system::name #:g1434))) (system::debug (lisp::quote system::get-info-choices) (lisp::quote (system::pat lisp::type))) (system::debug (lisp::quote system::add-file) (lisp::quote (system::v system::file #:g1442))) (system::debug (lisp::quote system::info-error) (lisp::quote (system::l))) (system::debug (lisp::quote system::info-get-file) (lisp::quote (lisp::pathname))) (system::debug (lisp::quote system::waiting) (lisp::quote (system::win))) (system::debug (lisp::quote system::end-waiting) (lisp::quote (system::win))) (system::debug (lisp::quote system::info-subfile) (lisp::quote (system::n system::v))) (system::debug (lisp::quote system::info-node-from-position) (lisp::quote (system::n system::info-subfile system::s system::end system::i system::beg system::name system::end system::node))) (system::debug (lisp::quote system::show-info) (lisp::quote (system::name system::position-pattern system::use-tk lisp::nil system::s system::start system::i system::beg system::end system::node))) (system::debug (lisp::quote system::info-aux) (lisp::quote (system::x system::dirs))) (system::debug (lisp::quote system::info-search) (lisp::quote (system::pattern system::start system::end system::s system::beg system::i system::leng))) (system::debug (lisp::quote system::idescribe) (lisp::quote (system::name system::items system::v))) (system::debug (lisp::quote system::info) (lisp::quote (system::x system::dirs system::*current-info-data* system::nitems #:g1509))) (system::debug (lisp::quote system::add-to-hotlist) (lisp::quote (system::node system::st))) (system::debug (lisp::quote system::list-matches) (lisp::quote (system::s system::l #:g1526))))))  " "* (~a)~a::~%" lisp::make-array lisp::vector-push-extend lisp::open system::fread system::file-to-string system::string-match system::match-end system::atoi system::match-beginning system::get-match system::info-error lisp::position system::re-quote-string system::string-concatenate system::get-nodes system::show-info system::get-index-node system::fix-load-path system::file-search lisp::search system::info-get-tags system::nodes-from-index system::tkerror system::winfo system::info-subfile system::info-get-file system::waiting system::setup-info system::get-node-index system::print-node system::end-waiting system::add-file system::get-info-choices system::info-aux system::offer-choices sloop::type-error lisp::read-from-string lisp::remove-if lisp::user-homedir-pathname system::default-info-hotlist (system::%init . #((system::mfsfun (lisp::quote system::sharp-u-reader) 0 3) (lisp::set-dispatch-macro-character #\# #\u (lisp::quote system::sharp-u-reader)) (system::*make-special (lisp::quote system::*info-data*)) (lisp::or (lisp::boundp (lisp::quote system::*info-data*)) (lisp::setq system::*info-data* lisp::nil)) (system::*make-special (lisp::quote system::*current-info-data*)) (lisp::or (lisp::boundp (lisp::quote system::*current-info-data*)) (lisp::setq system::*current-info-data* lisp::nil)) (system::mfvfun (lisp::quote system::file-to-string) 1 513) (system::mfsfun (lisp::quote system::atoi) 2 16642) (system::mfsfun (lisp::quote system::info-get-tags) 3 1) (system::mfsfun (lisp::quote system::re-quote-string) 4 1) (system::mfsfun (lisp::quote system::get-match) 5 2) (system::mfsfun (lisp::quote system::get-nodes) 6 2) (system::mfsfun (lisp::quote system::get-index-node) 7 0) (system::mfsfun (lisp::quote system::nodes-from-index) 8 1) (system::mfsfun (lisp::quote system::get-node-index) 9 258) (system::mfsfun (lisp::quote system::all-matches) 10 2) (system::mm (lisp::quote system::node) 11) (system::mfsfun (lisp::quote system::node-offset) 12 1) (system::*make-special (lisp::quote system::*info-paths*)) (lisp::or (lisp::boundp (lisp::quote system::*info-paths*)) (lisp::setq system::*info-paths* (lisp::quote ("" "/usr/info/" "/usr/local/lib/info/" "/usr/local/info/" "/usr/local/gnu/info/" "/usr/share/info/")))) (system::*make-special (lisp::quote system::*old-lib-directory*)) (lisp::or (lisp::boundp (lisp::quote system::*old-lib-directory*)) (lisp::setq system::*old-lib-directory* lisp::nil)) (system::mfsfun (lisp::quote system::setup-info) 13 1) (system::mfsfun (lisp::quote system::get-info-choices) 14 2) (system::mfsfun (lisp::quote system::add-file) 15 2) (system::*make-special (lisp::quote system::*info-window*)) (lisp::or (lisp::boundp (lisp::quote system::*info-window*)) (lisp::setq system::*info-window* lisp::nil)) (system::*make-special (lisp::quote system::*tk-connection*)) (lisp::or (lisp::boundp (lisp::quote system::*tk-connection*)) (lisp::setq system::*tk-connection* lisp::nil)) (system::mf (lisp::quote system::info-error) 16) (system::*make-special (lisp::quote system::*last-info-file*)) (lisp::or (lisp::boundp (lisp::quote system::*last-info-file*)) (lisp::setq system::*last-info-file* lisp::nil)) (system::mfsfun (lisp::quote system::info-get-file) 17 1) (system::mf (lisp::quote system::waiting) 18) (system::mf (lisp::quote system::end-waiting) 19) (system::mf (lisp::quote system::info-subfile) 20) (system::mfsfun (lisp::quote system::info-node-from-position) 21 1) (system::mf (lisp::quote system::show-info) 22) (system::*make-special (lisp::quote system::*default-info-files*)) (lisp::or (lisp::boundp (lisp::quote system::*default-info-files*)) (lisp::setq system::*default-info-files* (lisp::quote ("gcl-si.info" "gcl-tk.info" "gcl.info")))) (system::mfsfun (lisp::quote system::info-aux) 23 2) (system::mfvfun (lisp::quote system::info-search) 24 769) (system::mfsfun (lisp::quote system::idescribe) 25 1) (system::mf (lisp::quote system::info) 26) (system::mfsfun (lisp::quote system::default-info-hotlist) 27 0) (system::*make-special (lisp::quote system::*info-window*)) (lisp::or (lisp::boundp (lisp::quote system::*info-window*)) (lisp::setq system::*info-window* lisp::nil)) (system::mfsfun (lisp::quote system::add-to-hotlist) 28 1) (system::mfvfun (lisp::quote system::list-matches) 29 16385) (system::debug (lisp::quote system::file-to-string) (lisp::quote (system::file system::start lisp::nil system::len system::st))) (system::debug (lisp::quote system::get-index-node) (lisp::quote (system::node-string system::node))) (system::debug (lisp::quote system::all-matches) (lisp::quote (lisp::nil #:g1422))) (system::debug (lisp::quote system::setup-info) (lisp::quote (#:g1426))) (system::debug (lisp::quote system::add-file) (lisp::quote (#:g1434))) (system::debug (lisp::quote system::info-error) (lisp::quote (system::l))) (system::debug (lisp::quote system::waiting) (lisp::quote (system::win))) (system::debug (lisp::quote system::end-waiting) (lisp::quote (system::win))) (system::debug (lisp::quote system::info-subfile) (lisp::quote (system::n system::v))) (system::debug (lisp::quote system::info-node-from-position) (lisp::quote (system::info-subfile system::s system::end system::i system::beg system::name system::end system::node))) (system::debug (lisp::quote system::show-info) (lisp::quote (system::name system::position-pattern system::use-tk lisp::nil system::s system::start system::i system::beg system::end system::node))) (system::debug (lisp::quote system::info-search) (lisp::quote (system::s system::start system::end system::leng))) (system::debug (lisp::quote system::idescribe) (lisp::quote (system::items system::v))) (system::debug (lisp::quote system::info) (lisp::quote (system::x system::dirs system::*current-info-data* system::nitems #:g1494))) (system::debug (lisp::quote system::add-to-hotlist) (lisp::quote (system::node system::st))) (system::debug (lisp::quote system::list-matches) (lisp::quote (system::s system::l))))))
33  )  )

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

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