(DEFINE-FILE-INFO PACKAGE "LISP" READTABLE "XCL" BASE 10) (IL:FILECREATED " 4-Jun-2024 23:32:50" ("compiled on " IL:|{DSK}matt>Interlisp>medley>SOURCES>CMLTYPES.;2|) "15-May-2024 11:17:57" "COMPILE-FILEd" IL:|in| "FULL 15-May-2024 ..." IL:|dated| "15-May-2024 11:18:00") (IL:FILECREATED " 4-Jun-2024 23:32:50" IL:|{DSK}matt>Interlisp>medley>SOURCES>CMLTYPES.;2| 66046 :EDIT-BY "mth" :CHANGES-TO (IL:FUNCTIONS SYMBOL-TYPE) :PREVIOUS-DATE " 4-Jan-93 17:55:42" IL:|{DSK}matt>Interlisp>medley>SOURCES>CMLTYPES.;1|) (IL:RPAQQ IL:CMLTYPESCOMS ((IL:* IL:|;;;| "Implementation of Common Lisp type system. ") (IL:* IL:|;;;| "implementation by Greg Nuyens ,Larry Masinter and Jan Pedersen.") (IL:* IL:|;;;| "Predicates") ( IL:FUNCTIONS COMMONP) (IL:* IL:|;;;| "Typep and friends") (IL:VARIABLES *TYPEP-HASH-TABLE*) ( IL:FUNCTIONS TYPEP TYPE-OF COERCE TYPECASE) (IL:FUNCTIONS %VALID-TYPE-P) (XCL:OPTIMIZERS TYPEP COERCE) (IL:* IL:|;;;| "for DEFTYPE") (IL:DEFINE-TYPES IL:TYPES) (IL:FUNCTIONS DEFTYPE TYPE-EXPAND TYPE-EXPANDER SETF-TYPE-EXPANDER) (IL:SETFS TYPE-EXPANDER) (IL:DECLARE\: IL:DOCOPY IL:DONTEVAL@LOAD ( IL:* IL:|;;| "There is still code out there that calls the IL: versions") (IL:P (IL:MOVD (QUOTE TYPE-EXPAND) (QUOTE IL:TYPE-EXPAND)) (IL:MOVD (QUOTE TYPE-EXPANDER) (QUOTE IL:TYPE-EXPANDER)))) (IL:* IL:|;;;| "Support functions") (IL:FUNCTIONS ARRAY-TYPE SYMBOL-TYPE XCL:FALSE XCL:TRUE %RANGE-TYPE) ( IL:FUNCTIONS NUMBERP FLOATP) (XCL:OPTIMIZERS NUMBERP FLOATP XCL:FALSE XCL:TRUE) (IL:* IL:|;;;| "For TYPEP") (IL:FUNCTIONS %TYPEP-PRED BIGNUMP) (IL:* IL:|;;;| "for SUBTYPEP ") (IL:VARIABLES %NO-SUPER-TYPE *COMMON-LISP-BASE-TYPES* *BASE-TYPE-LATTICE*) (IL:FUNCTIONS SUBTYPEP SUBTYPEP-TYPE-EXPAND SI::DATATYPE-P SI::SUB-DATATYPE-P EQUAL-DIMENSIONS COMPLETE-ARRAY-TYPE-DIMENSIONS COMPLETE-META-EXPRESSION-DEFAULTS RANGE<= BASE-SUBTYPEP EQUAL-ELEMENT-TYPE USEFUL-TYPE-EXPANSION-P) ( IL:* IL:|;;;| "Basic deftypes") (IL:TYPES ATOM BIGNUM BIT CHARACTER CONS DOUBLE-FLOAT FIXNUM STREAM FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD LIST LONG-FLOAT MEMBER MOD NULL NUMBER PACKAGE SHORT-FLOAT SIGNED-BYTE STANDARD-CHAR STRING-CHAR SINGLE-FLOAT SYMBOL UNSIGNED-BYTE RATIONAL READTABLE COMMON COMPILED-FUNCTION SEQUENCE) (IL:* IL:|;;;| "Array Types") (IL:TYPES ARRAY VECTOR STRING SIMPLE-STRING SIMPLE-ARRAY SIMPLE-VECTOR BIT-VECTOR SIMPLE-BIT-VECTOR) (IL:* IL:|;;;| "Fast predicates for typep") ( IL:DEFINE-TYPES TYPEP) (IL:FUNCTIONS DEFTYPEP) (TYPEP LIST SEQUENCE MEMBER ARRAY SIMPLE-ARRAY VECTOR SIMPLE-VECTOR COMPLEX INTEGER MOD SIGNED-BYTE UNSIGNED-BYTE RATIONAL FLOAT STRING SIMPLE-STRING BIT-VECTOR SIMPLE-BIT-VECTOR) (IL:* IL:|;;;| "for TYPE-OF Interlisp types that have different common Lisp names") (IL:PROP CMLTYPE IL:CHARACTER IL:FIXP IL:FLOATP IL:GENERAL-ARRAY IL:LISTP IL:LITATOM IL:ONED-ARRAY IL:SMALLP IL:HARRAYP IL:TWOD-ARRAY ) (IL:PROP CMLSUBTYPE-DESCRIMINATOR SYMBOL ARRAY) (IL:* IL:|;;;| "tell the filepkg what to do with the type-expander property") (IL:PROP IL:PROPTYPE :TYPE-EXPANDER IL:TYPE-EXPANDER) (IL:* IL:|;;;| "Compiler options") (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CMLTYPES) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY (IL:LOCALVARS . T)))) COMMONP :D8 (IL:L (0 OBJECT)) @ g þ(15 SUBTYPEP 5 TYPE-OF) (10 COMMON) () (PROCLAIM (QUOTE (SPECIAL *TYPEP-HASH-TABLE*))) (IL:SETQ *TYPEP-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE EQ))) TYPEP :D8 (IL:L (1 TYPE 0 OBJECT) IL:F 11 *TYPEP-HASH-TABLE*) ÿAd¡ HW Y²A™Iº@AlJ@kIA¢±¥Hdgð™¿A»@kKgð©Hdgðš¿@A gð›@A hðHdgð²¿A\µi½@M ¡hL°ígð²A^d²X_¿@O ³ÕN°ìH _›@AkO oA Hdið³«d²µ _²@O_¿AhkO oA (252 ERROR 240 TYPEP 218 TYPE-EXPANDER 203 ERROR 191 TYPEP 177 TYPE-EXPANDER 166 TYPEP 134 TYPEP 104 TYPEP 87 IL:TYPENAMEP 15 GETHASH) (145 OR 114 AND 93 NOT 75 IL:DATATYPE 66 :DATATYPE 49 SATISFIES) ( 246 "Unknown type expression: ~s" 197 "Unknown type expression: ~s") TYPE-OF :D8 (IL:L (0 X)) N`@lÚÐÉHd3 Ÿd“¿jH†ããHnÿÿåÑHÁÉg'µHXdÁÉg'Y•@kIµHNIL (65 CMLSUBTYPE-DESCRIMINATOR 50 CMLTYPE 4 IL:|\\DTDSpaceBase|) () COERCE :D8 (IL:L (1 RESULT-TYPE 0 OBJECT)) Õ@A ‘@Adgð—¿@ gð³&Agð³Agð³Agð©Adgð—¿@’A€Agð²FAµ @ @dÃ²!¿@ H @ H H @H µHYhðµIÃœAg@o@A(210 ERROR 197 MAP 169 VECTORP 158 COMPLEX 153 COERCE 146 COMPLEX 141 COERCE 135 IMAGPART 129 COERCE 123 REALPART 101 COMPLEX 25 CHARACTER 6 TYPEP) (191 IDENTITY 183 IL:LISTP 114 COMPLEX 88 COMPLEX 76 IL:FLOATP 67 DOUBLE-FLOAT 58 LONG-FLOAT 49 SHORT-FLOAT 40 SINGLE-FLOAT 31 FLOAT 16 CHARACTER) ( 203 "Cannot coerce ~S to type: ~S") |expand-TYPECASE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) }@qH¹HºggIhhgJ^µ Mh_dgð£dið’¿i¿h’i°gggOhhOd¦¿o€»M”LK&¼„Kh\½N°§NIL (82 QUOTE 77 $$TYPE-VALUE 72 TYPEP 52 OTHERWISE 31 COND 20 $$TYPE-VALUE 15 LET) ( 103 (NIL)) (IL:SETF-MACRO-FUNCTION (QUOTE TYPECASE) (QUOTE |expand-TYPECASE|)) (IL:SET-DOCUMENTATION (QUOTE TYPECASE) (QUOTE FUNCTION) "Type dispatch, order is important, more specific types should appear first") %VALID-TYPE-P :D8 (IL:L (0 TYPE)) k@d²WHgð³HHgð©Hdgð¿g@ gð—@b°ÂHgð¯Hgð§@ ´i ³ù@iðµ@hð(94 TYPE-EXPANDER 85 TYPE-EXPANDER 47 IL:%EVERY-SINGLE) (77 IL:DATATYPE 69 :DATATYPE 53 NOT 40 %VALID-TYPE-P 32 AND 23 OR 14 SATISFIES) () |optimize-TYPEP| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) >@1H¹HZ ²&J [ šK IhoIJg(54 WARN 37 %TYPEP-PRED 30 %VALID-TYPE-P 24 EVAL 16 CONSTANTP) (59 COMPILER:PASS) ( 47 "Can't optimize (typep ~s ~s); type not known.") (IL:PUTPROP (QUOTE TYPEP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-TYPEP|) (GET (QUOTE TYPEP) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-COERCE| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) g@1H¹HZ ²OJ [dgðš¿gIhgð³#Kgð³Kgð¯Kgð§Kgð™gIhg(24 EVAL 16 CONSTANTP) (100 COMPILER:PASS 90 FLOAT 83 DOUBLE-FLOAT 75 LONG-FLOAT 67 SHORT-FLOAT 58 SINGLE-FLOAT 49 FLOAT 39 CHARACTER 31 CHARACTER) () (IL:PUTPROP (QUOTE COERCE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-COERCE|) (GET ( QUOTE COERCE) (QUOTE COMPILER:OPTIMIZER-LIST)))) (IL:SET-DOCUMENTATION (QUOTE IL:TYPES) (QUOTE IL:DEFINE-TYPES) (QUOTE "Common Lisp type definitions")) (IL:SETQ IL:PRETTYDEFMACROS (ADJOIN (QUOTE (IL:TYPES XCL::X (IL:P IL:* ( XCL::%DEFINE-TYPE-FILE-DEFINITIONS (QUOTE IL:TYPES) (QUOTE XCL::X))))) IL:PRETTYDEFMACROS :TEST (QUOTE EQUAL))) (IL:SETQ IL:PRETTYTYPELST (ADJOIN (QUOTE (IL:CHANGEDTYPESLST IL:TYPES "Common Lisp type definitions")) IL:PRETTYTYPELST :TEST (QUOTE EQUAL))) (PROCLAIM (QUOTE (XCL:GLOBAL IL:CHANGEDTYPESLST))) (OR (BOUNDP (QUOTE IL:CHANGEDTYPESLST)) (SETQ IL:CHANGEDTYPESLST NIL)) (COND ((NOT (GETHASH (QUOTE IL:TYPES) XCL:*DEFINITION-HASH-TABLE*)) (PUTHASH (QUOTE IL:TYPES) XCL:*DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE EQUAL) :SIZE 50 :REHASH-SIZE 50)))) (IL:SETQ IL:FILEPKGTYPES (ADJOIN (QUOTE IL:TYPES) IL:FILEPKGTYPES)) (IL:PUTPROP (QUOTE IL:TYPES) (QUOTE IL:GETDEF) (QUOTE XCL::%DEFINE-TYPE-GETDEF)) (IL:PUTPROP (QUOTE IL:TYPES) (QUOTE IL:DELDEF) (QUOTE XCL::%DEFINE-TYPE-DELDEF)) (IL:PUTPROP (QUOTE IL:TYPES) (QUOTE IL:PUTDEF) (QUOTE XCL::%DEFINE-TYPE-PUTDEF)) (IL:PUTPROP (QUOTE IL:TYPES) (QUOTE IL:FILEGETDEF) (QUOTE XCL::%DEFINE-TYPE-FILEGETDEF)) (IL:PUTPROP (QUOTE IL:TYPES) (QUOTE IL:FILEPKGCONTENTS) (QUOTE IL:NILL)) (IL:PUTPROP (QUOTE DEFTYPE) (QUOTE :DEFINER-FOR) (QUOTE IL:TYPES)) (IL:PUTPROP (QUOTE IL:TYPES) (QUOTE :DEFINED-BY) (ADJOIN (QUOTE DEFTYPE) (GET (QUOTE IL:TYPES) (QUOTE :DEFINED-BY)))) |definition-expander-DEFTYPE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) É@±H¹HZ»J¼I•Id3@ð«oI ¿oIhI ½KgLIhgo ^_¿N__¿O_¿gogggMhhggoOgIOhh hhgggIhhgMhhO´$gggIhoOhhK’±ºoIhI _¿gogggOhhggogggIhhhhhggIhggOhhhgoggIhohh€h (450 APPEND 281 XCL:PACK 276 SYMBOL-PACKAGE 174 APPEND 86 IL:\\MVLIST 81 IL:PARSE-DEFMACRO 55 XCL:PACK 50 SYMBOL-PACKAGE 34 ERROR) (425 QUOTE 420 PUTHASH 410 EVAL-WHEN 390 QUOTE 385 *TYPEP-HASH-TABLE* 376 QUOTE 371 PUTHASH 347 QUOTE 342 SI::%$$OBJECT 337 TYPEP 327 LAMBDA 322 FUNCTION 309 QUOTE 304 SYMBOL-FUNCTION 299 SETF 289 EVAL-WHEN 237 QUOTE 232 DOCUMENTATION 227 SETF 210 QUOTE 198 QUOTE 193 TYPE-EXPANDER 188 SETF 160 BLOCK 148 LAMBDA 143 FUNCTION 131 QUOTE 126 SYMBOL-FUNCTION 121 SETF 111 EVAL-WHEN 70 :DEFAULT-DEFAULT 62 SI::%$$TYPE-FORM) ( 434 (*TYPEP-HASH-TABLE* NIL) 415 (EVAL) 332 (SI::%$$OBJECT) 294 (LOAD) 266 "typep-evaluate-" 246 ((QUOTE TYPE)) 153 (SI::%$$TYPE-FORM) 116 (EVAL COMPILE LOAD) 75 (QUOTE *) 40 "type-expand-" 28 "Illegal name used in DEFTYPE: ~S") (IL:PUTPROP (QUOTE DEFTYPE) (QUOTE :DEFINITION-EXPANDER) (QUOTE |definition-expander-DEFTYPE|)) (IL:PUTPROP (QUOTE DEFTYPE) (QUOTE :DEFINITION-NAME) (QUOTE SECOND)) |prototype-fn-DEFTYPE| :D8 (IL:L (0 NAME)) @d3@ð´g@oNIL (11 DEFTYPE) ( 17 (("Arg list") "Body")) (XCL::ADD-PROTOTYPE-FN (QUOTE IL:TYPES) (QUOTE DEFTYPE) (QUOTE |prototype-fn-DEFTYPE|)) (IL:PUTPROP (QUOTE DEFTYPE) (QUOTE :DEFINITION-PRINT-TEMPLATE) (QUOTE (:NAME NIL :BODY))) (IL:SETQ IL:PRETTYPRINTMACROS (ADJOIN (QUOTE (DEFTYPE . XCL::PPRINT-DEFINER)) IL:PRETTYPRINTMACROS :TEST (QUOTE EQUAL))) |expand-DEFTYPE| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @A¹gggHIhNIL (20 DEFTYPE 15 IL:TYPES 10 XCL:DEFINER) () (IL:SETF-MACRO-FUNCTION (QUOTE DEFTYPE) (QUOTE |expand-DEFTYPE|)) TYPE-EXPAND :D8 (IL:L (0 IL:|-args-|)) Ueka!lHñ–I ‚laµIh$»IZdÃ•¿Ih°Ã´I°gJoh kKi$(75 IL:CHECK-TYPE-FAIL 19 TYPE-EXPANDER) (62 FORM 52 IL:LISTP 40 IL:LITATOM) ( 68 (OR SYMBOL CONS)) TYPE-EXPANDER :D8 (IL:L (0 TYPE) IL:P 4 IL:FILEPKGFLG IL:P 3 IL:DFNFLG) @HdÃ“¿@°Ã´@°gHoh !HÁÉg'µ HÁÉg'ZµQ@d3@ð²I@ ²Ag@hgg@hhh¹g —I ¿‰ I ±ÿiJ(148 EVAL 137 XCL:COMPILE-FORM 130 FBOUNDP 88 SI::DATATYPE-P 44 IL:CHECK-TYPE-FAIL) (125 XCL:COMPILE-FORM 107 :DATATYPE 102 QUOTE 95 DEFTYPE 71 IL:TYPE-EXPANDER 58 :TYPE-EXPANDER 31 TYPE 20 IL:LISTP 10 IL:LITATOM) ( 37 (OR SYMBOL CONS)) |expand-SETF-TYPE-EXPANDER| :D8 (IL:L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) %@!H¹HºggIoJhNIL (21 GET 16 SETF) ( 27 ((QUOTE :TYPE-EXPANDER))) (IL:SETF-MACRO-FUNCTION (QUOTE SETF-TYPE-EXPANDER) (QUOTE |expand-SETF-TYPE-EXPANDER|)) (SET-SETF-INVERSE (QUOTE TYPE-EXPANDER) (QUOTE SETF-TYPE-EXPANDER)) (IL:MOVD (QUOTE TYPE-EXPAND) (QUOTE IL:TYPE-EXPAND)) (IL:MOVD (QUOTE TYPE-EXPANDER) (QUOTE IL:TYPE-EXPANDER)) ARRAY-TYPE :D8 (IL:L (0 ARRAY)) Ð@ 1@ ²jHkð²O@ ¹@d š¿gIhd š¿gIh Zið™gIhgJIhhg@ @ hHkð²=@ »@d š¿gKh ™gKhg@ Khg@ @ h(201 ARRAY-DIMENSIONS 195 ARRAY-ELEMENT-TYPE 178 ARRAY-ELEMENT-TYPE 156 BIT-VECTOR-P 139 STRINGP 131 ARRAY-TOTAL-SIZE 115 ARRAY-DIMENSIONS 109 ARRAY-ELEMENT-TYPE 70 ARRAY-ELEMENT-TYPE 53 SIMPLE-BIT-VECTOR-P 35 SIMPLE-STRING-P 27 ARRAY-TOTAL-SIZE 14 XCL:SIMPLE-ARRAY-P 5 ARRAY-RANK) (189 ARRAY 172 VECTOR 162 BIT-VECTOR 146 STRING 103 SIMPLE-ARRAY 89 SIMPLE-ARRAY 79 SIMPLE-VECTOR 60 SIMPLE-BIT-VECTOR 42 SIMPLE-STRING) () SYMBOL-TYPE :D8 (IL:L (0 SYMBOL)) @µg •gg(13 KEYWORDP) (25 SYMBOL 19 KEYWORD 7 NULL) () XCL:FALSE :D8 NIL hNIL NIL () XCL:TRUE :D8 NIL iNIL NIL () %RANGE-TYPE :D8 (IL:L (3 RANGE-LIST 2 HIGH 1 LOW 0 BASE-TYPE)) EAdgð›¿Bgð‘@Agð¨Bgð²zg@ggoAgð³!AµgAoh‹b¿g°ìhBgð³#BµggBhh‹b¿g°êh hhCHd³iYµfg@ggogAµ=gAoBµ!ggBhhhhhb¿g°Ýb¿g°Á¹AIÌšBIÌ”IIAd’kÔBd’kÕI–Ib¿HX±ÿa(309 <= 146 APPEND) (265 < 254 < 224 X 219 <= 202 <= 193 AND 183 LAMBDA 178 SATISFIES 172 AND 138 < 121 X 116 <= 104 * 95 < 75 <= 63 * 52 LAMBDA 47 SATISFIES 41 AND 33 * 25 * 15 * 6 *) ( 208 (X) 188 (X) 81 (X) 57 (X)) NUMBERP :D8 (IL:L (0 X)) @3´iNIL NIL () FLOATP :D8 (IL:L (0 X)) @´iNIL NIL () |optimize-NUMBERP| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @ggHhoNIL (15 IL:NUMBERP 10 AND) ( 24 (T)) (IL:PUTPROP (QUOTE NUMBERP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-NUMBERP|) (GET ( QUOTE NUMBERP) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FLOATP| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @ggHhoNIL (15 IL:FLOATP 10 AND) ( 24 (T)) (IL:PUTPROP (QUOTE FLOATP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FLOATP|) (GET ( QUOTE FLOATP) (QUOTE COMPILER:OPTIMIZER-LIST)))) XCL::|optimize-FALSE| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @ghHNIL (9 PROG1) () (IL:PUTPROP (QUOTE XCL:FALSE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE XCL::|optimize-FALSE|) ( GET (QUOTE XCL:FALSE) (QUOTE COMPILER:OPTIMIZER-LIST)))) XCL::|optimize-TRUE| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @giHNIL (9 PROG1) () (IL:PUTPROP (QUOTE XCL:TRUE) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE XCL::|optimize-TRUE|) (GET (QUOTE XCL:TRUE) (QUOTE COMPILER:OPTIMIZER-LIST)))) %TYPEP-PRED :D8 (IL:L (0 TYPE)) @d¢±ÈQHdgð”¿@gðªHdgð²+¿goggg@hhhgð³Hgð¨Hgð²>go@@¼h[ºLµ Kh gh¹K”JI&º„IhZ»L\°Ù@ ]™@kMb±ÿHoo@ið•g@µg µ @ ²±ÿ@hkHb±ÿoo@¿°Õ(270 CERROR 234 TYPE-EXPANDER 226 TYPE-EXPANDER 202 CERROR 174 TYPE-EXPANDER 141 %TYPEP-PRED) (220 XCL:FALSE 211 XCL:TRUE 146 SI::%$$OBJECT 112 LAMBDA 104 NOT 96 OR 87 AND 67 QUOTE 62 SI::%$$OBJECT 57 IL:TYPENAMEP 47 LAMBDA 38 IL:DATATYPE 29 :DATATYPE 17 SATISFIES) ( 264 "No type definition for ~S. Specify one with DEFTYPE." 259 "Use the deftype you have specified." 196 "No type definition for ~S. Specify one with DEFTYPE." 191 "Look again for a deftype on ~S." 117 (SI::%$$OBJECT) 52 (SI::%$$OBJECT)) BIGNUMP :D8 (IL:L (0 X)) @Ãµ@ÃNIL (13 BIGNUM 5 IL:FIXP) () (XCL::SET-CONSTANTP (QUOTE %NO-SUPER-TYPE) NIL) (IL:SETQ %NO-SUPER-TYPE 0) (PROCLAIM (QUOTE (SI::CONSTANT %NO-SUPER-TYPE))) (IL:SET-DOCUMENTATION (QUOTE %NO-SUPER-TYPE) (QUOTE VARIABLE) "the value in the dtdsupertype field which indicates no super type.") (XCL::SET-CONSTANTP (QUOTE *COMMON-LISP-BASE-TYPES*) NIL) (IL:SETQ *COMMON-LISP-BASE-TYPES* (QUOTE (ARRAY ATOM BIGNUM CHARACTER COMMON COMPLEX COMPILED-FUNCTION CONS IL:DATATYPE :DATATYPE FLOAT FUNCTION HASH-TABLE INTEGER KEYWORD NIL NULL NUMBER PACKAGE PATHNAME RANDOM-STATE RATIO RATIONAL READTABLE SIMPLE-ARRAY STANDARD-CHAR STREAM STRING-CHAR SYMBOL T))) (PROCLAIM (QUOTE (SI::CONSTANT *COMMON-LISP-BASE-TYPES*))) (XCL::SET-CONSTANTP (QUOTE *BASE-TYPE-LATTICE*) NIL) (IL:SETQ *BASE-TYPE-LATTICE* (QUOTE ((NUMBER RATIONAL INTEGER RATIO FIXNUM BIGNUM COMPLEX FLOAT) ( RATIONAL INTEGER RATIO FIXNUM BIGNUM) (INTEGER FIXNUM BIGNUM) (CHARACTER STRING-CHAR STANDARD-CHAR) ( STRING-CHAR STANDARD-CHAR) (LIST NULL) (SYMBOL KEYWORD NULL) (ARRAY SIMPLE-ARRAY) (FUNCTION COMPILED-FUNCTION) (NIL) (IL:DATATYPE :DATATYPE) (:DATATYPE IL:DATATYPE)))) (PROCLAIM (QUOTE (SI::CONSTANT *BASE-TYPE-LATTICE*))) (IL:SET-DOCUMENTATION (QUOTE *BASE-TYPE-LATTICE*) (QUOTE VARIABLE) "the lattice which tells the (base) subtypes of any base type.") SUBTYPEP :D8 (IL:L (1 TYPE2 0 TYPE1)) @dAÌ–¿id$’@€@dgð²0¿`@]d²A \ºL»J›i¸K—iYHI$M°Ùgð²8idR@^µI°A ]»M¼K¬h¸L´ iZHJ$L¡h¹N°Ò@ ±H_¿H_¿OO —Ob±ÿQAddgð²K¿id2AZµO°(»@K Y_¿I_ ¿O³h_¿O ´i_OO$O £h_¿J°Àgð²=@A]d²'¾@N \_&¿L_(¿O&²i_"¿O(ši_$O"O$$M°ËA __¿O_¿OO —Ob±þ@A (380 BASE-SUBTYPEP 364 USEFUL-TYPE-EXPANSION-P 342 IL:\\MVLIST 337 SUBTYPEP-TYPE-EXPAND 295 IL:\\MVLIST 290 SUBTYPEP 220 IL:\\MVLIST 215 SUBTYPEP 168 USEFUL-TYPE-EXPANSION-P 145 IL:\\MVLIST 140 SUBTYPEP-TYPE-EXPAND 105 IL:\\MVLIST 100 SUBTYPEP 48 IL:\\MVLIST 43 SUBTYPEP) (269 OR 188 AND 77 OR 23 AND) () SUBTYPEP-TYPE-EXPAND :D8 (IL:L (0 TYPE)) 6@ddgð’±dgð’± dgð’±ÿdgð’±ôdgð’±édgð’±Þdgð’±Ódgð’±Èdgð’±½dgð’±²dgð’±§dgð’±œdgð’±‘dgð’±†dgð³|d²ydgð³pdgð³gdgð³^dgð³Udgð³Ldgð³Cdgð³:dgð³1dgð³(dgð³dgð³dgð«dgð£dið’¿i¿h•@h$@ (307 TYPE-EXPAND) (283 SYMBOL 275 STRING-CHAR 266 STREAM 257 STANDARD-CHAR 248 SIMPLE-ARRAY 239 READTABLE 230 RATIONAL 221 RATIO 212 RANDOM-STATE 203 PATHNAME 194 PACKAGE 185 NUMBER 176 NULL 164 KEYWORD 153 INTEGER 142 HASH-TABLE 131 FUNCTION 120 FLOAT 109 :DATATYPE 98 IL:DATATYPE 87 CONS 76 COMPILED-FUNCTION 65 COMPLEX 54 COMMON 43 CHARACTER 32 BIGNUM 21 ATOM 10 ARRAY) () SI::DATATYPE-P :D8 (IL:L (0 SI::NAME)) @ ´i(5 IL:\\TYPENUMBERFROMNAME) NIL () SI::SUB-DATATYPE-P :D8 (IL:L (1 TYPE2 0 TYPE1)) ,@ !A ¹HZdjð‘hIð‘i`JlÚÐÈ°è(14 IL:\\TYPENUMBERFROMNAME 5 IL:\\TYPENUMBERFROMNAME) (33 IL:|\\DTDSpaceBase|) () EQUAL-DIMENSIONS :D8 (IL:L (1 DIMS2 0 DIMS1)) Q@gðµ@Agðµ7@ A Ì´(@AH¡iHdgð³¿Igð¨HdIð¢hHI¹X°Ù(29 LENGTH 23 LENGTH) (60 * 49 * 14 * 5 *) () COMPLETE-ARRAY-TYPE-DIMENSIONS :D8 (IL:L (0 DIMENSIONS)) I@!HYdÃ‘@Z—Jo•gI3 ´@gggHoh (70 IL:CHECK-TYPE-FAIL 51 MAKE-LIST) (57 DIMENSIONS 46 * 41 :INITIAL-ELEMENT 29 * 11 IL:LISTP) ( 63 (OR CONS (OR NULL (MEMBER *)) INTEGER) 22 (*)) COMPLETE-META-EXPRESSION-DEFAULTS :D8 (IL:L (0 TYPE)) Ç@d•d´€áHYgðªIdgð²/¿HZ»J\µg½L–L‡°÷g¾KMN hgð³IgðªIdgð²8¿H__¿O_µg_¿O—O‡°óg_¿OOOhgð²!H__¿Oµg_¿OOh°ô@(71 COMPLETE-ARRAY-TYPE-DIMENSIONS) (181 * 161 COMPLEX 142 * 122 * 99 RATIONAL 90 FLOAT 81 INTEGER 62 * 46 * 28 ARRAY 19 SIMPLE-ARRAY) () RANGE<= :D8 (IL:L (5 TYPE2 4 TYPE1 3 HIGH2 2 HIGH1 1 LOW1 0 LOW2)) ±Dgð—Aµ*Bµ5Egð—@µ"Cµ@gð²$i°IkÕb¿°îkÔb¿°ÖkÔb°àkÕb¿°ÇAgð’h°@A”@AŽ@Aýó‹A“@A@Aóhð´@Aµg¹HÃ´)Igð”i°ìH I ´H I (59 TYPEP 53 IMAGPART 45 TYPEP 39 REALPART) (26 * 18 COMPLEX 11 *) () (PUTHASH (QUOTE COMPLEX) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-COMPLEX|)) |typep-evaluate-INTEGER| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) U@!Aµg¹A–A‡°÷gºH3 ´3Idgð’¿i‹”HIó„IHóhð´Jdgð‘i”JHóHJóhðNIL (66 * 40 * 27 * 11 *) () (PUTHASH (QUOTE INTEGER) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-INTEGER|)) |typep-evaluate-MOD| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) +@Aµg¹H3 ´jHóhð´Idgð”i°çHóNIL (31 * 11 *) () (PUTHASH (QUOTE MOD) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-MOD|)) |typep-evaluate-SIGNED-BYTE| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) 4@!Aµg¹H3 ´"Igð”i°ïkIkÕçºHjJÕýóhð´JHóNIL (23 * 11 *) () (PUTHASH (QUOTE SIGNED-BYTE) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-SIGNED-BYTE|)) |typep-evaluate-UNSIGNED-BYTE| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) -@Aµg¹H3 ´jHóhð´Igð”i°èkIçHóNIL (30 * 11 *) () (PUTHASH (QUOTE UNSIGNED-BYTE) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-UNSIGNED-BYTE|)) |typep-evaluate-RATIONAL| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) _@!Aµg¹A–A‡°÷gºHd3 ’¿i„Ã´3Idgð’¿i‹”HIó„IHóhð´Jdgð‘i”JHóHJóhðNIL (76 * 50 * 41 RATIO 27 * 11 *) () (PUTHASH (QUOTE RATIONAL) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-RATIONAL|)) |typep-evaluate-FLOAT| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) U@!Aµg¹A–A‡°÷gºH´3Idgð’¿i‹”HIó„IHóhð´Jdgð‘i”JHóHJóhðNIL (66 * 40 * 27 * 11 *) () (PUTHASH (QUOTE FLOAT) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-FLOAT|)) |typep-evaluate-STRING| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) ,@Aµg¹H ´Igð”i°ìH Ið(39 ARRAY-TOTAL-SIZE 18 STRINGP) (26 * 11 *) () (PUTHASH (QUOTE STRING) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-STRING|)) |typep-evaluate-SIMPLE-STRING| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) ,@Aµg¹H ´Igð”i°ìH Ið(39 ARRAY-TOTAL-SIZE 18 SIMPLE-STRING-P) (26 * 11 *) () (PUTHASH (QUOTE SIMPLE-STRING) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-SIMPLE-STRING|)) |typep-evaluate-BIT-VECTOR| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) ,@Aµg¹H ´Igð”i°ìH Ið(39 ARRAY-TOTAL-SIZE 18 BIT-VECTOR-P) (26 * 11 *) () (PUTHASH (QUOTE BIT-VECTOR) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-BIT-VECTOR|)) |typep-evaluate-SIMPLE-BIT-VECTOR| :D8 (IL:L (1 SI::%$$TYPE-ARGS 0 SI::%$$OBJECT)) ,@Aµg¹H ´Igð”i°ìH Ið(39 ARRAY-TOTAL-SIZE 18 SIMPLE-BIT-VECTOR-P) (26 * 11 *) () (PUTHASH (QUOTE SIMPLE-BIT-VECTOR) *TYPEP-HASH-TABLE* (QUOTE |typep-evaluate-SIMPLE-BIT-VECTOR|)) (IL:PUTPROPS IL:CHARACTER CMLTYPE CHARACTER) (IL:PUTPROPS IL:FIXP CMLTYPE BIGNUM) (IL:PUTPROPS IL:FLOATP CMLTYPE SINGLE-FLOAT) (IL:PUTPROPS IL:GENERAL-ARRAY CMLTYPE ARRAY) (IL:PUTPROPS IL:LISTP CMLTYPE CONS) (IL:PUTPROPS IL:LITATOM CMLTYPE SYMBOL) (IL:PUTPROPS IL:ONED-ARRAY CMLTYPE ARRAY) (IL:PUTPROPS IL:SMALLP CMLTYPE FIXNUM) (IL:PUTPROPS IL:HARRAYP CMLTYPE HASH-TABLE) (IL:PUTPROPS IL:TWOD-ARRAY CMLTYPE ARRAY) (IL:PUTPROPS SYMBOL CMLSUBTYPE-DESCRIMINATOR SYMBOL-TYPE) (IL:PUTPROPS ARRAY CMLSUBTYPE-DESCRIMINATOR ARRAY-TYPE) (IL:PUTPROPS :TYPE-EXPANDER IL:PROPTYPE IGNORE) (IL:PUTPROPS IL:TYPE-EXPANDER IL:PROPTYPE IGNORE) (IL:PUTPROPS IL:CMLTYPES IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:CMLTYPES IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS IL:CMLTYPES IL:COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1993 2024) ) NIL