Skip to content

Commit 3b0b847

Browse files
rmkaplanrmkaplan
committed
Eliminate finally reference to \COERCEFONTDESC
1 parent 4020765 commit 3b0b847

File tree

2 files changed

+28
-35
lines changed

2 files changed

+28
-35
lines changed

‎sources/LLDATATYPE‎

Lines changed: 28 additions & 35 deletions
Original file line numberDiff line numberDiff line change
@@ -1,19 +1,14 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "17-Apr-2023 08:04:06" {DSK}<home>larry>il>medley>sources>LLDATATYPE.;2 94197
3+
(FILECREATED " 5-Aug-2025 09:18:50" {WMEDLEY}<sources>LLDATATYPE.;3 93956
44

5-
:EDIT-BY "lmm"
5+
:EDIT-BY rmk
66

7-
:CHANGES-TO (VARS LLDATATYPECOMS)
8-
(FNS \SET.STORAGE.STATE \MAPMDS)
7+
:CHANGES-TO (FNS \DTEST.UFN)
98

10-
:PREVIOUS-DATE "28-Jun-99 16:57:50" {DSK}<home>larry>il>medley>sources>LLDATATYPE.;1)
9+
:PREVIOUS-DATE "17-Apr-2023 08:04:06" {WMEDLEY}<sources>LLDATATYPE.;2)
1110

1211

13-
(* ; "
14-
Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA.
15-
")
16-
1712
(PRETTYCOMPRINT LLDATATYPECOMS)
1813

1914
(RPAQQ LLDATATYPECOMS
@@ -800,7 +795,8 @@ Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA.
800795
(\DTEST.UFN OBJ TYPE])
801796

802797
(\DTEST.UFN
803-
[LAMBDA (OBJ TYPEN) (* gbn " 3-Oct-86 10:49")
798+
[LAMBDA (OBJ TYPEN) (* ; "Edited 5-Aug-2025 09:18 by rmk")
799+
(* gbn " 3-Oct-86 10:49")
804800

805801
(* ;; "ufn for DTEST opcode ")
806802

@@ -809,15 +805,14 @@ Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA.
809805
(PROG ((N (NTYPX OBJ)))
810806
LP (COND
811807
((EQ (fetch DTDNAME of (\GETDTD N))
812-
TYPEN) (* ;
813-
 "should be happening in microcode")
808+
TYPEN) (* ; "should be happening in microcode")
814809
(RETURN OBJ))
815810
([NEQ 0 (SETQ N (fetch DTDSUPERTYPE of (\GETDTD N]
816811
(GO LP))
817812
(T (RETURN (SELECTQ (\INDEXATOMPNAME TYPEN)
818813
(FLOATP (\FLOAT OBJ))
819814
(STREAM (* ;
820-
 "Should be able to get at the INPUT/OUTPUT flg--a second arg to \DTEST ?")
815+
 "Should be able to get at the INPUT/OUTPUT flg--a second arg to \DTEST ?")
821816
(\GETSTREAM OBJ (SELECTQ (STKNTHNAME -1 '\DTEST.UFN)
822817
((\BINS \BIN BIN)
823818
'INPUT)
@@ -836,7 +831,7 @@ Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA.
836831
(CAR OBJ))
837832
(T (LISPERROR "ARG NOT HARRAY" OBJ T))))
838833
(FONTDESCRIPTOR
839-
(\COERCEFONTDESC OBJ))
834+
(FONTCREATE OBJ))
840835
(SMALLP [PROG (HI LO)
841836
(.UNBOX. OBJ HI LO)
842837
(RETURN (OR (SMALLP (\MAKENUMBER HI LO))
@@ -848,7 +843,7 @@ Copyright (c) 1982-1995, 1999 by VENUE, Oakland, CA.
848843
(TERMTABLEP (LISPERROR "ILLEGAL TERMINAL TABLE" OBJ T))
849844
(ARRAYP (LISPERROR "ARG NOT ARRAY" OBJ T))
850845
(\DISPLAYDATA (* ;
851-
 "Should be able to get at the stream--a second arg to \DTEST ?")
846+
 "Should be able to get at the stream--a second arg to \DTEST ?")
852847
(ERROR "ARG NOT DISPLAY STREAM" NIL))
853848
(\LISPERROR OBJ (CONCAT "ARG NOT " (\INDEXATOMPNAME TYPEN))
854849
T])
@@ -1744,25 +1739,23 @@ EVAL@COMPILE
17441739
(FILESLOAD (LOADCOMP)
17451740
DTDECLARE)
17461741
)
1747-
(PUTPROPS LLDATATYPE COPYRIGHT ("VENUE, Oakland, CA" 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991
1748-
1992 1993 1994 1995 1999))
17491742
(DECLARE%: DONTCOPY
1750-
(FILEMAP (NIL (6524 37135 (NTYPX 6534 . 7011) (\TYPEMASK.UFN 7013 . 7537) (\TYPEP.UFN 7539 . 7708) (
1751-
\ALLOCMDSPAGE 7710 . 9112) (\ALLOCPAGEBLOCK 9114 . 9820) (\ALLOCVIRTUALPAGEBLOCK 9822 . 12437) (
1752-
\MAPMDS 12439 . 13626) (\CHECKFORSTORAGEFULL 13628 . 18774) (\DOSTORAGEFULLINTERRUPT 18776 . 19070) (
1753-
\SET.STORAGE.STATE 19072 . 19484) (\SETTYPEMASK 19486 . 20433) (\ADVANCE.STORAGE.STATE 20435 . 20943)
1754-
(\NEW2PAGE 20945 . 21131) (\MAKEMDSENTRY 21133 . 21579) (\INITMDSPAGE 21581 . 23373) (\ASSIGNDATATYPE1
1755-
23375 . 33003) (\RESOLVE.TYPENUMBER 33005 . 33470) (\TYPENUMBERFROMNAME 33472 . 34012) (CREATECELL
1756-
34014 . 34147) (\CREATECELL 34149 . 37133)) (37627 59689 (FETCHFIELD 37637 . 40828) (REPLACEFIELD
1757-
40830 . 46456) (BOXCOUNT 46458 . 46959) (CONSCOUNT 46961 . 47095) (\DTEST 47097 . 47230) (\TYPECHECK
1758-
47232 . 47369) (\DTEST.UFN 47371 . 50626) (\INSTANCEP.UFN 50628 . 51856) (\INSTANCE-P 51858 . 52121) (
1759-
\TYPECHECK.UFN 52123 . 52686) (GETDESCRIPTORS 52688 . 53206) (GETSUPERTYPE 53208 . 53722) (
1760-
GETFIELDSPECS 53724 . 54361) (NCREATE 54363 . 54535) (NCREATE2 54537 . 55252) (REPLACEFIELDVAL 55254
1761-
. 55518) (PUTBASEPTRX 55520 . 55999) (/REPLACEFIELD 56001 . 56266) (TYPENAME 56268 . 57110) (
1762-
TYPENAMEP 57112 . 57336) (\TYPENAMEFROMNUMBER 57338 . 57568) (\BLOCKDATAP 57570 . 57890) (
1763-
USERDATATYPES 57892 . 58024) (DATATYPEP 58026 . 59175) (DATATYPES 59177 . 59687)) (61931 77082 (
1764-
STORAGE 61941 . 66362) (STORAGE.LEFT 66364 . 69905) (\STORAGE.TYPE 69907 . 73967) (\STLINP 73969 .
1765-
74155) (\STMDSTYPE 74157 . 75356) (\STMDS.APPROX 75358 . 75626) (\STORAGE.HUNKTYPE 75628 . 77080)) (
1766-
83752 92451 (CREATEMDSTYPETABLE 83762 . 85551) (INITDATATYPES 85553 . 90398) (INITDATATYPENAMES 90400
1767-
. 92449)))))
1743+
(FILEMAP (NIL (6370 36981 (NTYPX 6380 . 6857) (\TYPEMASK.UFN 6859 . 7383) (\TYPEP.UFN 7385 . 7554) (
1744+
\ALLOCMDSPAGE 7556 . 8958) (\ALLOCPAGEBLOCK 8960 . 9666) (\ALLOCVIRTUALPAGEBLOCK 9668 . 12283) (
1745+
\MAPMDS 12285 . 13472) (\CHECKFORSTORAGEFULL 13474 . 18620) (\DOSTORAGEFULLINTERRUPT 18622 . 18916) (
1746+
\SET.STORAGE.STATE 18918 . 19330) (\SETTYPEMASK 19332 . 20279) (\ADVANCE.STORAGE.STATE 20281 . 20789)
1747+
(\NEW2PAGE 20791 . 20977) (\MAKEMDSENTRY 20979 . 21425) (\INITMDSPAGE 21427 . 23219) (\ASSIGNDATATYPE1
1748+
23221 . 32849) (\RESOLVE.TYPENUMBER 32851 . 33316) (\TYPENUMBERFROMNAME 33318 . 33858) (CREATECELL
1749+
33860 . 33993) (\CREATECELL 33995 . 36979)) (37473 59579 (FETCHFIELD 37483 . 40674) (REPLACEFIELD
1750+
40676 . 46302) (BOXCOUNT 46304 . 46805) (CONSCOUNT 46807 . 46941) (\DTEST 46943 . 47076) (\TYPECHECK
1751+
47078 . 47215) (\DTEST.UFN 47217 . 50516) (\INSTANCEP.UFN 50518 . 51746) (\INSTANCE-P 51748 . 52011) (
1752+
\TYPECHECK.UFN 52013 . 52576) (GETDESCRIPTORS 52578 . 53096) (GETSUPERTYPE 53098 . 53612) (
1753+
GETFIELDSPECS 53614 . 54251) (NCREATE 54253 . 54425) (NCREATE2 54427 . 55142) (REPLACEFIELDVAL 55144
1754+
. 55408) (PUTBASEPTRX 55410 . 55889) (/REPLACEFIELD 55891 . 56156) (TYPENAME 56158 . 57000) (
1755+
TYPENAMEP 57002 . 57226) (\TYPENAMEFROMNUMBER 57228 . 57458) (\BLOCKDATAP 57460 . 57780) (
1756+
USERDATATYPES 57782 . 57914) (DATATYPEP 57916 . 59065) (DATATYPES 59067 . 59577)) (61821 76972 (
1757+
STORAGE 61831 . 66252) (STORAGE.LEFT 66254 . 69795) (\STORAGE.TYPE 69797 . 73857) (\STLINP 73859 .
1758+
74045) (\STMDSTYPE 74047 . 75246) (\STMDS.APPROX 75248 . 75516) (\STORAGE.HUNKTYPE 75518 . 76970)) (
1759+
83642 92341 (CREATEMDSTYPETABLE 83652 . 85441) (INITDATATYPES 85443 . 90288) (INITDATATYPENAMES 90290
1760+
. 92339)))))
17681761
STOP

‎sources/LLDATATYPE.LCOM‎

-226 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)