github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-29 21:27:41 +00:00
Code Issues Projects Releases Wiki Activity

All source files converted to LF (#315)

Browse Source 
* All source files converted to LF

Also, HPRINT:  EQUALALL knows about CL arrays
FILEIO:  STREAM record with fields for external format functions

* Delete makeinit.dribble

* Converted CR to LF on internal/library and docs/Documentation Tools
This commit is contained in:
rmkaplan
2021-04-28 15:36:03 -07:00
committed by GitHub
parent 179325c528
commit f0ad3c5f60
736 changed files with 532174 additions and 5581 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
sources/LLMVS
View File

@@ -38,13 +38,28 @@ Copyright (c) 1986, 1987, 1989, 1990, 1991, 1993 by Xerox Corporation. All righ
(DEFINEQ
(CL:VALUES
(CL:VALUES
[LAMBDA ARGS (* ; "Edited 30-May-90 16:01 by jds")
(* ;; "Return multiple values to a caller.")
(\VALUES (for I from 1 to ARGS collect (ARG ARGS I))
(AND (IGEQ ARGS 1)
(ARG ARGS 1])
(AND (IGEQ ARGS 1)
(CL:VALUES-LIST
[LAMBDA (CL:VALUES) (* ; "Edited 30-May-90 16:02 by jds")
(* ;; "Given a list of values, return them as multiple values to a caller.")
(\VALUES CL:VALUES (CAR CL:VALUES])
(\MVLIST
(LAMBDA (X) (LIST X)))
(\SIMULATE.UNBIND
(LAMBDA (FRAME N RETURNER) (* ; "Edited 25-Nov-87 12:54 by bvm:") (* ;; "Simulate the action of N applications of UNBIND occurring in specified FRAME. RETURNER is the frame that will return to FRAME, and hence must be made slow (NIL if my caller). Must be called uninterruptably.") (LET* ((NEXT (fetch (FX NEXTBLOCK) of FRAME)) (SP NEXT) (PVAR0BASE (STACKADDBASE (fetch (FX FIRSTPVAR) of FRAME)))) (TO N DO (do (* ; "Pop stack until a bind mark is encountered") (SETQ SP (- SP WORDSPERCELL)) REPEATUNTIL (fetch BINDMARKP of (STACKADDBASE SP)) FINALLY (* ; "Unbind stuff. Bind mark says how many pvars were bound, and gives the offset of the last of them") (LET ((LASTPVAR (fetch BINDLASTPVAR of (STACKADDBASE SP)))) (to (fetch BINDNVALUES of (STACKADDBASE SP)) do (\PUTBASE PVAR0BASE LASTPVAR 65535) (SETQ LASTPVAR (- LASTPVAR WORDSPERCELL)))))) (replace (FX NEXTBLOCK) of FRAME with SP) (\MAKEFREEBLOCK SP (- NEXT SP)) (* ;; "Now explicitly slow return to FRAME, since we have violated the fast return assumptions by blowing away stack between here and there") (replace (FX FASTP) of (OR RETURNER (\MYALINK)) with NIL)))
)
)
(DECLARE%: DONTCOPY
(DECLARE%: EVAL@COMPILE
@@ -258,9 +273,36 @@ Copyright (c) 1986, 1987, 1989, 1990, 1991, 1993 by Xerox Corporation. All righ
(DEFINEQ
(CL::VALUES-UFN
[LAMBDA (CL::INDEX CL::ARGCOUNT CL::ARG-PTR) (* ; "Edited 5-Jun-90 15:21 by jds")
(* ;; "This is the UFN for the VALUES MISCN opcode. Its definition must be analogous to that for CL:VALUES, in case anything changes.")
(* ;; "* * * * * * *")
(* ;; "Architectural note: This function assumes that it is called by an unwind-protect from \miscn.ufn. Therefore, it skips two frames before deciding whether to pass back one valur or many.")
(\VALUES-UFN (for I from 0 to (LLSH (SUB1 CL::ARGCOUNT)
1) by 2 collect (\GETBASEPTR CL::ARG-PTR
I))
(AND (IGEQ CL::ARGCOUNT 1)
(\GETBASEPTR CL::ARG-PTR 0))
(fetch (FX CLINK) of (fetch (FX CLINK) of (\MYALINK)))
CL::ARG-PTR])
(CL::VALUES-LIST-UFN
[LAMBDA (CL::INDEX CL::ARGCOUNT CL::ARG-PTR) (* ; "Edited 5-Jun-90 15:21 by jds")
(* ;; "This is the UFN for the VALUES-LIST MISCN opcode. Its definition must be analogous to that for CL:VALUES-LIST, in case anything changes.")
(* ;; "* * * * * * *")
(* ;; "Architectural note: This function assumes that it is called by an unwind-protect from \miscn.ufn. Therefore, it skips two frames before deciding whether to pass back one value or many.")
(LET ((CL:VALUES (\GETBASEPTR CL::ARG-PTR 0)))
(\VALUES-UFN CL:VALUES (CAR CL:VALUES)
(fetch (FX CLINK) of (fetch (FX CLINK) of (\MYALINK)))
CL::ARG-PTR])
)
(PUTPROPS LLMVS FILETYPE :FAKE-COMPILE-FILE)