github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-24 19:40:36 +00:00
Code Issues Projects Releases Wiki Activity

MAKEFILE NEW of CMLSEQ files (#1911)

Browse Source 
so pf and tf can find DEFUNs
This commit is contained in:
rmkaplan
2024-12-23 23:00:47 -08:00
committed by GitHub
parent e1c594b28c
commit 1d15f37fdc
4 changed files with 129 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
sources/CMLSEQCOMMON
View File

@@ -1,24 +1,20 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "16-May-90 14:28:05" {DSK}<usr>local>lde>lispcore>sources>CMLSEQCOMMON.;2 5238
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (VARS CMLSEQCOMMONCOMS)
(FILECREATED "14-Dec-2024 19:23:34" {WMEDLEY}<sources>CMLSEQCOMMON.;2 4967
previous date%: "12-Nov-86 14:57:08" {DSK}<usr>local>lde>lispcore>sources>CMLSEQCOMMON.;1)
:EDIT-BY rmk
:PREVIOUS-DATE "16-May-90 14:28:05" {WMEDLEY}<sources>CMLSEQCOMMON.;1)
(* ; "
Copyright (c) 1986, 1990 by Venue & Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT CMLSEQCOMMONCOMS)
(RPAQQ CMLSEQCOMMONCOMS ((FUNCTIONS CHECK-SUBSEQ COLLECT-ITEM COPY-VECTOR-SUBSEQ
FILL-VECTOR-SUBSEQ MAKE-SEQUENCE-LIKE SEQ-DISPATCH TYPE-SPECIFIER
)
(FUNCTIONS BACKWARD-LIST-LOOP BACKWARD-VECTOR-LOOP FORWARD-LIST-LOOP
FORWARD-VECTOR-LOOP)
(PROP FILETYPE CMLSEQCOMMON)
(DECLARE%: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD (LOCALVARS . T))))
(RPAQQ CMLSEQCOMMONCOMS ((FUNCTIONS CHECK-SUBSEQ COLLECT-ITEM COPY-VECTOR-SUBSEQ FILL-VECTOR-SUBSEQ
MAKE-SEQUENCE-LIKE SEQ-DISPATCH TYPE-SPECIFIER)
(FUNCTIONS BACKWARD-LIST-LOOP BACKWARD-VECTOR-LOOP FORWARD-LIST-LOOP
FORWARD-VECTOR-LOOP)
(PROP FILETYPE CMLSEQCOMMON)
(DECLARE%: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD (LOCALVARS . T))))
(DEFMACRO CHECK-SUBSEQ (SEQ START END LENGTH)
`(CL:IF (NOT (<= 0 ,START ,END ,LENGTH))
@@ -128,7 +124,10 @@ Copyright (c) 1986, 1990 by Venue & Xerox Corporation. All rights reserved.
(LOCALVARS . T)
)
)
(PUTPROPS CMLSEQCOMMON COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
(DECLARE%: DONTCOPY
(FILEMAP (NIL)))
(FILEMAP (NIL (771 957 (CHECK-SUBSEQ 771 . 957)) (959 1113 (COLLECT-ITEM 959 . 1113)) (1115 1597 (
COPY-VECTOR-SUBSEQ 1115 . 1597)) (1599 1820 (FILL-VECTOR-SUBSEQ 1599 . 1820)) (1822 2183 (
MAKE-SEQUENCE-LIKE 1822 . 2183)) (2185 2333 (SEQ-DISPATCH 2185 . 2333)) (2335 2500 (TYPE-SPECIFIER
2335 . 2500)) (2502 3109 (BACKWARD-LIST-LOOP 2502 . 3109)) (3111 3648 (BACKWARD-VECTOR-LOOP 3111 .
3648)) (3650 4234 (FORWARD-LIST-LOOP 3650 . 4234)) (4236 4782 (FORWARD-VECTOR-LOOP 4236 . 4782)))))
STOP