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

ooops NLSETQGAG is switched

Browse Source
This commit is contained in:
Larry Masinter
2026-05-08 10:43:45 -07:00
parent 5f570b06be
commit fd1d6b0dd1
2 changed files with 23 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
internal/MEDLEY-UTILS
View File

@@ -1,13 +1,15 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED " 4-May-2026 19:19:00" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;9 30560
(FILECREATED " 8-May-2026 10:41:23" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;2 30963
:EDIT-BY "lmm"
:CHANGES-TO (FNS HCFILES)
(FUNCTIONS REPORT-AND-GO)
:CHANGES-TO (ADVICE TEDIT.PROMPTPRINT)
(FNS GATHER-INFO MAKE-FULLER-DB MEDLEY-FIX-LINKS MEDLEY-FIX-DATES MAKE-EXPORTS-ALL
MAKE-WHEREIS-HASH MAKE-WHEREIS-LOOPS HCFILES MAKE-INDEX-HTMLS RECOMPILE-ONE
RECMPL COMPILE-SETUP REMAKEFILES)
:PREVIOUS-DATE "16-Apr-2026 22:42:51" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;1)
:PREVIOUS-DATE " 4-May-2026 19:19:00" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;1)
(PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -212,7 +214,8 @@
(DEFINEQ
(HCFILES
[LAMBDA (BASE REDO SUBSETS) (* ; "Edited 4-May-2026 19:18 by lmm")
[LAMBDA (BASE REDO SUBSETS) (* ; "Edited 8-May-2026 10:39 by lmm")
(* ; "Edited 4-May-2026 19:18 by lmm")
(* ; "Edited 16-Apr-2026 22:42 by mth")
(* ; "Edited 30-Jun-2024 08:27 by lmm")
(* ; "Edited 23-Apr-2024 23:15 by lmm")
@@ -294,7 +297,7 @@
else
(* ;; "ADDED HERE")
(SETQ NLSETQGAG T)
(SETQ NLSETQGAG NIL)
(SETQ \TEDIT.THELPFLG T)
(REPORT-AND-GO (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF)
(CL:FORMAT NIL
@@ -521,14 +524,14 @@
(DEFMACRO REPORT-AND-GO (FORM REPORT-FORMAT) (* ; "Edited 4-May-2026 19:02 by lmm")
(* ; "Edited 16-Apr-2026 16:02 by mth")
`(CL:MULTIPLE-VALUE-BIND (FORM-RESULT ERROR-CONDITION)
(IGNORE-ERRORS (CL:VALUES ,FORM)) (* ; "Only the first value")
(COND
(ERROR-CONDITION (BAKTRACE 'BAKTRACE NIL NIL 1 T)
(PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
T)
NIL)
(T (LIST FORM-RESULT)))))
`[CL:MULTIPLE-VALUE-BIND (FORM-RESULT ERROR-CONDITION)
(IGNORE-ERRORS (CL:VALUES ,FORM)) (* ; "Only the first value")
(COND
(ERROR-CONDITION (BAKTRACE 'BAKTRACE NIL NIL 1 T)
(PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
T)
NIL)
(T (LIST FORM-RESULT])
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA )
@@ -538,10 +541,10 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1100 8034 (GATHER-INFO 1110 . 6492) (MAKE-FULLER-DB 6494 . 7403) (MEDLEY-FIX-LINKS 7405
. 7798) (MEDLEY-FIX-DATES 7800 . 8032)) (9606 12182 (MAKE-EXPORTS-ALL 9616 . 10463) (
MAKE-WHEREIS-HASH 10465 . 11654) (MAKE-WHEREIS-LOOPS 11656 . 12180)) (12183 24860 (HCFILES 12193 .
19384) (MAKE-INDEX-HTMLS 19386 . 24858)) (25194 29806 (RECOMPILE-ONE 25204 . 27101) (RECMPL 27103 .
27706) (COMPILE-SETUP 27708 . 28332) (REMAKEFILES 28334 . 29804)) (29808 30404 (REPORT-AND-GO 29808 .
30404)))))
(FILEMAP (NIL (1365 8299 (GATHER-INFO 1375 . 6757) (MAKE-FULLER-DB 6759 . 7668) (MEDLEY-FIX-LINKS 7670
. 8063) (MEDLEY-FIX-DATES 8065 . 8297)) (9871 12447 (MAKE-EXPORTS-ALL 9881 . 10728) (
MAKE-WHEREIS-HASH 10730 . 11919) (MAKE-WHEREIS-LOOPS 11921 . 12445)) (12448 25236 (HCFILES 12458 .
19760) (MAKE-INDEX-HTMLS 19762 . 25234)) (25570 30182 (RECOMPILE-ONE 25580 . 27477) (RECMPL 27479 .
28082) (COMPILE-SETUP 28084 . 28708) (REMAKEFILES 28710 . 30180)) (30184 30807 (REPORT-AND-GO 30184 .
30807)))))
STOP

BIN
internal/MEDLEY-UTILS.DFASL
View File

Binary file not shown.