home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / trace.data < prev    next >
Encoding:
Text File  |  1994-05-10  |  5.5 KB  |  22 lines
  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::warn-version 0) (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. )
  22.