/usr/lib/clisp-2.49/clx/new-clx/image.fas is in clisp-module-clx 1:2.49-8.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 | (|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 26 (REQUIRE "clx")-1|
#15Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 19 01)
("clx" |COMMON-LISP|::|REQUIRE|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|28 28 (IN-PACKAGE :XLIB)-2|
#17Y(00 00 00 00 00 00 00 00 20 01 DA 31 F6 0F 01 19 01)
("XLIB" |COMMON-LISP|::|*PACKAGE*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|30 32 (DEFMACRO REQUIRED-ARG (NAME) ...)-3|
#23Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC DD 72 4C 32 9C C5 19 01)
(|XLIB|::|REQUIRED-ARG| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|REQUIRED-ARG|
#40Y(00 00 00 00 02 00 00 00 26 03 AE DA DA 63 2D 04 01 1D 10 9F 5C 78
DD DE DF E0 B0 7B 02 7B 03 61 02 19 04 AE 2F 02 19 03)
(2. |SYSTEM|::|LIST-LENGTH-IN-BOUNDS-P| |SYSTEM|::|MACRO-CALL-ERROR|
|COMMON-LISP|::|PROGN| |COMMON-LISP|::|ERROR| "Missing parameter ~S"
|COMMON-LISP|::|QUOTE|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|SYSTEM|::|<MACRO-FORM>| |SYSTEM|::|<ENV-ARG>|) |COMMON-LISP|::|NIL| 1)
(|XLIB|::|NAME|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|34 34 (DEFVAR *IMAGE-UNIT* 32)-4|
#24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
01)
((|COMMON-LISP|::|SPECIAL| |XLIB|::|*IMAGE-UNIT*|) |XLIB|::|*IMAGE-UNIT*|
32.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|35 35 (DEFVAR *IMAGE-PAD* 32)-5|
#24Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 04 DB DC 31 5A C6 19
01)
((|COMMON-LISP|::|SPECIAL| |XLIB|::|*IMAGE-PAD*|) |XLIB|::|*IMAGE-PAD*| 32.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|36 36 (DEFVAR *IMAGE-BIT-LSB-FIRST-P* (NOT SYSTEM::*BIG-ENDIAN*))-6|
#27Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 07 DB 0E 02 59 14 31 5A
C6 19 01)
((|COMMON-LISP|::|SPECIAL| |XLIB|::|*IMAGE-BIT-LSB-FIRST-P*|)
|XLIB|::|*IMAGE-BIT-LSB-FIRST-P*| |SYSTEM|::|*BIG-ENDIAN*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|37 37 (DEFVAR *IMAGE-BYTE-LSB-FIRST-P* (NOT SYSTEM::*BIG-ENDIAN*))-7|
#27Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 07 DB 0E 02 59 14 31 5A
C6 19 01)
((|COMMON-LISP|::|SPECIAL| |XLIB|::|*IMAGE-BYTE-LSB-FIRST-P*|)
|XLIB|::|*IMAGE-BYTE-LSB-FIRST-P*| |SYSTEM|::|*BIG-ENDIAN*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|38 38 (DEFTYPE BUFFER-BYTES NIL ...)-8|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|BUFFER-BYTES| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-BUFFER-BYTES|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR|
(|COMMON-LISP|::|SIMPLE-ARRAY| (|COMMON-LISP|::|UNSIGNED-BYTE| 8.)
(|COMMON-LISP|::|*|)))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|40 40 (DEFTYPE PIXARRAY-1-ELEMENT-TYPE NIL ...)-9|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-1-ELEMENT-TYPE| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-1-ELEMENT-TYPE|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR| |COMMON-LISP|::|BIT|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|41 41 (DEFTYPE PIXARRAY-4-ELEMENT-TYPE NIL ...)-10|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-4-ELEMENT-TYPE| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-4-ELEMENT-TYPE|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR| (|COMMON-LISP|::|UNSIGNED-BYTE| 4.))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|42 42 (DEFTYPE PIXARRAY-8-ELEMENT-TYPE NIL ...)-11|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-8-ELEMENT-TYPE| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-8-ELEMENT-TYPE|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR| (|COMMON-LISP|::|UNSIGNED-BYTE| 8.))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|43 43 (DEFTYPE PIXARRAY-16-ELEMENT-TYPE NIL ...)-12|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-16-ELEMENT-TYPE| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-16-ELEMENT-TYPE|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR| (|COMMON-LISP|::|UNSIGNED-BYTE| 16.))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|44 44 (DEFTYPE PIXARRAY-24-ELEMENT-TYPE NIL ...)-13|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-24-ELEMENT-TYPE| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-24-ELEMENT-TYPE|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR| (|COMMON-LISP|::|UNSIGNED-BYTE| 24.))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|45 45 (DEFTYPE PIXARRAY-32-ELEMENT-TYPE NIL ...)-14|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-32-ELEMENT-TYPE| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-32-ELEMENT-TYPE|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR| (|COMMON-LISP|::|UNSIGNED-BYTE| 32.))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|46 46 (DEFTYPE PIXARRAY-1 NIL ...)-15|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-1| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-1|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR|
(|COMMON-LISP|::|ARRAY| |XLIB|::|PIXARRAY-1-ELEMENT-TYPE|
(|COMMON-LISP|::|*| |COMMON-LISP|::|*|)))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|47 47 (DEFTYPE PIXARRAY-4 NIL ...)-16|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-4| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-4|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR|
(|COMMON-LISP|::|ARRAY| |XLIB|::|PIXARRAY-4-ELEMENT-TYPE|
(|COMMON-LISP|::|*| |COMMON-LISP|::|*|)))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|48 48 (DEFTYPE PIXARRAY-8 NIL ...)-17|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-8| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-8|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR|
(|COMMON-LISP|::|ARRAY| |XLIB|::|PIXARRAY-8-ELEMENT-TYPE|
(|COMMON-LISP|::|*| |COMMON-LISP|::|*|)))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|49 49 (DEFTYPE PIXARRAY-16 NIL ...)-18|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-16| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-16|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR|
(|COMMON-LISP|::|ARRAY| |XLIB|::|PIXARRAY-16-ELEMENT-TYPE|
(|COMMON-LISP|::|*| |COMMON-LISP|::|*|)))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|50 50 (DEFTYPE PIXARRAY-24 NIL ...)-19|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-24| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-24|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR|
(|COMMON-LISP|::|ARRAY| |XLIB|::|PIXARRAY-24-ELEMENT-TYPE|
(|COMMON-LISP|::|*| |COMMON-LISP|::|*|)))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|51 51 (DEFTYPE PIXARRAY-32 NIL ...)-20|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY-32| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY-32|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR|
(|COMMON-LISP|::|ARRAY| |XLIB|::|PIXARRAY-32-ELEMENT-TYPE|
(|COMMON-LISP|::|*| |COMMON-LISP|::|*|)))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|52 52 (DEFTYPE PIXARRAY NIL ...)-21|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|PIXARRAY| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-PIXARRAY|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR|
(|COMMON-LISP|::|OR| |XLIB|::|PIXARRAY-1| |XLIB|::|PIXARRAY-4|
|XLIB|::|PIXARRAY-8| |XLIB|::|PIXARRAY-16| |XLIB|::|PIXARRAY-24|
|XLIB|::|PIXARRAY-32|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|53 53 (DEFTYPE BITMAP NIL ...)-22|
#24Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 32 A2 DA DD 63 2D 03 04 C5 19
01)
(|XLIB|::|BITMAP| |SYSTEM|::|DEFTYPE-EXPANDER|
#Y(#:|DEFTYPE-BITMAP|
#26Y(00 00 00 00 01 00 00 00 20 02 AD DA DA 2D 03 01 1D 03 C8 19 02 AD
2F 02 19 02)
(1. |SYSTEM|::|PROPER-LIST-LENGTH-IN-BOUNDS-P|
|SYSTEM|::|TYPE-CALL-ERROR| |XLIB|::|PIXARRAY-1|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|55 60 (DEFSTRUCT (IMAGE # # ...) (WIDTH 0 :TYPE ...) ...)-23|
#457Y(00 00 00 00 00 00 00 00 20 01 DA DB DC 38 01 72 9E 2F 03 7A DA 2F 04
DA DF 32 A3 DA AD 01 04 6B 06 E1 E2 E3 E4 E5 E6 E7 E8 E9 EA EA 6F 11
70 12 ED EE EF F0 F1 64 6E 11 18 6B 06 E1 F3 E3 F4 E5 E6 E7 E8 E9 EA
EA 6F 11 70 12 ED F5 EF F6 F1 64 6E 11 18 6B 06 E1 F7 E3 65 1E E5 65
1F E7 E8 E9 F0 F0 6F 11 70 12 ED 65 20 EF 65 21 F1 64 6E 11 18 6B 06
E1 65 22 E3 65 23 E5 65 24 E7 E8 E9 01 02 6F 11 70 12 ED 65 25 EF 65
26 F1 63 6E 11 18 7B 04 6B 27 E1 E2 E3 E4 E5 E6 E7 E8 E9 EA EA 6F 11
70 12 ED 65 28 65 29 65 2A 65 2B 63 6E 11 2C 6B 27 E1 F3 E3 F4 E5 E6
E7 E8 E9 EA EA 6F 11 70 12 ED 65 2D 65 29 65 2E 65 2B 63 6E 11 2C 6B
27 E1 F7 E3 65 1E E5 65 1F E7 E8 E9 F0 F0 6F 11 70 12 ED 65 2F 65 29
65 30 65 2B 63 6E 11 2C 6B 27 E1 65 22 E3 65 23 E5 65 24 E7 E8 E9 01
02 6F 11 70 12 ED 65 31 65 29 65 32 65 2B 65 33 6E 11 2C 7B 04 2D 08
34 16 01 65 35 31 62 65 36 31 62 65 37 2F 38 65 37 65 39 65 3A 32 A2
65 37 65 3B 32 9C 65 37 65 3C DA 32 A2 65 3D 31 62 65 3E 31 62 65 3F
2F 38 65 3F 65 39 65 40 32 A2 65 3F 65 41 32 9C 65 3F 65 3C DA 32 A2
65 42 31 62 65 43 31 62 65 44 2F 38 65 44 65 39 65 45 32 A2 65 44 65
46 32 9C 65 44 65 3C DA 32 A2 65 47 31 62 65 48 31 62 65 49 2F 38 65
49 65 39 65 4A 32 A2 65 49 65 4B 32 9C 65 49 65 3C DA 32 A2 65 4C 31
62 65 4D 31 62 65 4E 2F 38 65 4E 65 39 65 4F 32 A2 65 4E 65 50 32 9C
65 49 65 51 DA 32 A2 DA 65 52 63 2D 03 53 DA 2F 54 C5 19 01)
(|XLIB|::|IMAGE| |COMMON-LISP|::|STRUCTURE-OBJECT| |CLOS|::|CLOSCLASS|
|CLOS|::|CLASS-NAMES| |SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES|
|SYSTEM|::|DEFSTRUCT-DESCRIPTION|
|CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME| |XLIB|::|WIDTH|
:|INITARGS| (:|WIDTH|) :|TYPE| |XLIB|::|CARD16| :|ALLOCATION| :|INSTANCE|
|CLOS|::|INHERITABLE-INITER| 0. |SYSTEM|::|MAKE-CONSTANT-INITFUNCTION|
|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| |CLOS|::|INHERITABLE-DOC|
(|COMMON-LISP|::|NIL|) |CLOS|::|LOCATION| 1. |CLOS|::|READONLY|
|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
|XLIB|::|HEIGHT| (:|HEIGHT|) (|COMMON-LISP|::|NIL|) 2. |XLIB|::|DEPTH|
(:|DEPTH|) |XLIB|::|CARD8| (|COMMON-LISP|::|NIL|) 3. |XLIB|::|PLIST|
(:|PLIST|) |COMMON-LISP|::|LIST| (|COMMON-LISP|::|NIL|) 4.
|CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| (|COMMON-LISP|::|NIL|)
:|READERS| (|XLIB|::|IMAGE-WIDTH|) :|WRITERS|
|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
(|COMMON-LISP|::|NIL|) (|XLIB|::|IMAGE-HEIGHT|) (|COMMON-LISP|::|NIL|)
(|XLIB|::|IMAGE-DEPTH|) (|COMMON-LISP|::|NIL|) (|XLIB|::|IMAGE-PLIST|)
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-PLIST|))
|CLOS|::|DEFINE-STRUCTURE-CLASS|
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-WIDTH| (|XLIB|::|IMAGE|)
|XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-WIDTH|) |XLIB|::|IMAGE-WIDTH|
|SYSTEM|::|REMOVE-OLD-DEFINITIONS| |SYSTEM|::|INLINE-EXPANSION|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-WIDTH|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-WIDTH|
(|COMMON-LISP|::|THE| |XLIB|::|CARD16|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE| |SYSTEM|::|OBJECT| 1.))))
#Y(|XLIB|::|IMAGE-WIDTH|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE| 1.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
|SYSTEM|::|DEFSTRUCT-READER|
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-HEIGHT| (|XLIB|::|IMAGE|)
|XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-HEIGHT|) |XLIB|::|IMAGE-HEIGHT|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-HEIGHT|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-HEIGHT|
(|COMMON-LISP|::|THE| |XLIB|::|CARD16|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE| |SYSTEM|::|OBJECT| 2.))))
#Y(|XLIB|::|IMAGE-HEIGHT|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE| 2.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-DEPTH| (|XLIB|::|IMAGE|)
|XLIB|::|CARD8|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-DEPTH|) |XLIB|::|IMAGE-DEPTH|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-DEPTH|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-DEPTH|
(|COMMON-LISP|::|THE| |XLIB|::|CARD8|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE| |SYSTEM|::|OBJECT| 3.))))
#Y(|XLIB|::|IMAGE-DEPTH|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE| 3.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-PLIST| (|XLIB|::|IMAGE|)
|COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-PLIST|) |XLIB|::|IMAGE-PLIST|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-PLIST|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-PLIST|
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE| |SYSTEM|::|OBJECT| 4.))))
#Y(|XLIB|::|IMAGE-PLIST|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE| 4.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-PLIST|)
(|COMMON-LISP|::|LIST| |XLIB|::|IMAGE|) |COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-PLIST|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-PLIST|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| #1=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-PLIST|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-PLIST|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE| |SYSTEM|::|OBJECT| 4.
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST| |SYSTEM|::|VALUE|))))
#Y(#1# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE| 4.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|SYSTEM|::|DEFSTRUCT-WRITER| |COMMON-LISP|::|TYPE|
|SYSTEM|::|%SET-DOCUMENTATION|
|CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|62 63 (DEFUN IMAGE-NAME (IMAGE) ...)-24|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|IMAGE-NAME| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|IMAGE-NAME|
#22Y(00 00 00 00 01 00 00 00 26 02 DA AE DB 72 43 DC 38 01 32 9F 19 02)
(|XLIB|::|IMAGE| 4. :|NAME|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|64 64 (DEFUN IMAGE-X-HOT (IMAGE) ...)-25|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|IMAGE-X-HOT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|IMAGE-X-HOT|
#22Y(00 00 00 00 01 00 00 00 26 02 DA AE DB 72 43 DC 38 01 32 9F 19 02)
(|XLIB|::|IMAGE| 4. :|X-HOT|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|65 65 (DEFUN IMAGE-Y-HOT (IMAGE) ...)-26|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|IMAGE-Y-HOT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|IMAGE-Y-HOT|
#22Y(00 00 00 00 01 00 00 00 26 02 DA AE DB 72 43 DC 38 01 32 9F 19 02)
(|XLIB|::|IMAGE| 4. :|Y-HOT|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|66 66 (DEFUN IMAGE-RED-MASK (IMAGE) ...)-27|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|IMAGE-RED-MASK| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|IMAGE-RED-MASK|
#22Y(00 00 00 00 01 00 00 00 26 02 DA AE DB 72 43 DC 38 01 32 9F 19 02)
(|XLIB|::|IMAGE| 4. :|RED-MASK|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|67 67 (DEFUN IMAGE-BLUE-MASK (IMAGE) ...)-28|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|IMAGE-BLUE-MASK| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|IMAGE-BLUE-MASK|
#22Y(00 00 00 00 01 00 00 00 26 02 DA AE DB 72 43 DC 38 01 32 9F 19 02)
(|XLIB|::|IMAGE| 4. :|BLUE-MASK|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|68 68 (DEFUN IMAGE-GREEN-MASK (IMAGE) ...)-29|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|IMAGE-GREEN-MASK| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|IMAGE-GREEN-MASK|
#22Y(00 00 00 00 01 00 00 00 26 02 DA AE DB 72 43 DC 38 01 32 9F 19 02)
(|XLIB|::|IMAGE| 4. :|GREEN-MASK|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|69 70 (DEFUN (SETF IMAGE-NAME) (NEW-VALUE IMAGE) ...)-30|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C8 19 01)
(#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-NAME|)
|SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(#1=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-NAME|)
#32Y(00 00 00 00 02 00 00 00 26 03 DA AE DB 72 43 DC B0 6E 03 03 93 00
06 DA AF DB AF 32 44 A0 19 04)
(|XLIB|::|IMAGE| 4. :|NAME| |SYSTEM|::|%PUTF|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|XLIB|::|NEW-VALUE| |XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1)
#1#)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|71 72 (DEFUN (SETF IMAGE-X-HOT) (NEW-VALUE IMAGE) ...)-31|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C8 19 01)
(#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-HOT|)
|SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(#1=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-HOT|)
#32Y(00 00 00 00 02 00 00 00 26 03 DA AE DB 72 43 DC B0 6E 03 03 93 00
06 DA AF DB AF 32 44 A0 19 04)
(|XLIB|::|IMAGE| 4. :|X-HOT| |SYSTEM|::|%PUTF|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|XLIB|::|NEW-VALUE| |XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1)
#1#)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|73 74 (DEFUN (SETF IMAGE-Y-HOT) (NEW-VALUE IMAGE) ...)-32|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C8 19 01)
(#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-Y-HOT|)
|SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(#1=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Y-HOT|)
#32Y(00 00 00 00 02 00 00 00 26 03 DA AE DB 72 43 DC B0 6E 03 03 93 00
06 DA AF DB AF 32 44 A0 19 04)
(|XLIB|::|IMAGE| 4. :|Y-HOT| |SYSTEM|::|%PUTF|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|XLIB|::|NEW-VALUE| |XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1)
#1#)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|75 76 (DEFUN (SETF IMAGE-RED-MASK) (NEW-VALUE IMAGE) ...)-33|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C8 19 01)
(#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-RED-MASK|)
|SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(#1=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-RED-MASK|)
#32Y(00 00 00 00 02 00 00 00 26 03 DA AE DB 72 43 DC B0 6E 03 03 93 00
06 DA AF DB AF 32 44 A0 19 04)
(|XLIB|::|IMAGE| 4. :|RED-MASK| |SYSTEM|::|%PUTF|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|XLIB|::|NEW-VALUE| |XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1)
#1#)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|77 78 (DEFUN (SETF IMAGE-BLUE-MASK) (NEW-VALUE IMAGE) ...)-34|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C8 19 01)
(#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-BLUE-MASK|)
|SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(#1=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-BLUE-MASK|)
#32Y(00 00 00 00 02 00 00 00 26 03 DA AE DB 72 43 DC B0 6E 03 03 93 00
06 DA AF DB AF 32 44 A0 19 04)
(|XLIB|::|IMAGE| 4. :|BLUE-MASK| |SYSTEM|::|%PUTF|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|XLIB|::|NEW-VALUE| |XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1)
#1#)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|79 80 (DEFUN (SETF IMAGE-GREEN-MASK) (NEW-VALUE IMAGE) ...)-35|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C8 19 01)
(#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-GREEN-MASK|)
|SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(#1=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-GREEN-MASK|)
#32Y(00 00 00 00 02 00 00 00 26 03 DA AE DB 72 43 DC B0 6E 03 03 93 00
06 DA AF DB AF 32 44 A0 19 04)
(|XLIB|::|IMAGE| 4. :|GREEN-MASK| |SYSTEM|::|%PUTF|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|XLIB|::|NEW-VALUE| |XLIB|::|IMAGE|) |COMMON-LISP|::|NIL| 1)
#1#)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|82 93 (DEFUN PRINT-IMAGE (IMAGE STREAM DEPTH) ...)-36|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|PRINT-IMAGE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|PRINT-IMAGE|
#38Y(00 00 00 00 03 00 00 00 26 04 00 2B 02 7F 04 00 00 7F 03 00 01 AC
6D 00 01 68 01 00 68 02 01 DB 64 2D 05 02 19 05)
(#Y(|XLIB|::|PRINT-IMAGE-1|
#98Y(00 00 00 00 00 00 00 00 26 01 69 00 01 89 01 16 69 00 01 6F 01
71 51 69 00 02 38 02 31 95 DC 69 00 02 38 02 31 95 69 00 01 DD
AD DE 81 43 00 69 00 02 31 8D DF 69 00 02 38 02 31 95 69 00 01
DD AD E0 81 43 00 69 00 02 31 8D E1 69 00 02 38 02 31 95 69 00
01 DD AD E2 81 43 00 69 00 02 31 8D 19 01)
(|COMMON-LISP|::|NIL| |XLIB|::|IMAGE-NAME| " " |XLIB|::|IMAGE| 1.
"x" 2. "x" 3.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ()
|COMMON-LISP|::|NIL| 1)
:|TYPE| |SYSTEM|::|WRITE-UNREADABLE|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|XLIB|::|IMAGE| |COMMON-LISP|::|STREAM| |XLIB|::|DEPTH|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|95 95 (DEFCONSTANT *EMPTY-DATA-X* '#())-37|
#36Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 8D 66 0D DB DA 71 55 8E 13 06 DA
DC DB 2D 03 03 DA DB 32 9D C5 19 01)
(|XLIB|::|*EMPTY-DATA-X*| #1=#A((|COMMON-LISP|::|UNSIGNED-BYTE| 8.) (0.) ())
(|COMMON-LISP|::|DEFCONSTANT| |XLIB|::|*EMPTY-DATA-X*| '#1#)
|SYSTEM|::|CONSTANT-WARNING|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|97 98 (DEFCONSTANT *EMPTY-DATA-Z* '#A(BIT # ()))-38|
#36Y(00 00 00 00 00 00 00 00 20 01 DA 38 01 8D 66 0D DB DA 71 55 8E 13 06 DA
DC DB 2D 03 03 DA DB 32 9D C5 19 01)
(|XLIB|::|*EMPTY-DATA-Z*| #1=#A(|COMMON-LISP|::|BIT| (0. 0.) ())
(|COMMON-LISP|::|DEFCONSTANT| |XLIB|::|*EMPTY-DATA-Z*| '#1#)
|SYSTEM|::|CONSTANT-WARNING|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|100 113 (DEFSTRUCT (IMAGE-X # #) (FORMAT :Z-PIXMAP :TYPE ...) ...)-39|
#1819Y(00 00 00 00 00 00 00 00 20 01 00 2B 01 DA DB DC 38 01 72 9E 2F 03 5D
0B 00 00 DE DF E0 E1 E2 DA 2F 09 DA E4 32 A3 DA 68 06 00 E5 01 02 E6
6B 0D E8 E9 EA EB EC ED EE EF F0 F1 DB E9 70 18 70 19 F4 F5 F6 F7 65
1E 64 6E 11 1F 6B 0D E8 65 20 EA 65 21 EC ED EE EF F0 F1 DB 65 20 70
18 70 19 F4 65 22 F6 65 23 65 1E 64 6E 11 1F 6B 0D E8 65 24 EA 65 25
EC 65 26 EE EF F0 F7 DB 65 24 70 18 70 19 F4 65 27 F6 65 28 65 1E 64
6E 11 1F 6B 0D E8 65 29 EA 65 2A EC 65 2B EE EF F0 63 DB 65 29 70 18
70 19 F4 65 2C F6 65 2D 65 1E 63 6E 11 1F 6B 0D E8 65 2E EA 65 2F EC
65 30 EE EF F0 65 31 65 31 6F 32 70 19 F4 65 33 F6 65 34 65 1E 63 6E
11 1F 6B 0D E8 65 35 EA 65 36 EC ED EE EF F0 F1 F1 6F 32 70 19 F4 65
37 F6 65 38 65 1E 63 6E 11 1F 6B 0D E8 65 39 EA 65 3A EC 65 3B EE EF
F0 F7 F7 6F 32 70 19 F4 65 3C F6 65 3D 65 1E 63 6E 11 1F 6B 0D E8 65
3E EA 65 3F EC 65 40 EE EF F0 65 41 66 1C 70 19 F4 65 42 F6 65 43 65
1E 63 6E 11 1F 6B 0D E8 65 44 EA 65 45 EC 65 40 EE EF F0 65 46 66 1C
70 19 F4 65 47 F6 65 48 65 1E 63 6E 11 1F 6B 0D E8 65 49 EA 65 4A EC
65 4B EE EF F0 65 4C 66 1C 70 19 F4 65 4D F6 65 4E 65 1E 63 6E 11 1F
6B 0D E8 65 4F EA 65 50 EC 65 51 EE EF F0 65 52 66 1C 70 19 F4 65 53
F6 65 54 65 1E 63 6E 11 1F 6B 0D E8 65 55 EA 65 56 EC 65 57 EE EF F0
65 58 66 1C 70 19 F4 65 59 F6 65 5A 65 1E 63 6E 11 1F 6B 0D E8 65 5B
EA 65 5C EC 65 26 EE EF F0 F1 F1 6F 32 70 19 F4 65 5D F6 65 5E 65 1E
63 6E 11 1F 7B 0D 6B 5F E8 65 2E EA 65 2F EC 65 30 EE EF F0 65 31 65
31 6F 32 70 19 F4 65 60 65 61 65 62 65 63 65 64 6E 11 65 6B 5F E8 65
35 EA 65 36 EC ED EE EF F0 F1 F1 6F 32 70 19 F4 65 66 65 61 65 67 65
63 65 68 6E 11 65 6B 5F E8 65 39 EA 65 3A EC 65 3B EE EF F0 F7 F7 6F
32 70 19 F4 65 69 65 61 65 6A 65 63 65 6B 6E 11 65 6B 5F E8 65 3E EA
65 3F EC 65 40 EE EF F0 65 41 66 19 70 19 F4 65 6C 65 61 65 6D 65 63
65 6E 6E 11 65 6B 5F E8 65 44 EA 65 45 EC 65 40 EE EF F0 65 46 66 19
70 19 F4 65 6F 65 61 65 70 65 63 65 71 6E 11 65 6B 5F E8 65 49 EA 65
4A EC 65 4B EE EF F0 65 4C 66 19 70 19 F4 65 72 65 61 65 73 65 63 65
74 6E 11 65 6B 5F E8 65 4F EA 65 50 EC 65 51 EE EF F0 65 52 66 19 70
19 F4 65 75 65 61 65 76 65 63 65 77 6E 11 65 6B 5F E8 65 55 EA 65 56
EC 65 57 EE EF F0 65 58 66 19 70 19 F4 65 78 65 61 65 79 65 63 65 7A
6E 11 65 6B 5F E8 65 5B EA 65 5C EC 65 26 EE EF F0 F1 F1 6F 32 70 19
F4 65 7B 65 61 65 7C 65 63 65 7D 6E 11 65 7B 09 2D 08 7E E5 2F 7F E5
B2 6D 80 80 01 32 9C 16 06 65 80 81 31 62 E6 2F 7F E6 65 80 82 65 80
83 32 A2 E6 65 80 84 32 9C 65 80 85 31 62 65 80 86 31 62 65 80 87 2F
7F 65 80 87 65 80 82 65 80 88 32 A2 65 80 87 65 80 89 32 9C 65 80 87
65 80 8A DA 32 A2 65 80 8B 31 62 65 80 8C 31 62 65 80 8D 2F 7F 65 80
8D 65 80 82 65 80 8E 32 A2 65 80 8D 65 80 8F 32 9C 65 80 8D 65 80 8A
DA 32 A2 65 80 90 31 62 65 80 91 31 62 65 80 92 2F 7F 65 80 92 65 80
82 65 80 93 32 A2 65 80 92 65 80 94 32 9C 65 80 92 65 80 8A DA 32 A2
65 80 95 31 62 65 80 96 31 62 65 80 97 2F 7F 65 80 97 65 80 82 65 80
98 32 A2 65 80 97 65 80 99 32 9C 65 80 97 65 80 8A DA 32 A2 65 80 9A
31 62 65 80 9B 31 62 65 80 9C 2F 7F 65 80 9C 65 80 82 65 80 9D 32 A2
65 80 9C 65 80 9E 32 9C 65 80 9C 65 80 8A DA 32 A2 65 80 9F 31 62 65
80 A0 31 62 65 80 A1 2F 7F 65 80 A1 65 80 82 65 80 A2 32 A2 65 80 A1
65 80 A3 32 9C 65 80 A1 65 80 8A DA 32 A2 65 80 A4 31 62 65 80 A5 31
62 65 80 A6 2F 7F 65 80 A6 65 80 82 65 80 A7 32 A2 65 80 A6 65 80 A8
32 9C 65 80 A6 65 80 8A DA 32 A2 65 80 A9 31 62 65 80 AA 31 62 65 80
AB 2F 7F 65 80 AB 65 80 82 65 80 AC 32 A2 65 80 AB 65 80 AD 32 9C 65
80 AB 65 80 8A DA 32 A2 65 80 AE 31 62 65 80 AF 31 62 65 80 B0 2F 7F
65 80 B0 65 80 82 65 80 B1 32 A2 65 80 B0 65 80 B2 32 9C 65 80 B0 65
80 8A DA 32 A2 65 80 B3 31 62 65 80 B4 31 62 65 80 B5 2F 7F 65 80 B5
65 80 82 65 80 B6 32 A2 65 80 B5 65 80 B7 32 9C 65 80 B5 65 80 8A DA
32 A2 65 80 B8 31 62 65 80 B9 31 62 65 80 BA 2F 7F 65 80 BA 65 80 82
65 80 BB 32 A2 65 80 BA 65 80 BC 32 9C 65 80 BA 65 80 8A DA 32 A2 65
80 BD 31 62 65 80 BE 31 62 65 80 BF 2F 7F 65 80 BF 65 80 82 65 80 C0
32 A2 65 80 BF 65 80 C1 32 9C 65 80 BF 65 80 8A DA 32 A2 65 80 C2 31
62 65 80 C3 31 62 65 80 C4 2F 7F 65 80 C4 65 80 82 65 80 C5 32 A2 65
80 C4 65 80 C6 32 9C 65 80 C4 65 80 8A DA 32 A2 65 80 C7 31 62 65 80
C8 31 62 65 80 C9 2F 7F 65 80 C9 65 80 82 65 80 CA 32 A2 65 80 C9 65
80 CB 32 9C 65 80 97 65 80 CC DA 32 A2 65 80 CD 31 62 65 80 CE 31 62
65 80 CF 2F 7F 65 80 CF 65 80 82 65 80 D0 32 A2 65 80 CF 65 80 D1 32
9C 65 80 9C 65 80 CC DA 32 A2 65 80 D2 31 62 65 80 D3 31 62 65 80 D4
2F 7F 65 80 D4 65 80 82 65 80 D5 32 A2 65 80 D4 65 80 D6 32 9C 65 80
A1 65 80 CC DA 32 A2 65 80 D7 31 62 65 80 D8 31 62 65 80 D9 2F 7F 65
80 D9 65 80 82 65 80 DA 32 A2 65 80 D9 65 80 DB 32 9C 65 80 A6 65 80
CC DA 32 A2 65 80 DC 31 62 65 80 DD 31 62 65 80 DE 2F 7F 65 80 DE 65
80 82 65 80 DF 32 A2 65 80 DE 65 80 E0 32 9C 65 80 AB 65 80 CC DA 32
A2 65 80 E1 31 62 65 80 E2 31 62 65 80 E3 2F 7F 65 80 E3 65 80 82 65
80 E4 32 A2 65 80 E3 65 80 E5 32 9C 65 80 B0 65 80 CC DA 32 A2 65 80
E6 31 62 65 80 E7 31 62 65 80 E8 2F 7F 65 80 E8 65 80 82 65 80 E9 32
A2 65 80 E8 65 80 EA 32 9C 65 80 B5 65 80 CC DA 32 A2 65 80 EB 31 62
65 80 EC 31 62 65 80 ED 2F 7F 65 80 ED 65 80 82 65 80 EE 32 A2 65 80
ED 65 80 EF 32 9C 65 80 BA 65 80 CC DA 32 A2 65 80 F0 31 62 65 80 F1
31 62 65 80 F2 2F 7F 65 80 F2 65 80 82 65 80 F3 32 A2 65 80 F2 65 80
F4 32 9C 65 80 BF 65 80 CC DA 32 A2 65 80 F5 31 62 65 80 F6 31 62 65
80 F7 2F 7F 65 80 F7 65 80 82 65 80 F8 32 A2 65 80 F7 65 80 F9 32 9C
65 80 C4 65 80 CC DA 32 A2 DA 65 80 FA 63 2D 03 80 FB DA 2F 80 FC C5
19 01)
(|XLIB|::|IMAGE-X| |XLIB|::|IMAGE| |CLOS|::|CLOSCLASS| |CLOS|::|CLASS-NAMES|
#Y(|XLIB|::|DEFAULT-BIT-LSB-FIRST-P|
#14Y(00 00 00 00 00 00 00 00 26 01 0E 00 19 01)
(|XLIB|::|*IMAGE-BIT-LSB-FIRST-P*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
|COMMON-LISP|::|NIL| 1)
#Y(|XLIB|::|DEFAULT-BYTE-LSB-FIRST-P|
#14Y(00 00 00 00 00 00 00 00 26 01 0E 00 19 01)
(|XLIB|::|*IMAGE-BYTE-LSB-FIRST-P*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
|COMMON-LISP|::|NIL| 1)
#Y(|XLIB|::|DEFAULT-DATA| #13Y(00 00 00 00 00 00 00 00 26 01 C5 19 01)
(#.|XLIB|::|*EMPTY-DATA-X*|) |COMMON-LISP|::|NIL| ()
|COMMON-LISP|::|NIL| 1)
#Y(|XLIB|::|DEFAULT-UNIT| #14Y(00 00 00 00 00 00 00 00 26 01 0E 00 19 01)
(|XLIB|::|*IMAGE-UNIT*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
|COMMON-LISP|::|NIL| 1)
#Y(|XLIB|::|DEFAULT-PAD| #14Y(00 00 00 00 00 00 00 00 26 01 0E 00 19 01)
(|XLIB|::|*IMAGE-PAD*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
|COMMON-LISP|::|NIL| 1)
|SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES|
|SYSTEM|::|DEFSTRUCT-DESCRIPTION| |XLIB|::|MAKE-IMAGE-X|
|XLIB|::|IMAGE-X-P| |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
|XLIB|::|WIDTH| :|INITARGS| (:|WIDTH|) :|TYPE| |XLIB|::|CARD16|
:|ALLOCATION| :|INSTANCE| |CLOS|::|INHERITABLE-INITER| 0.
|SYSTEM|::|FIND-STRUCTURE-CLASS-SLOT-INITFUNCTION|
|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| |CLOS|::|INHERITABLE-DOC|
(|COMMON-LISP|::|NIL|) |CLOS|::|LOCATION| 1. |CLOS|::|READONLY|
|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
|XLIB|::|HEIGHT| (:|HEIGHT|) (|COMMON-LISP|::|NIL|) 2. |XLIB|::|DEPTH|
(:|DEPTH|) |XLIB|::|CARD8| (|COMMON-LISP|::|NIL|) 3. |XLIB|::|PLIST|
(:|PLIST|) |COMMON-LISP|::|LIST| (|COMMON-LISP|::|NIL|) 4.
|COMMON-LISP|::|FORMAT| (:|FORMAT|)
#1=(|COMMON-LISP|::|MEMBER| :|BITMAP| :|XY-PIXMAP| :|Z-PIXMAP|) :|Z-PIXMAP|
|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| (|COMMON-LISP|::|NIL|) 5.
|XLIB|::|BYTES-PER-LINE| (:|BYTES-PER-LINE|) (|COMMON-LISP|::|NIL|) 6.
|XLIB|::|BITS-PER-PIXEL| (:|BITS-PER-PIXEL|)
#2=(|COMMON-LISP|::|MEMBER| 1. 4. 8. 16. 24. 32.) (|COMMON-LISP|::|NIL|) 7.
|XLIB|::|BIT-LSB-FIRST-P| (:|BIT-LSB-FIRST-P|) |COMMON-LISP|::|BOOLEAN|
|XLIB|::|*IMAGE-BIT-LSB-FIRST-P*| (|COMMON-LISP|::|NIL|) 8.
|XLIB|::|BYTE-LSB-FIRST-P| (:|BYTE-LSB-FIRST-P|)
|XLIB|::|*IMAGE-BYTE-LSB-FIRST-P*| (|COMMON-LISP|::|NIL|) 9. |XLIB|::|DATA|
(:|DATA|) #3=(|COMMON-LISP|::|ARRAY| |XLIB|::|CARD8| (|COMMON-LISP|::|*|))
|XLIB|::|*EMPTY-DATA-X*| (|COMMON-LISP|::|NIL|) 10. |XLIB|::|UNIT|
(:|UNIT|) #4=(|COMMON-LISP|::|MEMBER| 8. 16. 32.) |XLIB|::|*IMAGE-UNIT*|
(|COMMON-LISP|::|NIL|) 11. |XLIB|::|PAD| (:|PAD|)
#5=(|COMMON-LISP|::|MEMBER| 8. 16. 32.) |XLIB|::|*IMAGE-PAD*|
(|COMMON-LISP|::|NIL|) 12. |XLIB|::|LEFT-PAD| (:|LEFT-PAD|)
(|COMMON-LISP|::|NIL|) 13. |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>|
(|COMMON-LISP|::|NIL|) :|READERS| (|XLIB|::|IMAGE-X-FORMAT|) :|WRITERS|
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-FORMAT|))
|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
(|COMMON-LISP|::|NIL|) (|XLIB|::|IMAGE-X-BYTES-PER-LINE|)
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BYTES-PER-LINE|))
(|COMMON-LISP|::|NIL|) (|XLIB|::|IMAGE-X-BITS-PER-PIXEL|)
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BITS-PER-PIXEL|))
(|COMMON-LISP|::|NIL|) (|XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|)
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|))
(|COMMON-LISP|::|NIL|) (|XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|)
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|))
(|COMMON-LISP|::|NIL|) (|XLIB|::|IMAGE-X-DATA|)
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-DATA|)) (|COMMON-LISP|::|NIL|)
(|XLIB|::|IMAGE-X-UNIT|) ((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-UNIT|))
(|COMMON-LISP|::|NIL|) (|XLIB|::|IMAGE-X-PAD|)
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-PAD|)) (|COMMON-LISP|::|NIL|)
(|XLIB|::|IMAGE-X-LEFT-PAD|)
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-LEFT-PAD|))
|CLOS|::|DEFINE-STRUCTURE-CLASS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|MAKE-IMAGE-X|
#178Y(00 00 00 00 00 00 00 00 A6 1B 0D 00 01 00 3B 0D 03 D3 09 0D 3B 0C
03 D3 09 0C 3B 0B 03 D4 09 0B 3D 0A 3B 09 03 D5 09 09 3B 08 03 D3
09 08 3B 07 02 D4 FF 3B 06 03 0E 11 FE 3B 05 03 0E 12 FD 3B 04 02
D8 FC 3B 03 03 0E 14 FB 3B 02 03 0E 15 FA 3B 01 02 D3 F9 69 00 01
F0 72 45 F1 AD E9 BD 32 44 F1 AD F2 BC 32 44 F1 AD F3 BB 32 44 F1
AD F4 BA 32 44 F1 AD F5 B9 32 44 F1 AD F6 B8 32 44 F1 AD F7 B7 32
44 F1 AD 65 1E B6 32 44 F1 AD 65 1F B5 32 44 F1 AD 65 20 B4 32 44
F1 AD 65 21 B3 32 44 F1 AD 65 22 B2 32 44 F1 AD 65 23 B1 32 44 15
19 0E)
(|COMMON-LISP|::|NIL| :|WIDTH| :|HEIGHT| :|DEPTH| :|PLIST| :|FORMAT|
:|BYTES-PER-LINE| :|BITS-PER-PIXEL| :|BIT-LSB-FIRST-P|
:|BYTE-LSB-FIRST-P| :|DATA| :|UNIT| :|PAD| :|LEFT-PAD| 0. 1.
:|Z-PIXMAP| |XLIB|::|*IMAGE-BIT-LSB-FIRST-P*|
|XLIB|::|*IMAGE-BYTE-LSB-FIRST-P*| #.|XLIB|::|*EMPTY-DATA-X*|
|XLIB|::|*IMAGE-UNIT*| |XLIB|::|*IMAGE-PAD*| 14. |XLIB|::|IMAGE-X| 2.
3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|&KEY| (#:|WIDTH| 0.) (#:|HEIGHT| 0.) (#:|DEPTH| 1.)
(#:|PLIST| |COMMON-LISP|::|NIL|) (#:|FORMAT| :|Z-PIXMAP|)
(#:|BYTES-PER-LINE| 0.) (#:|BITS-PER-PIXEL| 1.)
(#:|BIT-LSB-FIRST-P| |XLIB|::|*IMAGE-BIT-LSB-FIRST-P*|)
(#:|BYTE-LSB-FIRST-P| |XLIB|::|*IMAGE-BYTE-LSB-FIRST-P*|)
(#:|DATA| |XLIB|::|*EMPTY-DATA-X*|) (#:|UNIT| |XLIB|::|*IMAGE-UNIT*|)
(#:|PAD| |XLIB|::|*IMAGE-PAD*|) (#:|LEFT-PAD| 0.))
|COMMON-LISP|::|NIL| 1)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-P|) |SYSTEM|::|INLINE-EXPANSION|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-P|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-P|
(|SYSTEM|::|%STRUCTURE-TYPE-P| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT|)))
#Y(|XLIB|::|IMAGE-X-P|
#16Y(00 00 00 00 01 00 00 00 20 02 DA AE 32 47 19 02)
(|XLIB|::|IMAGE-X|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-WIDTH| (|XLIB|::|IMAGE-X|)
|XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-WIDTH|) |XLIB|::|IMAGE-X-WIDTH|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-WIDTH|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-WIDTH|
(|COMMON-LISP|::|THE| |XLIB|::|CARD16|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 1.))))
#Y(|XLIB|::|IMAGE-X-WIDTH|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 1.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
|SYSTEM|::|DEFSTRUCT-READER|
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-HEIGHT| (|XLIB|::|IMAGE-X|)
|XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-HEIGHT|) |XLIB|::|IMAGE-X-HEIGHT|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-HEIGHT|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-HEIGHT|
(|COMMON-LISP|::|THE| |XLIB|::|CARD16|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 2.))))
#Y(|XLIB|::|IMAGE-X-HEIGHT|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 2.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-DEPTH| (|XLIB|::|IMAGE-X|)
|XLIB|::|CARD8|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-DEPTH|) |XLIB|::|IMAGE-X-DEPTH|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-DEPTH|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-DEPTH|
(|COMMON-LISP|::|THE| |XLIB|::|CARD8|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 3.))))
#Y(|XLIB|::|IMAGE-X-DEPTH|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 3.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-PLIST| (|XLIB|::|IMAGE-X|)
|COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-PLIST|) |XLIB|::|IMAGE-X-PLIST|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-PLIST|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-PLIST|
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 4.))))
#Y(|XLIB|::|IMAGE-X-PLIST|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 4.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-FORMAT| (|XLIB|::|IMAGE-X|)
#1#)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-FORMAT|) |XLIB|::|IMAGE-X-FORMAT|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-FORMAT|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-FORMAT|
(|COMMON-LISP|::|THE| #1#
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 5.))))
#Y(|XLIB|::|IMAGE-X-FORMAT|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 5.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-BYTES-PER-LINE|
(|XLIB|::|IMAGE-X|) |XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-BYTES-PER-LINE|)
|XLIB|::|IMAGE-X-BYTES-PER-LINE|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-BYTES-PER-LINE|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-BYTES-PER-LINE|
(|COMMON-LISP|::|THE| |XLIB|::|CARD16|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 6.))))
#Y(|XLIB|::|IMAGE-X-BYTES-PER-LINE|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 6.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-BITS-PER-PIXEL|
(|XLIB|::|IMAGE-X|) #2#)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-BITS-PER-PIXEL|)
|XLIB|::|IMAGE-X-BITS-PER-PIXEL|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-BITS-PER-PIXEL|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-BITS-PER-PIXEL|
(|COMMON-LISP|::|THE| #2#
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 7.))))
#Y(|XLIB|::|IMAGE-X-BITS-PER-PIXEL|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 7.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|
(|XLIB|::|IMAGE-X|) |COMMON-LISP|::|BOOLEAN|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|)
|XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|
(|COMMON-LISP|::|THE| |COMMON-LISP|::|BOOLEAN|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 8.))))
#Y(|XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 8.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|
(|XLIB|::|IMAGE-X|) |COMMON-LISP|::|BOOLEAN|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|)
|XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|
(|COMMON-LISP|::|THE| |COMMON-LISP|::|BOOLEAN|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 9.))))
#Y(|XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 9.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-DATA| (|XLIB|::|IMAGE-X|) #3#)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-DATA|) |XLIB|::|IMAGE-X-DATA|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-DATA|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-DATA|
(|COMMON-LISP|::|THE| #3#
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT|
10.))))
#Y(|XLIB|::|IMAGE-X-DATA|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 10.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-UNIT| (|XLIB|::|IMAGE-X|) #4#)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-UNIT|) |XLIB|::|IMAGE-X-UNIT|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-UNIT|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-UNIT|
(|COMMON-LISP|::|THE| #4#
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT|
11.))))
#Y(|XLIB|::|IMAGE-X-UNIT|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 11.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-PAD| (|XLIB|::|IMAGE-X|) #5#)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-PAD|) |XLIB|::|IMAGE-X-PAD|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-PAD|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-PAD|
(|COMMON-LISP|::|THE| #5#
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT|
12.))))
#Y(|XLIB|::|IMAGE-X-PAD|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 12.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-X-LEFT-PAD| (|XLIB|::|IMAGE-X|)
|XLIB|::|CARD8|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-X-LEFT-PAD|)
|XLIB|::|IMAGE-X-LEFT-PAD|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-X-LEFT-PAD|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-LEFT-PAD|
(|COMMON-LISP|::|THE| |XLIB|::|CARD8|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT|
13.))))
#Y(|XLIB|::|IMAGE-X-LEFT-PAD|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-X| 13.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-PLIST|)
(|COMMON-LISP|::|LIST| |XLIB|::|IMAGE-X|) |COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-PLIST|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-PLIST|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#6=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-PLIST|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-PLIST|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 4.
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST| . #7=(|SYSTEM|::|VALUE|)))))
#Y(#6# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 4.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|SYSTEM|::|DEFSTRUCT-WRITER|
(|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-FORMAT|)
(#1# |XLIB|::|IMAGE-X|) #1#)
(|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-FORMAT|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-FORMAT|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#8=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-FORMAT|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-FORMAT|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 5.
(|COMMON-LISP|::|THE| #1# . #7#))))
#Y(#8# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 5.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP|::|FUNCTION|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BYTES-PER-LINE|)
(|XLIB|::|CARD16| |XLIB|::|IMAGE-X|) |XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BYTES-PER-LINE|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-BYTES-PER-LINE|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#9=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BYTES-PER-LINE|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-BYTES-PER-LINE|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 6.
(|COMMON-LISP|::|THE| |XLIB|::|CARD16| . #7#))))
#Y(#9# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 6.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP|::|FUNCTION|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BITS-PER-PIXEL|)
(#2# |XLIB|::|IMAGE-X|) #2#)
(|COMMON-LISP|::|INLINE|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BITS-PER-PIXEL|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-BITS-PER-PIXEL|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#10=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BITS-PER-PIXEL|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-BITS-PER-PIXEL|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 7.
(|COMMON-LISP|::|THE| #2# . #7#))))
#Y(#10# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 7.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP|::|FUNCTION|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|)
(|COMMON-LISP|::|BOOLEAN| |XLIB|::|IMAGE-X|) |COMMON-LISP|::|BOOLEAN|)
(|COMMON-LISP|::|INLINE|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#11=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-BIT-LSB-FIRST-P|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 8.
(|COMMON-LISP|::|THE| |COMMON-LISP|::|BOOLEAN| . #7#))))
#Y(#11# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 8.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP|::|FUNCTION|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|)
(|COMMON-LISP|::|BOOLEAN| |XLIB|::|IMAGE-X|) |COMMON-LISP|::|BOOLEAN|)
(|COMMON-LISP|::|INLINE|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#12=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-BYTE-LSB-FIRST-P|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 9.
(|COMMON-LISP|::|THE| |COMMON-LISP|::|BOOLEAN| . #7#))))
#Y(#12# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 9.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-DATA|)
(#3# |XLIB|::|IMAGE-X|) #3#)
(|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-DATA|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-DATA|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#13=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-DATA|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-DATA|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 10.
(|COMMON-LISP|::|THE| #3# . #7#))))
#Y(#13# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 10.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-UNIT|)
(#4# |XLIB|::|IMAGE-X|) #4#)
(|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-UNIT|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-UNIT|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#14=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-UNIT|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-UNIT|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 11.
(|COMMON-LISP|::|THE| #4# . #7#))))
#Y(#14# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 11.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-PAD|)
(#5# |XLIB|::|IMAGE-X|) #5#)
(|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-PAD|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-PAD|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| #15=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-PAD|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-PAD|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 12.
(|COMMON-LISP|::|THE| #5# . #7#))))
#Y(#15# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 12.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP|::|FUNCTION|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-LEFT-PAD|)
(|XLIB|::|CARD8| |XLIB|::|IMAGE-X|) |XLIB|::|CARD8|)
(|COMMON-LISP|::|INLINE|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-LEFT-PAD|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-LEFT-PAD|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#16=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-X-LEFT-PAD|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-X-LEFT-PAD|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-X| |SYSTEM|::|OBJECT| 13.
(|COMMON-LISP|::|THE| |XLIB|::|CARD8| . #7#))))
#Y(#16# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-X| 13.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|
|CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|113 120 (DEFSTRUCT (IMAGE-XY # #) (BITMAP-LIST NIL :TYPE ...))-40|
#509Y(00 00 00 00 00 00 00 00 20 01 00 2B 01 DA DB DC 38 01 72 9E 2F 03 5D
0B 00 00 DA 2F 04 DA DF 32 A3 DA 68 01 00 E0 01 02 E1 6B 08 E3 E4 E5
E6 E7 E8 E9 EA EB EC DB E4 70 13 70 14 EF F0 F1 F2 F3 64 6E 11 1A 6B
08 E3 F5 E5 F6 E7 E8 E9 EA EB EC DB F5 70 13 70 14 EF F7 F1 65 1E F3
64 6E 11 1A 6B 08 E3 65 1F E5 65 20 E7 65 21 E9 EA EB F2 DB 65 1F 70
13 70 14 EF 65 22 F1 65 23 F3 64 6E 11 1A 6B 08 E3 65 24 E5 65 25 E7
65 26 E9 EA EB 63 DB 65 24 70 13 70 14 EF 65 27 F1 65 28 F3 63 6E 11
1A 6B 08 E3 65 29 E5 65 2A E7 65 26 E9 EA EB 01 02 6F 2B 70 14 EF 65
2C F1 65 2D F3 63 6E 11 1A 7B 05 6B 2E E3 65 29 E5 65 2A E7 65 26 E9
EA EB 01 02 6F 2B 70 14 EF 65 2F 65 30 65 31 65 32 65 33 6E 11 34 7B
01 2D 08 35 E0 2F 36 E0 AD 6D 37 01 32 9C 16 01 65 38 31 62 E1 2F 36
E1 65 39 65 3A 32 A2 E1 65 3B 32 9C 65 3C 31 62 65 3D 31 62 65 3E 2F
36 65 3E 65 39 65 3F 32 A2 65 3E 65 40 32 9C 65 3E 65 41 DA 32 A2 65
42 31 62 65 43 31 62 65 44 2F 36 65 44 65 39 65 45 32 A2 65 44 65 46
32 9C 65 44 65 41 DA 32 A2 65 47 31 62 65 48 31 62 65 49 2F 36 65 49
65 39 65 4A 32 A2 65 49 65 4B 32 9C 65 49 65 41 DA 32 A2 65 4C 31 62
65 4D 31 62 65 4E 2F 36 65 4E 65 39 65 4F 32 A2 65 4E 65 50 32 9C 65
4E 65 41 DA 32 A2 65 51 31 62 65 52 31 62 65 53 2F 36 65 53 65 39 65
54 32 A2 65 53 65 55 32 9C 65 53 65 41 DA 32 A2 65 56 31 62 65 57 31
62 65 58 2F 36 65 58 65 39 65 59 32 A2 65 58 65 5A 32 9C 65 4E 65 5B
DA 32 A2 65 5C 31 62 65 5D 31 62 65 5E 2F 36 65 5E 65 39 65 5F 32 A2
65 5E 65 60 32 9C 65 53 65 5B DA 32 A2 DA 65 61 63 2D 03 62 DA 2F 63
C5 19 01)
(|XLIB|::|IMAGE-XY| |XLIB|::|IMAGE| |CLOS|::|CLOSCLASS|
|CLOS|::|CLASS-NAMES| |SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES|
|SYSTEM|::|DEFSTRUCT-DESCRIPTION| |XLIB|::|MAKE-IMAGE-XY|
|XLIB|::|IMAGE-XY-P| |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
:|NAME| |XLIB|::|WIDTH| :|INITARGS| (:|WIDTH|) :|TYPE| |XLIB|::|CARD16|
:|ALLOCATION| :|INSTANCE| |CLOS|::|INHERITABLE-INITER| 0.
|SYSTEM|::|FIND-STRUCTURE-CLASS-SLOT-INITFUNCTION|
|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| |CLOS|::|INHERITABLE-DOC|
(|COMMON-LISP|::|NIL|) |CLOS|::|LOCATION| 1. |CLOS|::|READONLY|
|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
|XLIB|::|HEIGHT| (:|HEIGHT|) (|COMMON-LISP|::|NIL|) 2. |XLIB|::|DEPTH|
(:|DEPTH|) |XLIB|::|CARD8| (|COMMON-LISP|::|NIL|) 3. |XLIB|::|PLIST|
(:|PLIST|) |COMMON-LISP|::|LIST| (|COMMON-LISP|::|NIL|) 4.
|XLIB|::|BITMAP-LIST| (:|BITMAP-LIST|)
|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| (|COMMON-LISP|::|NIL|) 5.
|CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>| (|COMMON-LISP|::|NIL|)
:|READERS| (|XLIB|::|IMAGE-XY-BITMAP-LIST|) :|WRITERS|
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-XY-BITMAP-LIST|))
|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
|CLOS|::|DEFINE-STRUCTURE-CLASS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|MAKE-IMAGE-XY|
#72Y(00 00 00 00 00 00 00 00 A6 1B 05 00 01 00 3B 05 02 CB FD 3B 04 02
CB FC 3B 03 02 CC FB 3D 02 3D 01 69 00 01 E2 72 45 E3 AD E1 B5 32
44 E3 AD E4 B4 32 44 E3 AD E5 B3 32 44 E3 AD E6 B2 32 44 E3 AD E7
B1 32 44 15 19 06)
(|COMMON-LISP|::|NIL| :|WIDTH| :|HEIGHT| :|DEPTH| :|PLIST|
:|BITMAP-LIST| 0. 1. 6. |XLIB|::|IMAGE-XY| 2. 3. 4. 5.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|&KEY| (#:|WIDTH| 0.) (#:|HEIGHT| 0.) (#:|DEPTH| 1.)
(#:|PLIST| |COMMON-LISP|::|NIL|)
(#:|BITMAP-LIST| |COMMON-LISP|::|NIL|))
|COMMON-LISP|::|NIL| 1)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-XY-P|) |SYSTEM|::|INLINE-EXPANSION|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-XY-P|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-XY-P|
(|SYSTEM|::|%STRUCTURE-TYPE-P| '|XLIB|::|IMAGE-XY| |SYSTEM|::|OBJECT|)))
#Y(|XLIB|::|IMAGE-XY-P|
#16Y(00 00 00 00 01 00 00 00 20 02 DA AE 32 47 19 02)
(|XLIB|::|IMAGE-XY|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-XY-WIDTH| (|XLIB|::|IMAGE-XY|)
|XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-XY-WIDTH|) |XLIB|::|IMAGE-XY-WIDTH|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-XY-WIDTH|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-XY-WIDTH|
(|COMMON-LISP|::|THE| |XLIB|::|CARD16|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-XY| |SYSTEM|::|OBJECT|
1.))))
#Y(|XLIB|::|IMAGE-XY-WIDTH|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-XY| 1.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
|SYSTEM|::|DEFSTRUCT-READER|
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-XY-HEIGHT| (|XLIB|::|IMAGE-XY|)
|XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-XY-HEIGHT|)
|XLIB|::|IMAGE-XY-HEIGHT|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-XY-HEIGHT|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-XY-HEIGHT|
(|COMMON-LISP|::|THE| |XLIB|::|CARD16|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-XY| |SYSTEM|::|OBJECT|
2.))))
#Y(|XLIB|::|IMAGE-XY-HEIGHT|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-XY| 2.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-XY-DEPTH| (|XLIB|::|IMAGE-XY|)
|XLIB|::|CARD8|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-XY-DEPTH|) |XLIB|::|IMAGE-XY-DEPTH|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-XY-DEPTH|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-XY-DEPTH|
(|COMMON-LISP|::|THE| |XLIB|::|CARD8|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-XY| |SYSTEM|::|OBJECT|
3.))))
#Y(|XLIB|::|IMAGE-XY-DEPTH|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-XY| 3.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-XY-PLIST| (|XLIB|::|IMAGE-XY|)
|COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-XY-PLIST|) |XLIB|::|IMAGE-XY-PLIST|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-XY-PLIST|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-XY-PLIST|
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-XY| |SYSTEM|::|OBJECT|
4.))))
#Y(|XLIB|::|IMAGE-XY-PLIST|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-XY| 4.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-XY-BITMAP-LIST|
(|XLIB|::|IMAGE-XY|) |COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-XY-BITMAP-LIST|)
|XLIB|::|IMAGE-XY-BITMAP-LIST|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-XY-BITMAP-LIST|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-XY-BITMAP-LIST|
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-XY| |SYSTEM|::|OBJECT|
5.))))
#Y(|XLIB|::|IMAGE-XY-BITMAP-LIST|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-XY| 5.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-XY-PLIST|)
(|COMMON-LISP|::|LIST| |XLIB|::|IMAGE-XY|) |COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-XY-PLIST|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-XY-PLIST|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#1=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-XY-PLIST|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-XY-PLIST|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-XY| |SYSTEM|::|OBJECT| 4.
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST| . #2=(|SYSTEM|::|VALUE|)))))
#Y(#1# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-XY| 4.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|SYSTEM|::|DEFSTRUCT-WRITER|
(|COMMON-LISP|::|FUNCTION|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-XY-BITMAP-LIST|)
(|COMMON-LISP|::|LIST| |XLIB|::|IMAGE-XY|) |COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-XY-BITMAP-LIST|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-XY-BITMAP-LIST|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#3=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-XY-BITMAP-LIST|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-XY-BITMAP-LIST|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-XY| |SYSTEM|::|OBJECT| 5.
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST| . #2#))))
#Y(#3# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-XY| 5.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|
|CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|120 128 (DEFSTRUCT (IMAGE-Z # #) (BITS-PER-PIXEL 1 :TYPE ...) ...)-41|
#640Y(00 00 00 00 00 00 00 00 20 01 00 2B 01 DA DB DC 38 01 72 9E 2F 03 5D
0B 00 00 DE DA 2F 05 DA E0 32 A3 DA 68 02 00 E1 01 02 E2 6B 09 E4 E5
E6 E7 E8 E9 EA EB EC ED DB E5 70 14 70 15 F0 F1 F2 F3 F4 64 6E 11 1B
6B 09 E4 F6 E6 F7 E8 E9 EA EB EC ED DB F6 70 14 70 15 F0 65 1E F2 65
1F F4 64 6E 11 1B 6B 09 E4 65 20 E6 65 21 E8 65 22 EA EB EC F3 DB 65
20 70 14 70 15 F0 65 23 F2 65 24 F4 64 6E 11 1B 6B 09 E4 65 25 E6 65
26 E8 65 27 EA EB EC 63 DB 65 25 70 14 70 15 F0 65 28 F2 65 29 F4 63
6E 11 1B 6B 09 E4 65 2A E6 65 2B E8 65 2C EA EB EC F3 F3 6F 2D 70 15
F0 65 2E F2 65 2F F4 63 6E 11 1B 6B 09 E4 65 30 E6 65 31 E8 65 30 EA
EB EC 65 32 C2 70 15 F0 65 33 F2 65 34 F4 63 6E 11 1B 7B 06 6B 35 E4
65 2A E6 65 2B E8 65 2C EA EB EC F3 F3 6F 2D 70 15 F0 65 36 65 37 65
38 65 39 65 3A 6E 11 3B 6B 35 E4 65 30 E6 65 31 E8 65 30 EA EB EC 65
32 BF 70 15 F0 65 3C 65 37 65 3D 65 39 65 3E 6E 11 3B 7B 02 2D 08 3F
E1 2F 40 E1 AE 6D 41 01 32 9C 16 02 65 42 31 62 E2 2F 40 E2 65 43 65
44 32 A2 E2 65 45 32 9C 65 46 31 62 65 47 31 62 65 48 2F 40 65 48 65
43 65 49 32 A2 65 48 65 4A 32 9C 65 48 65 4B DA 32 A2 65 4C 31 62 65
4D 31 62 65 4E 2F 40 65 4E 65 43 65 4F 32 A2 65 4E 65 50 32 9C 65 4E
65 4B DA 32 A2 65 51 31 62 65 52 31 62 65 53 2F 40 65 53 65 43 65 54
32 A2 65 53 65 55 32 9C 65 53 65 4B DA 32 A2 65 56 31 62 65 57 31 62
65 58 2F 40 65 58 65 43 65 59 32 A2 65 58 65 5A 32 9C 65 58 65 4B DA
32 A2 65 5B 31 62 65 5C 31 62 65 5D 2F 40 65 5D 65 43 65 5E 32 A2 65
5D 65 5F 32 9C 65 5D 65 4B DA 32 A2 65 60 31 62 65 61 31 62 65 62 2F
40 65 62 65 43 65 63 32 A2 65 62 65 64 32 9C 65 62 65 4B DA 32 A2 65
65 31 62 65 66 31 62 65 67 2F 40 65 67 65 43 65 68 32 A2 65 67 65 69
32 9C 65 58 65 6A DA 32 A2 65 6B 31 62 65 6C 31 62 65 6D 2F 40 65 6D
65 43 65 6E 32 A2 65 6D 65 6F 32 9C 65 5D 65 6A DA 32 A2 65 70 31 62
65 71 31 62 65 72 2F 40 65 72 65 43 65 73 32 A2 65 72 65 74 32 9C 65
62 65 6A DA 32 A2 DA 65 75 63 2D 03 76 DA 2F 77 C5 19 01)
(|XLIB|::|IMAGE-Z| |XLIB|::|IMAGE| |CLOS|::|CLOSCLASS| |CLOS|::|CLASS-NAMES|
#Y(|XLIB|::|DEFAULT-PIXARRAY| #13Y(00 00 00 00 00 00 00 00 26 01 C5 19 01)
(#.|XLIB|::|*EMPTY-DATA-Z*|) |COMMON-LISP|::|NIL| ()
|COMMON-LISP|::|NIL| 1)
|SYSTEM|::|STRUCTURE-UNDEFINE-ACCESSORIES|
|SYSTEM|::|DEFSTRUCT-DESCRIPTION| |XLIB|::|MAKE-IMAGE-Z|
|XLIB|::|IMAGE-Z-P| |CLOS|::|<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>| :|NAME|
|XLIB|::|WIDTH| :|INITARGS| (:|WIDTH|) :|TYPE| |XLIB|::|CARD16|
:|ALLOCATION| :|INSTANCE| |CLOS|::|INHERITABLE-INITER| 0.
|SYSTEM|::|FIND-STRUCTURE-CLASS-SLOT-INITFUNCTION|
|CLOS|::|MAKE-INHERITABLE-SLOT-DEFINITION-INITER| |CLOS|::|INHERITABLE-DOC|
(|COMMON-LISP|::|NIL|) |CLOS|::|LOCATION| 1. |CLOS|::|READONLY|
|CLOS|::|MAKE-INSTANCE-<STRUCTURE-EFFECTIVE-SLOT-DEFINITION>|
|XLIB|::|HEIGHT| (:|HEIGHT|) (|COMMON-LISP|::|NIL|) 2. |XLIB|::|DEPTH|
(:|DEPTH|) |XLIB|::|CARD8| (|COMMON-LISP|::|NIL|) 3. |XLIB|::|PLIST|
(:|PLIST|) |COMMON-LISP|::|LIST| (|COMMON-LISP|::|NIL|) 4.
|XLIB|::|BITS-PER-PIXEL| (:|BITS-PER-PIXEL|)
#1=(|COMMON-LISP|::|MEMBER| 1. 4. 8. 16. 24. 32.)
|SYSTEM|::|MAKE-CONSTANT-INITFUNCTION| (|COMMON-LISP|::|NIL|) 5.
|XLIB|::|PIXARRAY| (:|PIXARRAY|) |XLIB|::|*EMPTY-DATA-Z*|
(|COMMON-LISP|::|NIL|) 6. |CLOS|::|<STRUCTURE-DIRECT-SLOT-DEFINITION>|
(|COMMON-LISP|::|NIL|) :|READERS| (|XLIB|::|IMAGE-Z-BITS-PER-PIXEL|)
:|WRITERS| ((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-BITS-PER-PIXEL|))
|CLOS|::|MAKE-INSTANCE-<STRUCTURE-DIRECT-SLOT-DEFINITION>|
(|COMMON-LISP|::|NIL|) (|XLIB|::|IMAGE-Z-PIXARRAY|)
((|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-PIXARRAY|))
|CLOS|::|DEFINE-STRUCTURE-CLASS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|MAKE-IMAGE-Z|
#86Y(00 00 00 00 00 00 00 00 A6 1B 06 00 01 00 3B 06 02 CC FE 3B 05 02
CC FD 3B 04 02 CD FC 3D 03 3B 02 02 CD FA 3B 01 02 CE F9 69 00 01
E4 72 45 E5 AD E2 B6 32 44 E5 AD E6 B5 32 44 E5 AD E7 B4 32 44 E5
AD E8 B3 32 44 E5 AD E9 B2 32 44 E5 AD EA B1 32 44 15 19 07)
(|COMMON-LISP|::|NIL| :|WIDTH| :|HEIGHT| :|DEPTH| :|PLIST|
:|BITS-PER-PIXEL| :|PIXARRAY| 0. 1. #.|XLIB|::|*EMPTY-DATA-Z*| 7.
|XLIB|::|IMAGE-Z| 2. 3. 4. 5. 6.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|&KEY| (#:|WIDTH| 0.) (#:|HEIGHT| 0.) (#:|DEPTH| 1.)
(#:|PLIST| |COMMON-LISP|::|NIL|) (#:|BITS-PER-PIXEL| 1.)
(#:|PIXARRAY| |XLIB|::|*EMPTY-DATA-Z*|))
|COMMON-LISP|::|NIL| 1)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-Z-P|) |SYSTEM|::|INLINE-EXPANSION|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-Z-P|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-P|
(|SYSTEM|::|%STRUCTURE-TYPE-P| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT|)))
#Y(|XLIB|::|IMAGE-Z-P|
#16Y(00 00 00 00 01 00 00 00 20 02 DA AE 32 47 19 02)
(|XLIB|::|IMAGE-Z|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-Z-WIDTH| (|XLIB|::|IMAGE-Z|)
|XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-Z-WIDTH|) |XLIB|::|IMAGE-Z-WIDTH|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-Z-WIDTH|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-WIDTH|
(|COMMON-LISP|::|THE| |XLIB|::|CARD16|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT| 1.))))
#Y(|XLIB|::|IMAGE-Z-WIDTH|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-Z| 1.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
|SYSTEM|::|DEFSTRUCT-READER|
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-Z-HEIGHT| (|XLIB|::|IMAGE-Z|)
|XLIB|::|CARD16|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-Z-HEIGHT|) |XLIB|::|IMAGE-Z-HEIGHT|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-Z-HEIGHT|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-HEIGHT|
(|COMMON-LISP|::|THE| |XLIB|::|CARD16|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT| 2.))))
#Y(|XLIB|::|IMAGE-Z-HEIGHT|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-Z| 2.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-Z-DEPTH| (|XLIB|::|IMAGE-Z|)
|XLIB|::|CARD8|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-Z-DEPTH|) |XLIB|::|IMAGE-Z-DEPTH|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-Z-DEPTH|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-DEPTH|
(|COMMON-LISP|::|THE| |XLIB|::|CARD8|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT| 3.))))
#Y(|XLIB|::|IMAGE-Z-DEPTH|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-Z| 3.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-Z-PLIST| (|XLIB|::|IMAGE-Z|)
|COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-Z-PLIST|) |XLIB|::|IMAGE-Z-PLIST|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE| (|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-Z-PLIST|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-PLIST|
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT| 4.))))
#Y(|XLIB|::|IMAGE-Z-PLIST|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-Z| 4.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-Z-BITS-PER-PIXEL|
(|XLIB|::|IMAGE-Z|) #1#)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-Z-BITS-PER-PIXEL|)
|XLIB|::|IMAGE-Z-BITS-PER-PIXEL|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-Z-BITS-PER-PIXEL|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-BITS-PER-PIXEL|
(|COMMON-LISP|::|THE| #1#
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT| 5.))))
#Y(|XLIB|::|IMAGE-Z-BITS-PER-PIXEL|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-Z| 5.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| |XLIB|::|IMAGE-Z-PIXARRAY| (|XLIB|::|IMAGE-Z|)
|XLIB|::|PIXARRAY|)
(|COMMON-LISP|::|INLINE| |XLIB|::|IMAGE-Z-PIXARRAY|)
|XLIB|::|IMAGE-Z-PIXARRAY|
((|SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN| |XLIB|::|IMAGE-Z-PIXARRAY|))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-PIXARRAY|
(|COMMON-LISP|::|THE| |XLIB|::|PIXARRAY|
(|SYSTEM|::|%STRUCTURE-REF| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT| 6.))))
#Y(|XLIB|::|IMAGE-Z-PIXARRAY|
#17Y(00 00 00 00 01 00 00 00 20 02 DA AE DB 32 43 19 02)
(|XLIB|::|IMAGE-Z| 6.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|))
(|COMMON-LISP|::|FUNCTION| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-PLIST|)
(|COMMON-LISP|::|LIST| |XLIB|::|IMAGE-Z|) |COMMON-LISP|::|LIST|)
(|COMMON-LISP|::|INLINE| (|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-PLIST|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-Z-PLIST|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#2=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-PLIST|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-PLIST|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT| 4.
(|COMMON-LISP|::|THE| |COMMON-LISP|::|LIST| . #3=(|SYSTEM|::|VALUE|)))))
#Y(#2# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-Z| 4.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|SYSTEM|::|DEFSTRUCT-WRITER|
(|COMMON-LISP|::|FUNCTION|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-BITS-PER-PIXEL|)
(#1# |XLIB|::|IMAGE-Z|) #1#)
(|COMMON-LISP|::|INLINE|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-BITS-PER-PIXEL|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-Z-BITS-PER-PIXEL|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#4=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-BITS-PER-PIXEL|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-BITS-PER-PIXEL|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT| 5.
(|COMMON-LISP|::|THE| #1# . #3#))))
#Y(#4# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-Z| 5.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
(|COMMON-LISP|::|FUNCTION|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-PIXARRAY|)
(|XLIB|::|PIXARRAY| |XLIB|::|IMAGE-Z|) |XLIB|::|PIXARRAY|)
(|COMMON-LISP|::|INLINE|
(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-PIXARRAY|))
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-Z-PIXARRAY|)
((|SYSTEM|::|VALUE| |SYSTEM|::|OBJECT|)
(|COMMON-LISP|::|DECLARE|
(|SYSTEM|::|IN-DEFUN|
#5=(|COMMON-LISP|::|SETF| |XLIB|::|IMAGE-Z-PIXARRAY|)))
(|COMMON-LISP|::|BLOCK| |XLIB|::|IMAGE-Z-PIXARRAY|
(|SYSTEM|::|%STRUCTURE-STORE| '|XLIB|::|IMAGE-Z| |SYSTEM|::|OBJECT| 6.
(|COMMON-LISP|::|THE| |XLIB|::|PIXARRAY| . #3#))))
#Y(#5# #18Y(00 00 00 00 02 00 00 00 20 03 DA AE DB B1 32 44 19 03)
(|XLIB|::|IMAGE-Z| 6.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|COMMON-LISP|::|TYPE| |SYSTEM|::|%SET-DOCUMENTATION|
|CLOS|::|DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|130 239 (DEFUN CREATE-IMAGE (&KEY WIDTH HEIGHT ...) ...)-42|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|CREATE-IMAGE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|CREATE-IMAGE|
#816Y(00 00 00 00 00 00 00 00 A6 1B 13 00 00 00 3D 13 3D 12 3D 11 3B 10
80 70 ED D9 1B 80 BC 03 19 1B 30 03 18 1B 80 56 03 1C 1B 80 51 03
1B 1B 80 4C 03 1D 1B 80 47 03 1E 1B 80 42 03 1F 1B 3E 92 08 02 03
18 09 11 92 07 80 81 BD F2 90 01 2F 4E 03 1A FF 92 08 80 78 B3 24
19 47 BD F5 90 01 32 46 BD F7 90 01 32 45 BD 65 1E 90 01 32 43 BD
65 1F 90 01 32 41 BD F2 90 01 32 40 03 18 09 08 92 13 80 50 ED 03
20 1B 80 51 3D 0F 3D 0E 3D 0D 3D 0C 3D 0B 3D 0A 3D 09 3D 08 3D 07
3D 06 3B 05 03 03 15 FD 3B 04 03 03 16 FC 3D 03 3D 02 3D 01 BC 8F
32 81 07 BC 71 06 F1 8F 14 80 FF BC 71 07 25 18 80 F8 93 11 FF 78
93 07 FF 7F 93 08 FF 88 93 13 FF B0 92 12 80 5A ED 03 21 14 33 01
1E 92 02 02 03 1E 14 C0 B6 73 02 39 AC AE 72 CF AE 73 02 39 AC 65
1E 81 CF 09 16 03 92 03 3C 0E 22 FB 92 02 39 65 23 63 1B 1D 15 16
01 1B 1F 87 01 00 14 6B 24 91 01 33 0C 65 1E B5 73 02 39 AD 72 D2
8E AC 65 83 01 AD 8D 9F 64 00 16 02 FA 93 01 0F 1B 10 93 06 FF A9
93 03 44 93 02 47 92 01 03 03 25 F9 DA C0 DB C1 DC C2 DE C2 E6 BC
DD 66 1B E5 C1 E7 C1 E8 C2 E9 C3 EA C4 EB 66 19 EC 66 1A 2D 1A 26
1B 81 B3 BC 81 62 11 93 10 20 1B 11 94 10 F2 80 08 13 93 12 0E 1B
13 93 11 69 93 10 0D 93 13 6C 92 12 07 94 10 65 25 80 08 12 DA C0
DB C1 DE C0 DC C4 65 27 66 19 2D 0A 28 1B 81 7A 03 1C 1B 81 12 03
1B 1B 81 0D 03 1D 1B 81 08 03 1E 1B 81 03 03 1F 1B 80 FE 03 18 1B
80 F9 BC 8E 1D FF B8 BC 8F 31 0D BC 71 06 25 29 07 BC 71 07 24 2A
80 5D BC 8F 31 0F BC 71 06 65 2B 8F 14 07 BC 71 07 24 2A 80 4A BC
8F 31 0D BC 71 06 F1 8F 14 06 BC 71 07 24 2A 39 BC 8F 31 0E BC 71
06 65 2C 8F 14 06 BC 71 07 24 2A 27 BC 8F 31 0E BC 71 06 65 2D 8F
14 06 BC 71 07 24 2A 15 BC 8F 31 80 EE BC 71 06 65 2D 8F 14 80 E5
BC 71 07 25 2A 80 DE 93 13 80 89 93 12 80 8E 92 08 80 94 BC 8F 31
0F BC 71 06 65 2D 8F 14 07 BC 71 07 24 2A FF 50 BC 8F 31 0F BC 71
06 65 2D 8F 14 07 BC 71 07 24 2A FF 42 BC 8F 31 0F BC 71 06 65 2C
8F 14 07 BC 71 07 24 2A FF 34 BC 8F 31 0E BC 71 06 F1 8F 14 07 BC
71 07 24 2A FF 27 BC 8F 31 0F BC 71 06 65 2B 8F 14 07 BC 71 07 24
2A FF 19 BC 8F 31 0D BC 71 06 25 29 07 BC 71 07 24 2A FF 0D BC EE
65 2E 70 2F 65 30 2D 03 31 09 08 93 11 18 1B 19 BC F2 80 08 13 92
12 FF 72 BC 65 25 80 08 12 93 08 FF 6C 92 11 03 A5 09 11 DA C0 DB
C1 DC C2 DE C2 E5 BD 65 32 66 1B 2D 0C 33 1B 30 14 AD 30 36 93 0E
30 14 AD 30 37 93 0D 2C 14 AD 30 38 93 0C 28 14 AD 30 39 93 0B 24
14 AD 30 3A 93 0A 24 1B 1E BC EE 65 34 70 2F 65 35 2D 03 31 14 92
0F 4C 92 0E 50 92 0D 54 92 0C 58 92 0B 5C 93 0A 04 14 AD 30 3B 15
19 14)
(:|WIDTH| :|HEIGHT| :|DEPTH| :|DATA| :|PLIST| :|NAME| :|X-HOT| :|Y-HOT|
:|RED-MASK| :|BLUE-MASK| :|GREEN-MASK| :|BITS-PER-PIXEL| :|FORMAT|
:|BYTES-PER-LINE| :|BYTE-LSB-FIRST-P| :|BIT-LSB-FIRST-P| :|UNIT| :|PAD|
:|LEFT-PAD| "Missing parameter ~S" |XLIB|::|DATA|
#.#1=(|COMMON-LISP|::|NOT| |SYSTEM|::|*BIG-ENDIAN*|)
#.#2=(|COMMON-LISP|::|NOT| |SYSTEM|::|*BIG-ENDIAN*|)
(|COMMON-LISP|::|UNSIGNED-BYTE| 8.) 1. :|XY-PIXMAP| :|Z-PIXMAP| 24. 32.
16. 8. 4. |XLIB|::|WIDTH| |XLIB|::|HEIGHT| |XLIB|::|*IMAGE-UNIT*|
(32. 16. 8.) |XLIB|::|*IMAGE-PAD*| 0. |XLIB|::|MAKE-IMAGE-X|
:|BITMAP-LIST| |XLIB|::|MAKE-IMAGE-XY| |COMMON-LISP|::|BIT| 2.
(|COMMON-LISP|::|UNSIGNED-BYTE| 4.)
(|COMMON-LISP|::|UNSIGNED-BYTE| 16.)
(|COMMON-LISP|::|UNSIGNED-BYTE| 32.)
(|XLIB|::|PIXARRAY-32| |XLIB|::|PIXARRAY-24| |XLIB|::|PIXARRAY-16|
|XLIB|::|PIXARRAY-8| |XLIB|::|PIXARRAY-4| |XLIB|::|PIXARRAY-1|)
|SYSTEM|::|TYPECASE-ERROR-STRING|
(|COMMON-LISP|::|OR| |XLIB|::|PIXARRAY-32| |XLIB|::|PIXARRAY-24|
|XLIB|::|PIXARRAY-16| |XLIB|::|PIXARRAY-8| |XLIB|::|PIXARRAY-4|
|XLIB|::|PIXARRAY-1|)
|SYSTEM|::|ETYPECASE-FAILED| :|PIXARRAY| |XLIB|::|MAKE-IMAGE-Z|
(|XLIB|::|BUFFER-BYTES| |COMMON-LISP|::|LIST| |XLIB|::|PIXARRAY|)
(|COMMON-LISP|::|OR| |XLIB|::|BUFFER-BYTES| |COMMON-LISP|::|LIST|
|XLIB|::|PIXARRAY|)
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-NAME|)
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-X-HOT|)
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-Y-HOT|)
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-RED-MASK|)
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-BLUE-MASK|)
#.(|SYSTEM|::|GET-SETF-SYMBOL| '|XLIB|::|IMAGE-GREEN-MASK|))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|&KEY| |XLIB|::|WIDTH| |XLIB|::|HEIGHT| |XLIB|::|DEPTH|
(|XLIB|::|DATA| (|XLIB|::|REQUIRED-ARG| |XLIB|::|DATA|))
|XLIB|::|PLIST| |XLIB|::|NAME| |XLIB|::|X-HOT| |XLIB|::|Y-HOT|
|XLIB|::|RED-MASK| |XLIB|::|BLUE-MASK| |XLIB|::|GREEN-MASK|
|XLIB|::|BITS-PER-PIXEL| |COMMON-LISP|::|FORMAT|
|XLIB|::|BYTES-PER-LINE|
(|XLIB|::|BYTE-LSB-FIRST-P| (|COMMON-LISP|::|LOAD-TIME-VALUE| #1#))
(|XLIB|::|BIT-LSB-FIRST-P| (|COMMON-LISP|::|LOAD-TIME-VALUE| #2#))
|XLIB|::|UNIT| |XLIB|::|PAD| |XLIB|::|LEFT-PAD|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|241 262 (DEFUN BITMAP-IMAGE (&OPTIONAL PLIST &REST ...) ...)-43|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|BITMAP-IMAGE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|BITMAP-IMAGE|
#96Y(00 00 00 00 00 00 01 00 27 00 3D 02 AE 8E 1D 05 AE 84 01 7D 02 94
01 72 62 AE 72 62 AC AE 7B 02 38 07 C5 FD 71 1D DB B1 63 1B 22 87
01 00 DB 1B 10 AD AD 73 01 01 B1 B1 AF AF 33 02 02 16 01 85 00 AC
B3 91 01 34 6A 16 01 85 02 83 01 AD 8D 9F 5A 16 02 DC B0 DD B1 DE
B7 DF B4 2D 08 06 19 07)
(|COMMON-LISP|::|BIT| 0. :|WIDTH| :|HEIGHT| :|PLIST| :|DATA|
|XLIB|::|CREATE-IMAGE|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|&OPTIONAL| |XLIB|::|PLIST| |COMMON-LISP|::|&REST|
|XLIB|::|PATTERNS|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|264 308 (DEFUN IMAGE-PIXMAP (DRAWABLE IMAGE &KEY ...) ...)-44|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|XLIB|::|IMAGE-PIXMAP| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|XLIB|::|IMAGE-PIXMAP|
#211Y(00 00 00 00 02 00 00 00 A6 1D 04 00 00 00 3D 04 3D 03 3D 02 3D 01
DE B2 DF 72 43 DE B3 E0 72 43 DE B4 E1 72 43 92 06 01 9F 14 92 06
01 9F 14 92 06 01 9F 14 E2 B9 DB B1 DC B2 DD B3 6E 08 09 92 0B 09
E2 AD E4 DF E5 E6 2D 06 0D 14 AE B2 90 01 2F 09 B1 DF 91 01 2F 23
93 0C 1B AD AD BB EB E6 EC E6 DB B8 DC B9 ED BD DF 91 01 2F 02 04
18 14 2D 0D 14 B3 1B 26 E8 E9 33 01 1E EA AF B3 33 02 1E AE AE E6
E6 B8 B8 B4 B3 E6 2D 09 15 B4 B5 AD 82 02 37 09 16 01 AC B5 82 02
37 00 AC B2 91 01 34 5F 16 01 B2 1B 1B AE AE E6 E6 B8 B8 B4 E6 B4
2D 09 15 B3 B4 AD 82 02 37 08 16 01 AC B4 82 02 37 00 AC B1 91 01
34 5F 16 01 92 0C 03 AC 2F 16 9E 19 0F)
(:|GCONTEXT| :|WIDTH| :|HEIGHT| :|DEPTH| |XLIB|::|IMAGE| 1. 2. 3.
:|DRAWABLE| |XLIB|::|CREATE-PIXMAP| :|FOREGROUND| :|BACKGROUND| 0.
|XLIB|::|CREATE-GCONTEXT| "Missing parameter ~S" |XLIB|::|GCONTEXT|
"Pixmap depth ~d incompatible with image depth ~d" :|X| :|Y|
:|BITMAP-P| |XLIB|::|PUT-IMAGE| |XLIB|::|COPY-AREA|
|XLIB|::|FREE-GCONTEXT|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|XLIB|::|DRAWABLE| |XLIB|::|IMAGE| |COMMON-LISP|::|&KEY|
|XLIB|::|GCONTEXT| |XLIB|::|WIDTH| |XLIB|::|HEIGHT| |XLIB|::|DEPTH|)
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
|