From 3b0b847812d6d3ec46df48ecc7ff3cc0ca2ebd0c Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Thu, 11 Sep 2025 23:50:34 -0700 Subject: [PATCH] Eliminate finally reference to \COERCEFONTDESC --- sources/LLDATATYPE | 63 ++++++++++++++++++---------------------- sources/LLDATATYPE.LCOM | Bin 23851 -> 23625 bytes 2 files changed, 28 insertions(+), 35 deletions(-) diff --git a/sources/LLDATATYPE b/sources/LLDATATYPE index 8da26588..3f6faba2 100644 --- a/sources/LLDATATYPE +++ b/sources/LLDATATYPE @@ -1,19 +1,14 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "17-Apr-2023 08:04:06" {DSK}larry>il>medley>sources>LLDATATYPE.;2 94197 +(FILECREATED " 5-Aug-2025 09:18:50" {WMEDLEY}LLDATATYPE.;3 93956 - :EDIT-BY "lmm" + :EDIT-BY rmk - :CHANGES-TO (VARS LLDATATYPECOMS) - (FNS \SET.STORAGE.STATE \MAPMDS) + :CHANGES-TO (FNS \DTEST.UFN) - :PREVIOUS-DATE "28-Jun-99 16:57:50" {DSK}larry>il>medley>sources>LLDATATYPE.;1) + :PREVIOUS-DATE "17-Apr-2023 08:04:06" {WMEDLEY}LLDATATYPE.;2) -(* ; " -Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA. -") - (PRETTYCOMPRINT LLDATATYPECOMS) (RPAQQ LLDATATYPECOMS @@ -800,7 +795,8 @@ Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA. (\DTEST.UFN OBJ TYPE]) (\DTEST.UFN - [LAMBDA (OBJ TYPEN) (* gbn " 3-Oct-86 10:49") + [LAMBDA (OBJ TYPEN) (* ; "Edited 5-Aug-2025 09:18 by rmk") + (* gbn " 3-Oct-86 10:49") (* ;; "ufn for DTEST opcode ") @@ -809,15 +805,14 @@ Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA. (PROG ((N (NTYPX OBJ))) LP (COND ((EQ (fetch DTDNAME of (\GETDTD N)) - TYPEN) (* ; - "should be happening in microcode") + TYPEN) (* ; "should be happening in microcode") (RETURN OBJ)) ([NEQ 0 (SETQ N (fetch DTDSUPERTYPE of (\GETDTD N] (GO LP)) (T (RETURN (SELECTQ (\INDEXATOMPNAME TYPEN) (FLOATP (\FLOAT OBJ)) (STREAM (* ; - "Should be able to get at the INPUT/OUTPUT flg--a second arg to \DTEST ?") + "Should be able to get at the INPUT/OUTPUT flg--a second arg to \DTEST ?") (\GETSTREAM OBJ (SELECTQ (STKNTHNAME -1 '\DTEST.UFN) ((\BINS \BIN BIN) 'INPUT) @@ -836,7 +831,7 @@ Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA. (CAR OBJ)) (T (LISPERROR "ARG NOT HARRAY" OBJ T)))) (FONTDESCRIPTOR - (\COERCEFONTDESC OBJ)) + (FONTCREATE OBJ)) (SMALLP [PROG (HI LO) (.UNBOX. OBJ HI LO) (RETURN (OR (SMALLP (\MAKENUMBER HI LO)) @@ -848,7 +843,7 @@ Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA. (TERMTABLEP (LISPERROR "ILLEGAL TERMINAL TABLE" OBJ T)) (ARRAYP (LISPERROR "ARG NOT ARRAY" OBJ T)) (\DISPLAYDATA (* ; - "Should be able to get at the stream--a second arg to \DTEST ?") + "Should be able to get at the stream--a second arg to \DTEST ?") (ERROR "ARG NOT DISPLAY STREAM" NIL)) (\LISPERROR OBJ (CONCAT "ARG NOT " (\INDEXATOMPNAME TYPEN)) T]) @@ -1744,25 +1739,23 @@ EVAL@COMPILE (FILESLOAD (LOADCOMP) DTDECLARE) ) -(PUTPROPS LLDATATYPE COPYRIGHT ("VENUE, Oakland, CA" 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 - 1992 1993 1994 1995 1999)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (6524 37135 (NTYPX 6534 . 7011) (\TYPEMASK.UFN 7013 . 7537) (\TYPEP.UFN 7539 . 7708) ( -\ALLOCMDSPAGE 7710 . 9112) (\ALLOCPAGEBLOCK 9114 . 9820) (\ALLOCVIRTUALPAGEBLOCK 9822 . 12437) ( -\MAPMDS 12439 . 13626) (\CHECKFORSTORAGEFULL 13628 . 18774) (\DOSTORAGEFULLINTERRUPT 18776 . 19070) ( -\SET.STORAGE.STATE 19072 . 19484) (\SETTYPEMASK 19486 . 20433) (\ADVANCE.STORAGE.STATE 20435 . 20943) -(\NEW2PAGE 20945 . 21131) (\MAKEMDSENTRY 21133 . 21579) (\INITMDSPAGE 21581 . 23373) (\ASSIGNDATATYPE1 - 23375 . 33003) (\RESOLVE.TYPENUMBER 33005 . 33470) (\TYPENUMBERFROMNAME 33472 . 34012) (CREATECELL -34014 . 34147) (\CREATECELL 34149 . 37133)) (37627 59689 (FETCHFIELD 37637 . 40828) (REPLACEFIELD -40830 . 46456) (BOXCOUNT 46458 . 46959) (CONSCOUNT 46961 . 47095) (\DTEST 47097 . 47230) (\TYPECHECK -47232 . 47369) (\DTEST.UFN 47371 . 50626) (\INSTANCEP.UFN 50628 . 51856) (\INSTANCE-P 51858 . 52121) ( -\TYPECHECK.UFN 52123 . 52686) (GETDESCRIPTORS 52688 . 53206) (GETSUPERTYPE 53208 . 53722) ( -GETFIELDSPECS 53724 . 54361) (NCREATE 54363 . 54535) (NCREATE2 54537 . 55252) (REPLACEFIELDVAL 55254 - . 55518) (PUTBASEPTRX 55520 . 55999) (/REPLACEFIELD 56001 . 56266) (TYPENAME 56268 . 57110) ( -TYPENAMEP 57112 . 57336) (\TYPENAMEFROMNUMBER 57338 . 57568) (\BLOCKDATAP 57570 . 57890) ( -USERDATATYPES 57892 . 58024) (DATATYPEP 58026 . 59175) (DATATYPES 59177 . 59687)) (61931 77082 ( -STORAGE 61941 . 66362) (STORAGE.LEFT 66364 . 69905) (\STORAGE.TYPE 69907 . 73967) (\STLINP 73969 . -74155) (\STMDSTYPE 74157 . 75356) (\STMDS.APPROX 75358 . 75626) (\STORAGE.HUNKTYPE 75628 . 77080)) ( -83752 92451 (CREATEMDSTYPETABLE 83762 . 85551) (INITDATATYPES 85553 . 90398) (INITDATATYPENAMES 90400 - . 92449))))) + (FILEMAP (NIL (6370 36981 (NTYPX 6380 . 6857) (\TYPEMASK.UFN 6859 . 7383) (\TYPEP.UFN 7385 . 7554) ( +\ALLOCMDSPAGE 7556 . 8958) (\ALLOCPAGEBLOCK 8960 . 9666) (\ALLOCVIRTUALPAGEBLOCK 9668 . 12283) ( +\MAPMDS 12285 . 13472) (\CHECKFORSTORAGEFULL 13474 . 18620) (\DOSTORAGEFULLINTERRUPT 18622 . 18916) ( +\SET.STORAGE.STATE 18918 . 19330) (\SETTYPEMASK 19332 . 20279) (\ADVANCE.STORAGE.STATE 20281 . 20789) +(\NEW2PAGE 20791 . 20977) (\MAKEMDSENTRY 20979 . 21425) (\INITMDSPAGE 21427 . 23219) (\ASSIGNDATATYPE1 + 23221 . 32849) (\RESOLVE.TYPENUMBER 32851 . 33316) (\TYPENUMBERFROMNAME 33318 . 33858) (CREATECELL +33860 . 33993) (\CREATECELL 33995 . 36979)) (37473 59579 (FETCHFIELD 37483 . 40674) (REPLACEFIELD +40676 . 46302) (BOXCOUNT 46304 . 46805) (CONSCOUNT 46807 . 46941) (\DTEST 46943 . 47076) (\TYPECHECK +47078 . 47215) (\DTEST.UFN 47217 . 50516) (\INSTANCEP.UFN 50518 . 51746) (\INSTANCE-P 51748 . 52011) ( +\TYPECHECK.UFN 52013 . 52576) (GETDESCRIPTORS 52578 . 53096) (GETSUPERTYPE 53098 . 53612) ( +GETFIELDSPECS 53614 . 54251) (NCREATE 54253 . 54425) (NCREATE2 54427 . 55142) (REPLACEFIELDVAL 55144 + . 55408) (PUTBASEPTRX 55410 . 55889) (/REPLACEFIELD 55891 . 56156) (TYPENAME 56158 . 57000) ( +TYPENAMEP 57002 . 57226) (\TYPENAMEFROMNUMBER 57228 . 57458) (\BLOCKDATAP 57460 . 57780) ( +USERDATATYPES 57782 . 57914) (DATATYPEP 57916 . 59065) (DATATYPES 59067 . 59577)) (61821 76972 ( +STORAGE 61831 . 66252) (STORAGE.LEFT 66254 . 69795) (\STORAGE.TYPE 69797 . 73857) (\STLINP 73859 . +74045) (\STMDSTYPE 74047 . 75246) (\STMDS.APPROX 75248 . 75516) (\STORAGE.HUNKTYPE 75518 . 76970)) ( +83642 92341 (CREATEMDSTYPETABLE 83652 . 85441) (INITDATATYPES 85443 . 90288) (INITDATATYPENAMES 90290 + . 92339))))) STOP diff --git a/sources/LLDATATYPE.LCOM b/sources/LLDATATYPE.LCOM index 7ad9d0a9e117741ebb721c450ad21745776d93cf..3150d76859a877d81b4a64b42f9d8cc87f3d8244 100644 GIT binary patch delta 370 zcmZ3zi}B#&$(YNn*gr2#U)Imp#9#MK3; z2&=0JxKhE=*wWNY!OGReGep-ZQlTg}TS3Rl*~8J#-8EP@#9u*!%grxXA;u-dH8?~s z)Xh&*!73ogHO$jLG*}ntTi40bjFNJAL&9jY5YsY4E;oO_5QtkhA2+_M!Q$uX!vz38 CLu7LR delta 582 zcmb7>KWoB37>98ySvqtoU0!ZVz=-*y=B_1>Ca0#2Nl2nakU}s4rHP8xK}wN+gM#0o zOGg*!H|U4xcj?_!hb}J9aNO^A&->o@q4N1vd4Jd{E!kQuWwowqP&bH2xvq+cAjX5pMGS7;9W3J}wy%qA+Fs?Y`&1@%>t@h9FCy+57+W=n9eqkr&tzwG!&=-YS>n zX^JXfUBN9N)NvE}cF2T_vP3}auH|=VEGGeo11pN*Z!o4FOCYxW7Rv}2AigcD$!L|@6*ibn%4xOXH(d1}x7#z$P<2r{T VaPkP|5zHf)NAMYzB*Aw*;THzNpfUge