/[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 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC
# Line 0  Line 1 
1          
2    #(#!
3    (lisp::in-package (lisp::quote user::lisp))#!
4    (lisp::export (lisp::quote (lisp::trace lisp::untrace)))#!
5    (lisp::export (lisp::quote lisp::step))#!
6    (lisp::in-package (lisp::quote lisp::system))
7    #((lisp::mapcar (lisp::function lisp::car) system::*trace-list*) lisp::let ((system::old (lisp::copy-list system::*trace-list*)) system::finish-flg) lisp::unwind-protect lisp::prog1 lisp::mapcan (lisp::function system::trace-one) lisp::quote (lisp::setq system::finish-flg lisp::t) (lisp::when (lisp::null system::finish-flg) (lisp::format lisp::*standard-output* "~%Newly traced functions:  ~S" (lisp::mapcar (lisp::function lisp::car) (lisp::set-difference system::*trace-list* system::old :test (lisp::function lisp::equal))))) (lisp::mapcan (lisp::function system::untrace-one) (lisp::mapcar (lisp::function lisp::car) system::*trace-list*)) (lisp::function system::untrace-one) lisp::cons system::arglist lisp::values lisp::< lisp::if lisp::progn lisp::setq lisp::1+ lisp::1- "Each trace spec must be a symbol or a list terminating in NIL, but ~S is not~&." "Declarations are supposed to be of symbols, but ~S is not a symbol.~&" "Expected a CDDR of NIL in ~S.~&" "The variable ~A is already declared for tracing" "A trace spec must have odd length, but ~S does not.~&" "The keyword ~A occurred twice in the spec ~S~&" "~&Specified depth should be a positive integer, but~&~S is not.~&" :depth :declarations "Expected :entry, :exit, :cond, :depth, or :declarations~&~
8                             in ~S where instead there was ~S~&" lisp::*trace-output* "The function ~S is not defined.~%" "~S is a special form.~%" "~S is a macro.~%" system::traced lisp::defun (lisp::&rest system::args) system::trace-call system::args system::*trace-list* system::*trace-level* "~V@T~D> " "~S~%" "~V@T<~D " "~S~%" "The function ~S was traced, but is no longer defined.~%" "The function ~S was traced, but redefined.~%" :count "The function ~S is not traced.~%" lisp::*debug-io* #\Newline #\Return lisp::block lisp::return-from lisp::let* ((system::*old-print-level* lisp::*print-level*) (system::*old-print-length* lisp::*print-length*) (lisp::*print-level* 2) (lisp::*print-length* 2)) (lisp::read-line) (lisp::format lisp::*debug-io* "Type ? and a newline for help.~%") (lisp::setq system::*step-quit* lisp::nil) system::stepper system::*step-level* system::*step-quit* system::*step-function* "~VT~S " #\Space #\Tab #\n #\N #\s #\S #\p #\P :stream :pretty :level :length #\f #\F #\q #\Q #\u #\U #\e #\E system::*old-print-level* system::*old-print-length* #\r #\R #\b #\B system::*ihs-base* system::*ihs-top* system::*current-ihs* "Stepper commands:~%~
9                    n (or N or Newline):    advances to the next form.~%~
10                    s (or S):               skips the form.~%~
11                    p (or P):               pretty-prints the form.~%~
12                    f (or F) FUNCTION:      skips until the FUNCTION is called.~%~
13                    q (or Q):               quits.~%~
14                    u (or U):               goes up to the enclosing form.~%~
15                    e (or E) FORM:          evaluates the FORM ~
16                                            and prints the value(s).~%~
17                    r (or R) FORM:          evaluates the FORM ~
18                                            and returns the value(s).~%~
19                    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))))
21    )

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

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