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

Diff of /gcl/lsp/gcl_trace.data

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:20 2003 UTC
# Line 17  Line 17 
17                  r (or R) FORM:          evaluates the FORM ~                  r (or R) FORM:          evaluates the FORM ~
18                                          and returns the value(s).~%~                                          and returns the value(s).~%~
19                  b (or B):               prints backtrace.~%~                  b (or B):               prints backtrace.~%~
20                  ?:                      prints this.~%" "~V@T=~%" "~V@T= ~S~%" "~V@T& ~S~%" :cond :entrycond :entry :exitcond :exit system::check-trace-args system::all-trace-declarations system::check-declarations system::untrace-one system::check-trace-spec system::trace-one-preprocess system::reset-trace-declarations lisp::delete-if system::step-read-line lisp::read-preserving-whitespace system::ihs-top system::simple-backtrace (system::%init . #((system::*make-special (lisp::quote system::*trace-level*)) (lisp::or (lisp::boundp (lisp::quote system::*trace-level*)) (lisp::setq system::*trace-level* 0)) (system::*make-special (lisp::quote system::*trace-list*)) (lisp::or (lisp::boundp (lisp::quote system::*trace-list*)) (lisp::setq system::*trace-list* lisp::nil)) (system::mm (lisp::quote lisp::trace) 0) (system::mm (lisp::quote lisp::untrace) 1) (system::mfsfun (lisp::quote system::trace-one-preprocess) 2 1) (system::mfsfun (lisp::quote system::check-trace-spec) 3 1) (system::mfsfun (lisp::quote system::check-declarations) 4 1) (system::mfsfun (lisp::quote system::check-trace-args) 5 3) (system::mfsfun (lisp::quote system::trace-one) 6 1) (system::mfsfun (lisp::quote system::reset-trace-declarations) 7 1) (system::mfsfun (lisp::quote system::all-trace-declarations) 8 0) (system::mf (lisp::quote system::trace-call) 9) (system::mfsfun (lisp::quote system::untrace-one) 10 1) (system::*make-special (lisp::quote system::*step-level*)) (lisp::or (lisp::boundp (lisp::quote system::*step-level*)) (lisp::setq system::*step-level* 0)) (system::*make-special (lisp::quote system::*step-quit*)) (lisp::or (lisp::boundp (lisp::quote system::*step-quit*)) (lisp::setq system::*step-quit* lisp::nil)) (system::*make-special (lisp::quote system::*step-function*)) (lisp::or (lisp::boundp (lisp::quote system::*step-function*)) (lisp::setq system::*step-function* lisp::nil)) (system::*make-special (lisp::quote system::*old-print-level*)) (lisp::or (lisp::boundp (lisp::quote system::*old-print-level*)) (lisp::setq system::*old-print-level* lisp::nil)) (system::*make-special (lisp::quote system::*old-print-length*)) (lisp::or (lisp::boundp (lisp::quote system::*old-print-length*)) (lisp::setq system::*old-print-length* lisp::nil)) (system::mfsfun (lisp::quote system::step-read-line) 11 0) (system::mm (lisp::quote system::if-error) 12) (system::mm (lisp::quote lisp::step) 13) (system::mf (lisp::quote system::stepper) 14))))                  ?:                      prints this.~%" "~V@T=~%" "~V@T= ~S~%" "~V@T& ~S~%" :cond :entrycond :entry :exitcond :exit system::check-trace-args system::all-trace-declarations system::check-declarations system::untrace-one system::check-trace-spec system::trace-one-preprocess system::reset-trace-declarations lisp::delete-if system::step-read-line lisp::read-preserving-whitespace system::ihs-top system::simple-backtrace (system::%init . #((system::*make-special (lisp::quote system::*trace-level*)) (lisp::or (lisp::boundp (lisp::quote system::*trace-level*)) (lisp::setq system::*trace-level* 0)) (system::*make-special (lisp::quote system::*trace-list*)) (lisp::or (lisp::boundp (lisp::quote system::*trace-list*)) (lisp::setq system::*trace-list* lisp::nil)) (system::mm (lisp::quote lisp::trace) 0) (system::mm (lisp::quote lisp::untrace) 1) (system::mfsfun (lisp::quote system::trace-one-preprocess) 2 1) (system::mfsfun (lisp::quote system::check-trace-spec) 3 1) (system::mfsfun (lisp::quote system::check-declarations) 4 1) (system::mfsfun (lisp::quote system::check-trace-args) 5 3) (system::mfsfun (lisp::quote system::trace-one) 6 1) (system::mfsfun (lisp::quote system::reset-trace-declarations) 7 1) (system::mfsfun (lisp::quote system::all-trace-declarations) 8 0) (system::mf (lisp::quote system::trace-call) 9) (system::mfsfun (lisp::quote system::untrace-one) 10 1) (system::*make-special (lisp::quote system::*step-level*)) (lisp::or (lisp::boundp (lisp::quote system::*step-level*)) (lisp::setq system::*step-level* 0)) (system::*make-special (lisp::quote system::*step-quit*)) (lisp::or (lisp::boundp (lisp::quote system::*step-quit*)) (lisp::setq system::*step-quit* lisp::nil)) (system::*make-special (lisp::quote system::*step-function*)) (lisp::or (lisp::boundp (lisp::quote system::*step-function*)) (lisp::setq system::*step-function* lisp::nil)) (system::*make-special (lisp::quote system::*old-print-level*)) (lisp::or (lisp::boundp (lisp::quote system::*old-print-level*)) (lisp::setq system::*old-print-level* lisp::nil)) (system::*make-special (lisp::quote system::*old-print-length*)) (lisp::or (lisp::boundp (lisp::quote system::*old-print-length*)) (lisp::setq system::*old-print-length* lisp::nil)) (system::mfsfun (lisp::quote system::step-read-line) 11 0) (system::mm (lisp::quote system::if-error) 12) (system::mm (lisp::quote lisp::step) 13) (system::mf (lisp::quote system::stepper) 14) (system::debug (lisp::quote system::trace-one) (lisp::quote (system::fname))) (system::debug (lisp::quote system::all-trace-declarations) (lisp::quote (system::v))) (system::debug (lisp::quote system::trace-call) (lisp::quote (system::temp-name system::args lisp::cond system::entrycond system::entry system::exitcond system::exit system::*trace-level*))) (system::debug (lisp::quote system::untrace-one) (lisp::quote (system::fname))) (system::debug (lisp::quote system::stepper) (lisp::quote (system::form system::env system::*step-level* system::env1 #:g1395 #:g1396 #:g1403 #:g1404 #:g1413 #:g1414 #:g1406 #:g1407))))))
21  )  )

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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