(FILECREATED "18-Jan-85 05:55:13" {ROSEBOWL}<BIRD>BTMP>BTMP-DEBUG.;3
 4390   

      changes to:  (FNS @B @D @F @T)

      previous date: "12-Jan-85 07:30:23" {ROSEBOWL}<BIRD>BTMP>BTMP-DEBUG.;2)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT BTMP-DEBUGCOMS)

(RPAQQ BTMP-DEBUGCOMS
 [(FILES BTMP)
		       (FNS * \BTMP.FNS.DEBUG)
		       (BLOCKS * (LIST (APPEND (QUOTE (NIL))
					       \BTMP.FNS.DEBUG
					       (QUOTE ((ENTRIES @A @B @D @F @H @P @T)
						       (LOCALVARS . T)
						       (LOCALFREEVARS \BTMP.ARGS \BTMP.STATE])
(FILESLOAD BTMP)

(RPAQQ \BTMP.FNS.DEBUG
 (@A @B @D @F @H @P \@L @T \@P))
(DEFINEQ

(@A

  [LAMBDA NIL                                                (* edited: "12-Jan-85 07:14")

    (if
 (
BOUNDP
 (
QUOTE
 \BTMP.ARGS))
	then
 (@P
 \BTMP.ARGS)
      else
 (printout
 T "Information not available." T])

(@B

  [LAMBDA NIL                                                (* edited: "18-Jan-85 04:49")

    (if
 (
BOUNDP
 (
QUOTE
 \BTMP.STATE))
	then
 [for
 FRAME in
 (fetch
 (\BTMP.STATE \BTMP.BAK.STK) of
 \BTMP.STATE)
		do
 (printout
 T "[")
		   (for
 P on
 (
CDR
 FRAME)
		      do
 (\@P
 (
CAR
 P))
			 (printout
 T (if
 (
CDR
 P)
					 then
 "|"
				       else
 "]
"]
      else
 (printout
 T "Information not available." T])

(@D

  [LAMBDA (X)                                                (* edited: "18-Jan-85 04:58")

    (if
 (
BOUNDP
 (
QUOTE
 \BTMP.STATE))
	then
 [\@P
 (
\BTMP.LOOKUP
 (fetch
 (\BTMP.STATE \BTMP.USER.DEFS) of
 \BTMP.STATE)
				(
OPENSTRINGSTREAM
 (
MKSTRING
 X)
						  (
QUOTE
 INPUT]
      else
 (printout
 T "Information not available." T])

(@F

  [LAMBDA NIL                                                (* edited: "18-Jan-85 05:01")

    (if
 (
BOUNDP
 (
QUOTE
 \BTMP.STATE))
	then
 [for
 FRAME in
 (fetch
 (\BTMP.STATE \BTMP.FWD.STK) of
 \BTMP.STATE)
		do
 (printout
 T "[")
		   (for
 P on
 (
CAAR
 FRAME)
		      do
 (\@P
 (
CAR
 P))
			 (printout
 T (if
 (
CDR
 P)
					 then
 "|"
				       else
 " ...
"]
      else
 (printout
 T "Information not available." T])

(@H

  [LAMBDA NIL                                                (* edited: "29-Dec-84 08:17")

    (printout
 T "@A Arguments to active built-in fn" T)
    (printout
 T "@B Back stack trace" T)
    (printout
 T "@D Diversion/Definition of (X)" T)
    (printout
 T "@F Forward stack trace" T)
    (printout
 T "@H Help information" T)
    (printout
 T "@P Print (X)" T)
    (printout
 T "@T Text of (N)th back stack frame" T])

(@P

  [LAMBDA (X)                                                (* edited: "29-Dec-84 07:18")

    (\@L
 X)
    (printout
 T T])

(\@L

  [LAMBDA (X)                                                (* edited: "29-Dec-84 07:13")

    (if
 (
LISTP
 X)
	then
 (printout
 T "(")
	     (for
 Y on
 X
		do
 (\@L
 (
CAR
 Y))
		   (printout
 T (if
 (
CDR
 Y)
				   then
 " "
				 else
 ")")))
      elseif
 (
STREAMP
 X)
	then
 (\@P
 X)
      else
 (printout
 T X])

(@T

  [LAMBDA (N)                                                (* edited: "18-Jan-85 04:49")

    (if
 (
BOUNDP
 (
QUOTE
 \BTMP.STATE))
	then
 (\@P
 (
CAAR
 (
NTH
 (fetch
 (\BTMP.STATE \BTMP.BAK.STK) of
 \BTMP.STATE)
			     N)))
      else
 (printout
 T "Information not available." T])

(\@P

  [LAMBDA (S)                                                (* edited: "29-Dec-84 11:08")

    (
RESETLST
 [if
 (
\BTMP.PREDICATE
 S)
		  then
 (
PROG
 (P)
			     [
RESETSAVE
 (
PROGN
 (
SETQ
 P (
GETFILEPTR
 S)))
					(
BQUOTE
 (
PROGN
 (
SETFILEPTR
 , S OLDVALUE]
			     (
SETFILEPTR
 S 0)
			     (for
 I from
 1 to
 P do
 (
BOUT
 T (
BIN
 S]
	      (printout
 T "<*>")
	      (while
 (
NOT
 (
EOFP
 S)) do
 (
BOUT
 T (
BIN
 S])
)
[DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY
(BLOCK: NIL @A @B @D @F @H @P \@L @T \@P (ENTRIES @A @B @D @F @H @P @T)
	(LOCALVARS . T)
	(LOCALFREEVARS \BTMP.ARGS \BTMP.STATE))
]
(PUTPROPS BTMP-DEBUG COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (660 4129 (@A 670 . 914) (@B 916 . 1413) (@D 1415 . 1797) (@F 1799 . 2300) (@H 2302 . 
2756) (@P 2758 . 2900) (\@L 2902 . 3291) (@T 3293 . 3618) (\@P 3620 . 4127)))))
STOP