github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-25 12:05:41 +00:00
Code Issues Projects Releases Wiki Activity

add merge in Ron's 11/21/2020 lispcore

Browse Source
This commit is contained in:
Larry Masinter
2020-11-21 13:24:44 -08:00
parent e9a80b1144
commit ce4eae736e
794 changed files with 117194 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
CLTL2/ERROR-RUNTIME-AFTER-FASL Normal file
View File

@@ -0,0 +1,43 @@
(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