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

Diff of /gcl/lsp/top.data

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

revision 1.3 by wfs, Tue Apr 17 22:30:55 2001 UTC revision 1.4 by camm, Sat Oct 5 18:34:15 2002 UTC
# Line 49  Low level commands: Line 49  Low level commands:
49  :bds ['v1 'v2 ..]Show previous special bindings of v1, v2,.. or all if no v1  :bds ['v1 'v2 ..]Show previous special bindings of v1, v2,.. or all if no v1
50    
51  ") "~%Here is a COMPLETE list of bindings.   Too  ") "~%Here is a COMPLETE list of bindings.   Too
52  add a new one, add a 'si::break-command property:" "KEYWORD" "~%~(~a -- ~a~)" "not a string ~a" #\/ "~a/" system::*fixed-load-path* system::*load-path* system::*load-types* system::*path* "Do (setq si::*path* \"pathname\") for path to use then :r to continue" "Lookup failed in directories:~s for name ~s with extensions ~s" system::*allow-gzipped-file* lisp::macro system::*lib-directory* "GCL_LIBDIR" "-libdir" "lsp/" "gcl-tk/" system::*system-directory* :name :defaults "-dir" "-f" (lisp::nil) lisp::load system::process-some-args lisp::read lisp::eval lisp::prin1 system::break-current lisp::read-from-string system::string-concatenate lisp::make-string-input-stream system::ihs-top system::sch-frs-base system::frs-top system::simple-backtrace system::break-quit system::catch-fatal system::set-current system::set-back system::dbl-read system::break-call lisp::evalhook lisp::break system::break-level system::complete-prop system::set-env system::ihs-visible system::ihs-fname system::break-previous system::ihs-vs system::print-ihs system::vs system::break-vs system::frs-bds system::bds-var system::print-frs system::bds-val system::frs-ihs system::ihs-fun lisp::lambda-block system::lambda-block-expanded lisp::lambda-block-closure system::frs-kind system::frs-vs system::frs-class :catch system::frs-tag system::spicep lisp::caddr lisp::eq lisp::remove :protect system::compiled-function-name system::ihs-not-interpreted-env system::list-delq system::internal-super-go lisp::search lisp::char-equal system::break-go system::package-size system::coerce-slash-terminated system::fix-load-path system::file-search system::get-command-arg system::argc system::argv system::getenv system::set-dir system::do-f lisp::open system::aload (system::%init . #((system::*make-special (lisp::quote lisp::+)) (system::*make-special (lisp::quote lisp::++)) (system::*make-special (lisp::quote lisp::+++)) (system::*make-special (lisp::quote lisp::-)) (system::*make-special (lisp::quote lisp::*)) (system::*make-special (lisp::quote lisp::**)) (system::*make-special (lisp::quote lisp::***)) (system::*make-special (lisp::quote lisp::/)) (system::*make-special (lisp::quote lisp:://)) (system::*make-special (lisp::quote lisp::///)) (system::*make-special (lisp::quote system::*fixed-load-path*)) (lisp::or (lisp::boundp (lisp::quote system::*fixed-load-path*)) (lisp::setq system::*fixed-load-path* lisp::nil)) (system::*make-special (lisp::quote system::*load-path*)) (lisp::or (lisp::boundp (lisp::quote system::*load-path*)) (lisp::setq system::*load-path* lisp::nil)) (system::*make-special (lisp::quote system::*load-types*)) (lisp::or (lisp::boundp (lisp::quote system::*load-types*)) (lisp::setq system::*load-types* (lisp::quote (".o" ".lsp" ".lisp")))) (system::*make-special (lisp::quote system::*lisp-initialized*)) (lisp::or (lisp::boundp (lisp::quote system::*lisp-initialized*)) (lisp::setq system::*lisp-initialized* lisp::nil)) (system::*make-special (lisp::quote system::*quit-tag*)) (lisp::or (lisp::boundp (lisp::quote system::*quit-tag*)) (lisp::setq system::*quit-tag* (lisp::cons lisp::nil lisp::nil))) (system::*make-special (lisp::quote system::*quit-tags*)) (lisp::or (lisp::boundp (lisp::quote system::*quit-tags*)) (lisp::setq system::*quit-tags* lisp::nil)) (system::*make-special (lisp::quote system::*break-level*)) (lisp::or (lisp::boundp (lisp::quote system::*break-level*)) (lisp::setq system::*break-level* (lisp::quote lisp::nil))) (system::*make-special (lisp::quote system::*break-env*)) (lisp::or (lisp::boundp (lisp::quote system::*break-env*)) (lisp::setq system::*break-env* lisp::nil)) (system::*make-special (lisp::quote system::*ihs-base*)) (lisp::or (lisp::boundp (lisp::quote system::*ihs-base*)) (lisp::setq system::*ihs-base* 1)) (system::*make-special (lisp::quote system::*ihs-top*)) (lisp::or (lisp::boundp (lisp::quote system::*ihs-top*)) (lisp::setq system::*ihs-top* 1)) (system::*make-special (lisp::quote system::*current-ihs*)) (lisp::or (lisp::boundp (lisp::quote system::*current-ihs*)) (lisp::setq system::*current-ihs* 1)) (system::*make-special (lisp::quote system::*frs-base*)) (lisp::or (lisp::boundp (lisp::quote system::*frs-base*)) (lisp::setq system::*frs-base* 0)) (system::*make-special (lisp::quote system::*frs-top*)) (lisp::or (lisp::boundp (lisp::quote system::*frs-top*)) (lisp::setq system::*frs-top* 0)) (system::*make-special (lisp::quote lisp::*break-enable*)) (lisp::or (lisp::boundp (lisp::quote lisp::*break-enable*)) (lisp::setq lisp::*break-enable* lisp::t)) (system::*make-special (lisp::quote system::*break-message*)) (lisp::or (lisp::boundp (lisp::quote system::*break-message*)) (lisp::setq system::*break-message* "")) (system::*make-special (lisp::quote lisp::*break-on-warnings*)) (lisp::or (lisp::boundp (lisp::quote lisp::*break-on-warnings*)) (lisp::setq lisp::*break-on-warnings* lisp::nil)) (system::*make-special (lisp::quote system::*break-readtable*)) (lisp::or (lisp::boundp (lisp::quote system::*break-readtable*)) (lisp::setq system::*break-readtable* lisp::nil)) (system::*make-special (lisp::quote system::*top-level-hook*)) (lisp::or (lisp::boundp (lisp::quote system::*top-level-hook*)) (lisp::setq system::*top-level-hook* lisp::nil)) (system::*make-special (lisp::quote system::*top-eof*)) (lisp::or (lisp::boundp (lisp::quote system::*top-eof*)) (lisp::setq system::*top-eof* (lisp::cons lisp::nil lisp::nil))) (system::*make-special (lisp::quote system::*no-prompt*)) (lisp::or (lisp::boundp (lisp::quote system::*no-prompt*)) (lisp::setq system::*no-prompt* lisp::nil)) (system::mfsfun (lisp::quote system::top-level) 0 0) (system::mf (lisp::quote system::process-some-args) 1) (system::mf (lisp::quote system::dbl-read) 2) (system::mf (lisp::quote system::break-level) 3) (system::*make-special (lisp::quote system::*debug-print-level*)) (lisp::or (lisp::boundp (lisp::quote system::*debug-print-level*)) (lisp::setq system::*debug-print-level* 3)) (system::mfvfun (lisp::quote lisp::warn) 4 16385) (system::mfvfun (lisp::quote system::universal-error-handler) 5 16389) (system::mfvfun (lisp::quote lisp::break) 6 16384) (system::mfsfun (lisp::quote system::terminal-interrupt) 7 1) (system::mfvfun (lisp::quote system::break-call) 8 770) (system::mf (lisp::quote system::break-quit) 9) (system::mf (lisp::quote system::break-previous) 10) (system::mfsfun (lisp::quote system::set-current) 11 0) (system::mf (lisp::quote system::break-next) 12) (system::mf (lisp::quote system::break-go) 13) (system::mf (lisp::quote system::break-message) 14) (system::mf (lisp::quote system::describe-environment) 15) (system::mf (lisp::quote system::break-vs) 16) (system::mf (lisp::quote system::break-local) 17) (system::mf (lisp::quote system::break-bds) 18) (system::mf (lisp::quote system::simple-backtrace) 19) (system::mf (lisp::quote system::ihs-backtrace) 20) (system::mfsfun (lisp::quote system::print-ihs) 21 1) (system::mfsfun (lisp::quote system::print-frs) 22 1) (system::mfsfun (lisp::quote system::frs-kind) 23 1) (system::mf (lisp::quote system::break-current) 24) (system::*make-special (lisp::quote system::*break-hidden-packages*)) (lisp::or (lisp::boundp (lisp::quote system::*break-hidden-packages*)) (lisp::setq system::*break-hidden-packages* lisp::nil)) (system::mfsfun (lisp::quote system::ihs-visible) 25 1) (system::mf (lisp::quote system::ihs-fname) 26) (system::mf (lisp::quote system::ihs-not-interpreted-env) 27) (system::mfsfun (lisp::quote system::set-env) 28 0) (system::mfsfun (lisp::quote system::list-delq) 29 2) (system::mfsfun (lisp::quote system::super-go) 30 2) (system::mfsfun (lisp::quote system::break-backward-search-stack) 31 1) (system::mfsfun (lisp::quote system::break-forward-search-stack) 32 1) (system::putprop :b (lisp::quote system::simple-backtrace) (lisp::quote system::break-command)) (system::putprop :r (lisp::quote (lisp::lambda lisp::nil :resume)) (lisp::quote system::break-command)) (system::putprop :resume (lisp::get :r (lisp::quote system::break-command)) (lisp::quote system::break-command)) (system::putprop :bds (lisp::quote system::break-bds) (lisp::quote system::break-command)) (system::putprop :blocks (lisp::quote system::break-blocks) (lisp::quote system::break-command)) (system::putprop :bs (lisp::quote system::break-backward-search-stack) (lisp::quote system::break-command)) (system::putprop :c (lisp::quote system::break-current) (lisp::quote system::break-command)) (system::putprop :fs (lisp::quote system::break-forward-search-stack) (lisp::quote system::break-command)) (system::putprop :functions (lisp::quote system::break-functions) (lisp::quote system::break-command)) (system::putprop :go (lisp::quote system::break-go) (lisp::quote system::break-command)) (system::putprop :h (lisp::quote system::break-help) (lisp::quote system::break-command)) (system::putprop :help (lisp::quote system::break-help) (lisp::quote system::break-command)) (system::putprop :ihs (lisp::quote system::ihs-backtrace) (lisp::quote system::break-command)) (system::putprop :env (lisp::quote (lisp::lambda lisp::nil (system::describe-environment system::*break-env*))) (lisp::quote system::break-command)) (system::putprop :m (lisp::quote system::break-message) (lisp::quote system::break-command)) (system::putprop :n (lisp::quote system::break-next) (lisp::quote system::break-command)) (system::putprop :p (lisp::quote system::break-previous) (lisp::quote system::break-command)) (system::putprop :q (lisp::quote system::break-quit) (lisp::quote system::break-command)) (system::putprop :s (lisp::quote system::break-backward-search-stack) (lisp::quote system::break-command)) (system::putprop :vs (lisp::quote system::break-vs) (lisp::quote system::break-command)) (system::mfsfun (lisp::quote system::break-help) 33 0) (system::mf (lisp::quote system::coerce-slash-terminated) 34) (system::mf (lisp::quote system::fix-load-path) 35) (system::putprop (lisp::quote system::file-search) "Search for NAMME in DIRS with EXTENSIONS.  add a new one, add a 'si::break-command property:" "KEYWORD" "~%~(~a -- ~a~)" "not a string ~a" #\/ "~a/" system::*fixed-load-path* system::*load-path* system::*load-types* system::*path* "Do (setq si::*path* \"pathname\") for path to use then :r to continue" "Lookup failed in directories:~s for name ~s with extensions ~s" system::*allow-gzipped-file* lisp::macro system::*lib-directory* "GCL_LIBDIR" "-libdir" "lsp/" "gcl-tk/" system::*system-directory* :name :defaults "-dir" "-f" (lisp::nil) lisp::load system::process-some-args lisp::read lisp::eval lisp::prin1 system::break-current lisp::read-from-string system::string-concatenate lisp::make-string-input-stream system::ihs-top system::sch-frs-base system::frs-top system::simple-backtrace system::break-quit system::catch-fatal system::set-current system::set-back system::dbl-read system::break-call lisp::evalhook lisp::break system::break-level system::complete-prop system::set-env system::ihs-visible system::ihs-fname system::break-previous system::ihs-vs system::print-ihs system::vs system::break-vs system::frs-bds system::bds-var system::print-frs system::bds-val system::frs-ihs system::ihs-fun lisp::lambda-block system::lambda-block-expanded lisp::lambda-block-closure system::frs-kind system::frs-vs system::frs-class :catch system::frs-tag system::spicep lisp::caddr lisp::eq lisp::remove :protect system::compiled-function-name system::ihs-not-interpreted-env system::list-delq system::internal-super-go lisp::search lisp::char-equal system::break-go system::package-size system::coerce-slash-terminated system::fix-load-path system::file-search system::get-command-arg system::argc system::argv system::getenv system::set-dir system::do-f lisp::open system::aload (system::%init . #((system::*make-special (lisp::quote lisp::+)) (system::*make-special (lisp::quote lisp::++)) (system::*make-special (lisp::quote lisp::+++)) (system::*make-special (lisp::quote lisp::-)) (system::*make-special (lisp::quote lisp::*)) (system::*make-special (lisp::quote lisp::**)) (system::*make-special (lisp::quote lisp::***)) (system::*make-special (lisp::quote lisp::/)) (system::*make-special (lisp::quote lisp:://)) (system::*make-special (lisp::quote lisp::///)) (system::*make-special (lisp::quote system::*fixed-load-path*)) (lisp::or (lisp::boundp (lisp::quote system::*fixed-load-path*)) (lisp::setq system::*fixed-load-path* lisp::nil)) (system::*make-special (lisp::quote system::*load-path*)) (lisp::or (lisp::boundp (lisp::quote system::*load-path*)) (lisp::setq system::*load-path* lisp::nil)) (system::*make-special (lisp::quote system::*load-types*)) (lisp::or (lisp::boundp (lisp::quote system::*load-types*)) (lisp::setq system::*load-types* (lisp::quote (".o" ".lsp" ".lisp")))) (system::*make-special (lisp::quote system::*lisp-initialized*)) (lisp::or (lisp::boundp (lisp::quote system::*lisp-initialized*)) (lisp::setq system::*lisp-initialized* lisp::nil)) (system::*make-special (lisp::quote system::*quit-tag*)) (lisp::or (lisp::boundp (lisp::quote system::*quit-tag*)) (lisp::setq system::*quit-tag* (lisp::cons lisp::nil lisp::nil))) (system::*make-special (lisp::quote system::*quit-tags*)) (lisp::or (lisp::boundp (lisp::quote system::*quit-tags*)) (lisp::setq system::*quit-tags* lisp::nil)) (system::*make-special (lisp::quote system::*break-level*)) (lisp::or (lisp::boundp (lisp::quote system::*break-level*)) (lisp::setq system::*break-level* (lisp::quote lisp::nil))) (system::*make-special (lisp::quote system::*break-env*)) (lisp::or (lisp::boundp (lisp::quote system::*break-env*)) (lisp::setq system::*break-env* lisp::nil)) (system::*make-special (lisp::quote system::*ihs-base*)) (lisp::or (lisp::boundp (lisp::quote system::*ihs-base*)) (lisp::setq system::*ihs-base* 1)) (system::*make-special (lisp::quote system::*ihs-top*)) (lisp::or (lisp::boundp (lisp::quote system::*ihs-top*)) (lisp::setq system::*ihs-top* 1)) (system::*make-special (lisp::quote system::*current-ihs*)) (lisp::or (lisp::boundp (lisp::quote system::*current-ihs*)) (lisp::setq system::*current-ihs* 1)) (system::*make-special (lisp::quote system::*frs-base*)) (lisp::or (lisp::boundp (lisp::quote system::*frs-base*)) (lisp::setq system::*frs-base* 0)) (system::*make-special (lisp::quote system::*frs-top*)) (lisp::or (lisp::boundp (lisp::quote system::*frs-top*)) (lisp::setq system::*frs-top* 0)) (system::*make-special (lisp::quote lisp::*break-enable*)) (lisp::or (lisp::boundp (lisp::quote lisp::*break-enable*)) (lisp::setq lisp::*break-enable* lisp::t)) (system::*make-special (lisp::quote system::*break-message*)) (lisp::or (lisp::boundp (lisp::quote system::*break-message*)) (lisp::setq system::*break-message* "")) (system::*make-special (lisp::quote lisp::*break-on-warnings*)) (lisp::or (lisp::boundp (lisp::quote lisp::*break-on-warnings*)) (lisp::setq lisp::*break-on-warnings* lisp::nil)) (system::*make-special (lisp::quote system::*break-readtable*)) (lisp::or (lisp::boundp (lisp::quote system::*break-readtable*)) (lisp::setq system::*break-readtable* lisp::nil)) (system::*make-special (lisp::quote system::*top-level-hook*)) (lisp::or (lisp::boundp (lisp::quote system::*top-level-hook*)) (lisp::setq system::*top-level-hook* lisp::nil)) (system::*make-special (lisp::quote system::*top-eof*)) (lisp::or (lisp::boundp (lisp::quote system::*top-eof*)) (lisp::setq system::*top-eof* (lisp::cons lisp::nil lisp::nil))) (system::*make-special (lisp::quote system::*no-prompt*)) (lisp::or (lisp::boundp (lisp::quote system::*no-prompt*)) (lisp::setq system::*no-prompt* lisp::nil)) (system::mfsfun (lisp::quote system::top-level) 0 0) (system::mf (lisp::quote system::process-some-args) 1) (system::mf (lisp::quote system::dbl-read) 2) (system::mf (lisp::quote system::break-level) 3) (system::*make-special (lisp::quote system::*debug-print-level*)) (lisp::or (lisp::boundp (lisp::quote system::*debug-print-level*)) (lisp::setq system::*debug-print-level* 3)) (system::mfvfun (lisp::quote lisp::warn) 4 16385) (system::mfvfun (lisp::quote system::universal-error-handler) 5 16389) (system::mfvfun (lisp::quote lisp::break) 6 16384) (system::mfsfun (lisp::quote system::terminal-interrupt) 7 1) (system::mf (lisp::quote system::break-call) 8) (system::mf (lisp::quote system::break-quit) 9) (system::mf (lisp::quote system::break-previous) 10) (system::mfsfun (lisp::quote system::set-current) 11 0) (system::mf (lisp::quote system::break-next) 12) (system::mf (lisp::quote system::break-go) 13) (system::mf (lisp::quote system::break-message) 14) (system::mf (lisp::quote system::describe-environment) 15) (system::mf (lisp::quote system::break-vs) 16) (system::mf (lisp::quote system::break-local) 17) (system::mf (lisp::quote system::break-bds) 18) (system::mf (lisp::quote system::simple-backtrace) 19) (system::mf (lisp::quote system::ihs-backtrace) 20) (system::mfsfun (lisp::quote system::print-ihs) 21 1) (system::mfsfun (lisp::quote system::print-frs) 22 1) (system::mfsfun (lisp::quote system::frs-kind) 23 1) (system::mf (lisp::quote system::break-current) 24) (system::*make-special (lisp::quote system::*break-hidden-packages*)) (lisp::or (lisp::boundp (lisp::quote system::*break-hidden-packages*)) (lisp::setq system::*break-hidden-packages* lisp::nil)) (system::mfsfun (lisp::quote system::ihs-visible) 25 1) (system::mf (lisp::quote system::ihs-fname) 26) (system::mf (lisp::quote system::ihs-not-interpreted-env) 27) (system::mfsfun (lisp::quote system::set-env) 28 0) (system::mfsfun (lisp::quote system::list-delq) 29 2) (system::mfsfun (lisp::quote system::super-go) 30 2) (system::mfsfun (lisp::quote system::break-backward-search-stack) 31 1) (system::mfsfun (lisp::quote system::break-forward-search-stack) 32 1) (system::putprop :b (lisp::quote system::simple-backtrace) (lisp::quote system::break-command)) (system::putprop :r (lisp::quote (lisp::lambda lisp::nil :resume)) (lisp::quote system::break-command)) (system::putprop :resume (lisp::get :r (lisp::quote system::break-command)) (lisp::quote system::break-command)) (system::putprop :bds (lisp::quote system::break-bds) (lisp::quote system::break-command)) (system::putprop :blocks (lisp::quote system::break-blocks) (lisp::quote system::break-command)) (system::putprop :bs (lisp::quote system::break-backward-search-stack) (lisp::quote system::break-command)) (system::putprop :c (lisp::quote system::break-current) (lisp::quote system::break-command)) (system::putprop :fs (lisp::quote system::break-forward-search-stack) (lisp::quote system::break-command)) (system::putprop :functions (lisp::quote system::break-functions) (lisp::quote system::break-command)) (system::putprop :go (lisp::quote system::break-go) (lisp::quote system::break-command)) (system::putprop :h (lisp::quote system::break-help) (lisp::quote system::break-command)) (system::putprop :help (lisp::quote system::break-help) (lisp::quote system::break-command)) (system::putprop :ihs (lisp::quote system::ihs-backtrace) (lisp::quote system::break-command)) (system::putprop :env (lisp::quote (lisp::lambda lisp::nil (system::describe-environment system::*break-env*))) (lisp::quote system::break-command)) (system::putprop :m (lisp::quote system::break-message) (lisp::quote system::break-command)) (system::putprop :n (lisp::quote system::break-next) (lisp::quote system::break-command)) (system::putprop :p (lisp::quote system::break-previous) (lisp::quote system::break-command)) (system::putprop :q (lisp::quote system::break-quit) (lisp::quote system::break-command)) (system::putprop :s (lisp::quote system::break-backward-search-stack) (lisp::quote system::break-command)) (system::putprop :vs (lisp::quote system::break-vs) (lisp::quote system::break-command)) (system::mfsfun (lisp::quote system::break-help) 33 0) (system::mf (lisp::quote system::coerce-slash-terminated) 34) (system::mf (lisp::quote system::fix-load-path) 35) (system::putprop (lisp::quote system::file-search) "Search for NAMME in DIRS with EXTENSIONS.
53  First directory is checked for first name and all extensions etc." (lisp::quote system::function-documentation)) (system::mf (lisp::quote system::file-search) 36) (system::mf (lisp::quote system::aload) 37) (system::mf (lisp::quote system::autoload) 38) (system::mf (lisp::quote system::autoload-macro) 39) (system::*make-special (lisp::quote system::*command-args*)) (lisp::or (lisp::boundp (lisp::quote system::*command-args*)) (lisp::setq system::*command-args* lisp::nil)) (system::mf (lisp::quote system::get-command-arg) 40) (system::mf (lisp::quote system::set-dir) 41) (system::mf (lisp::quote system::set-up-top-level) 42) (system::mf (lisp::quote system::do-f) 43))))  First directory is checked for first name and all extensions etc." (lisp::quote system::function-documentation)) (system::mf (lisp::quote system::file-search) 36) (system::mf (lisp::quote system::aload) 37) (system::mf (lisp::quote system::autoload) 38) (system::mf (lisp::quote system::autoload-macro) 39) (system::*make-special (lisp::quote system::*command-args*)) (lisp::or (lisp::boundp (lisp::quote system::*command-args*)) (lisp::setq system::*command-args* lisp::nil)) (system::mf (lisp::quote system::get-command-arg) 40) (system::mf (lisp::quote system::set-dir) 41) (system::mf (lisp::quote system::set-up-top-level) 42) (system::mf (lisp::quote system::do-f) 43))))
54  )  )

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

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