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 |
) |
) |