(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)

(FILECREATED "26-Jun-90 19:26:19" |{DSK}<usr>local>lde>lispcore>internal>library>STACKHACK.;2|
 2119   

      |changes| |to:|  (VARS STACKHACKCOMS)

      |previous| |date:| "11-May-88 11:28:17" 
|{DSK}<usr>local>lde>lispcore>internal>library>STACKHACK.;1|)


; Copyright (c) 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT STACKHACKCOMS)

(RPAQQ STACKHACKCOMS
 ((FNS DO-SKIP-FRAMES SKIP-FRAMES FRAGMENT-STACK)
                          (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                                 (ADDVARS (NLAMA)
                                        (NLAML)
                                        (LAMA DO-SKIP-FRAMES)))))
(DEFINEQ

(do-skip-frames

(lambda i (* \; "Edited  7-Mar-88 15:35 by ") (envapply (quote skip-frames) (list (arg i 1) (arg i 2)) (quote skip-frames) (quote skip-frames)))
)

(skip-frames

  (lambda (n fn)
                                     (* \; "Edited 11-May-88 11:19 by MASINTER")

                                                             (* \; 

                                                  "create some stack with N holes and then call FN")

    (|if|
 (zerop n)
        |then|
 (cl:funcall fn)
      |else|
 (cl:macrolet ((longcall (fn &rest args)
                                      `(apply ',fn (list* ,@args ',(|to|
 500 |collect|
 nil)))
                                      ))
                        (longcall do-skip-frames (sub1 n)
                               fn)))))

(fragment-stack

  (lambda nil
                                        (* \; "Edited 11-May-88 11:27 by MASINTER")

    (add.process '(do
 (skip-frames
 10 (function (lambda nil
                                                          (dismiss 5000))))))))
)
(DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 DO-SKIP-FRAMES)
)
(PUTPROPS STACKHACK COPYRIGHT ("Venue & Xerox Corporation" 1988 1990))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (770 1878 (DO-SKIP-FRAMES 780 . 946) (SKIP-FRAMES 948 . 1602) (FRAGMENT-STACK 1604 . 
1876)))))
STOP