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

(FILECREATED "28-Feb-92 11:55:34" 
|{DSK}<usr>local>lde>lispcore>sources>ERROR-RUNTIME-AFTER-FASL.;2|
 2101   

      |changes| |to:|  (FUNCTIONS CONDITIONS:CONTINUE CONDITIONS:MUFFLE-WARNING USE-VALUE STORE-VALUE)

      |previous| |date:| "16-May-90 16:26:16" 
|{DSK}<usr>local>lde>lispcore>sources>ERROR-RUNTIME-AFTER-FASL.;1|)


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

(PRETTYCOMPRINT ERROR-RUNTIME-AFTER-FASLCOMS)

(RPAQQ ERROR-RUNTIME-AFTER-FASLCOMS ((PROP FILETYPE ERROR-RUNTIME-AFTER-FASL) (* |;;;| "These functions must be PavCompiled.") (FUNCTIONS SI::CREATE-CONDITION-CASE-LITERALS) (* |;;;| "These don't need to be, but depend on the previous stuff.") (FUNCTIONS ABORT CONDITIONS:CONTINUE CONDITIONS:MUFFLE-WARNING USE-VALUE STORE-VALUE)))

(PUTPROPS ERROR-RUNTIME-AFTER-FASL FILETYPE :COMPILE-FILE)



(* |;;;| "These functions must be PavCompiled.")



(CL:DEFUN SI::CREATE-CONDITION-CASE-LITERALS (SI::TYPE-LIST) (LET ((SI::CATCH-TAG (LIST NIL))) (* \; "use a separate CONS for the catch tag so that you don't get a circular structure (you could save one by making the tag be the handler binding itself, then smashing its CDR with the closure).") (LIST* SI::CATCH-TAG SI::TYPE-LIST (CL:FUNCTION (CL:LAMBDA (SI::CONDITION) (CL:THROW SI::CATCH-TAG SI::CONDITION))))))



(* |;;;| "These don't need to be, but depend on the previous stuff.")



(DEFINE-PROCEED-FUNCTION ABORT :REPORT "Abort" (CONDITION XCL:*CURRENT-CONDITION*))

(DEFINE-PROCEED-FUNCTION CONDITIONS:CONTINUE (CONDITION XCL:*CURRENT-CONDITION*))

(DEFINE-PROCEED-FUNCTION CONDITIONS:MUFFLE-WARNING (CONDITION XCL:*CURRENT-CONDITION*))

(DEFINE-PROCEED-FUNCTION USE-VALUE :REPORT "Use a different value" XCL::VALUE (CONDITION XCL:*CURRENT-CONDITION*))

(DEFINE-PROCEED-FUNCTION STORE-VALUE :REPORT "Store a new value and use it" XCL::VALUE (CONDITION XCL:*CURRENT-CONDITION*))
(PUTPROPS ERROR-RUNTIME-AFTER-FASL COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990 1992))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL)))
STOP