(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:|1| #15Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 19 01) :CLX
   COMMON-LISP::REQUIRE)
#Y(#:|2| #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01) "XLIB"
   COMMON-LISP::*PACKAGE*)
#Y(#:|3|
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 6F 03 32 80 C5 19 01)
   XLIB::REQUIRED-ARG SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::REQUIRED-ARG
      #39Y(00 00 00 00 01 00 01 00 00 08 AE 72 45 DA 90 01 2F 10 9F 5C 78 DC DD
           DE DF B0 7B 02 7B 03 61 02 19 04 AE 2F 01 19 03)
      2. SYSTEM::MACRO-CALL-ERROR COMMON-LISP::PROGN COMMON-LISP::ERROR
      "Missing parameter ~S" COMMON-LISP::QUOTE)
   SYSTEM::MAKE-MACRO)
#Y(#:|4|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL XLIB::*IMAGE-UNIT*) XLIB::*IMAGE-UNIT* 32.)
#Y(#:|5|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL XLIB::*IMAGE-PAD*) XLIB::*IMAGE-PAD* 32.)
#Y(#:|6|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 64 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL XLIB::*IMAGE-BIT-LSB-FIRST-P*)
   XLIB::*IMAGE-BIT-LSB-FIRST-P*)
#Y(#:|7|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 64 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL XLIB::*IMAGE-BYTE-LSB-FIRST-P*)
   XLIB::*IMAGE-BYTE-LSB-FIRST-P*)
#Y(#:|8|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR
      (COMMON-LISP::SIMPLE-ARRAY (COMMON-LISP::UNSIGNED-BYTE 8.)
       (COMMON-LISP::*)))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|9|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR COMMON-LISP::BIT)
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|10|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR (COMMON-LISP::UNSIGNED-BYTE 4.))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|11|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR (COMMON-LISP::UNSIGNED-BYTE 8.))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|12|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR (COMMON-LISP::UNSIGNED-BYTE 16.))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|13|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR (COMMON-LISP::UNSIGNED-BYTE 24.))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|14|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR (COMMON-LISP::UNSIGNED-BYTE 32.))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|15|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR
      (COMMON-LISP::ARRAY XLIB::PIXARRAY-1-ELEMENT-TYPE
       (COMMON-LISP::* COMMON-LISP::*)))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|16|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR
      (COMMON-LISP::ARRAY XLIB::PIXARRAY-4-ELEMENT-TYPE
       (COMMON-LISP::* COMMON-LISP::*)))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|17|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR
      (COMMON-LISP::ARRAY XLIB::PIXARRAY-8-ELEMENT-TYPE
       (COMMON-LISP::* COMMON-LISP::*)))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|18|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR
      (COMMON-LISP::ARRAY XLIB::PIXARRAY-16-ELEMENT-TYPE
       (COMMON-LISP::* COMMON-LISP::*)))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|19|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR
      (COMMON-LISP::ARRAY XLIB::PIXARRAY-24-ELEMENT-TYPE
       (COMMON-LISP::* COMMON-LISP::*)))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|20|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR
      (COMMON-LISP::ARRAY XLIB::PIXARRAY-32-ELEMENT-TYPE
       (COMMON-LISP::* COMMON-LISP::*)))
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|21|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. 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::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|22|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 32 86 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 00 02 AD 72 45 DA 90 01 31 03 C7 19 02 AD 2F
           01 19 02)
      1. SYSTEM::TYPE-CALL-ERROR XLIB::PIXARRAY-1)
   COMMON-LISP::TYPE SYSTEM::%SET-DOCUMENTATION)
#Y(#:|23|
   #170Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 01 72 82 C8 5F 7A DA DC AE
         64 63 DE 73 04 00 32 86 16 01 DA 2F 05 E0 31 59 E1 31 59 E2 2F 09 E2
         E4 E5 32 86 E2 E6 32 80 E2 E7 DA 32 86 E8 31 59 E9 31 59 EA 2F 09 EA
         E4 EB 32 86 EA EC 32 80 EA E7 DA 32 86 ED 31 59 EE 31 59 EF 2F 09 EF
         E4 F0 32 86 EF F1 32 80 EF E7 DA 32 86 F2 31 59 F3 31 59 F4 2F 09 F4
         E4 F5 32 86 F4 F6 32 80 F4 E7 DA 32 86 F4 F7 32 87 F4 65 1E 65 1F 65
         20 03 21 7C 02 32 86 F4 65 22 63 2D 03 23 F4 F7 DA 32 86 DA 65 24 63
         2D 03 23 DA 2F 25 C5 19 01)
   XLIB::IMAGE COMMON-LISP::STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   (#(XLIB::WIDTH (:WIDTH) 1. (COMMON-LISP::NIL . 0.) 0. XLIB::CARD16
      COMMON-LISP::T)
    #(XLIB::HEIGHT (:HEIGHT) 2. (COMMON-LISP::NIL . 0.) 0. XLIB::CARD16
      COMMON-LISP::T)
    #(XLIB::DEPTH (:DEPTH) 3. (COMMON-LISP::NIL . 1.) 1. XLIB::CARD8
      COMMON-LISP::T)
    #(XLIB::PLIST (:PLIST) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::LIST COMMON-LISP::NIL))
   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
   (#1=(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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE 1.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION XLIB::IMAGE-HEIGHT (XLIB::IMAGE) XLIB::CARD16)
   (COMMON-LISP::INLINE XLIB::IMAGE-HEIGHT) XLIB::IMAGE-HEIGHT
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE 2.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-DEPTH (XLIB::IMAGE) XLIB::CARD8)
   (COMMON-LISP::INLINE XLIB::IMAGE-DEPTH) XLIB::IMAGE-DEPTH
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE 3.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-PLIST (XLIB::IMAGE) COMMON-LISP::LIST)
   (COMMON-LISP::INLINE XLIB::IMAGE-PLIST) XLIB::IMAGE-PLIST
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE 4.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(XLIB::SETF-IMAGE-PLIST
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE 4. COMMON-LISP::THE
      COMMON-LISP::LIST)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION COMMON-LISP::STRUCTURE
   CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:|24| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::IMAGE-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::IMAGE-NAME
      #20Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 DB 38 01 32 83 19 02)
      XLIB::IMAGE-PLIST :NAME))
#Y(#:|25| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::IMAGE-X-HOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::IMAGE-X-HOT
      #20Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 DB 38 01 32 83 19 02)
      XLIB::IMAGE-PLIST :X-HOT))
#Y(#:|26| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::IMAGE-Y-HOT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::IMAGE-Y-HOT
      #20Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 DB 38 01 32 83 19 02)
      XLIB::IMAGE-PLIST :Y-HOT))
#Y(#:|27| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::IMAGE-RED-MASK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::IMAGE-RED-MASK
      #20Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 DB 38 01 32 83 19 02)
      XLIB::IMAGE-PLIST :RED-MASK))
#Y(#:|28| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::IMAGE-BLUE-MASK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::IMAGE-BLUE-MASK
      #20Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 DB 38 01 32 83 19 02)
      XLIB::IMAGE-PLIST :BLUE-MASK))
#Y(#:|29| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::IMAGE-GREEN-MASK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::IMAGE-GREEN-MASK
      #20Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 DB 38 01 32 83 19 02)
      XLIB::IMAGE-PLIST :GREEN-MASK))
#Y(#:|30| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C8 19 01)
   #.(SYSTEM::GET-SETF-SYMBOL 'XLIB::IMAGE-NAME) SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(#1=(COMMON-LISP::SETF XLIB::IMAGE-NAME)
      #30Y(00 00 00 00 02 00 00 00 00 03 AD 6F 00 DB B0 6E 03 02 93 00 06 DD AF
           DE AF 32 2D A0 19 04)
      XLIB::IMAGE-PLIST :NAME SYSTEM::%PUTF XLIB::IMAGE 4.)
   #1#)
#Y(#:|31| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C8 19 01)
   #.(SYSTEM::GET-SETF-SYMBOL 'XLIB::IMAGE-X-HOT)
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(#1=(COMMON-LISP::SETF XLIB::IMAGE-X-HOT)
      #30Y(00 00 00 00 02 00 00 00 00 03 AD 6F 00 DB B0 6E 03 02 93 00 06 DD AF
           DE AF 32 2D A0 19 04)
      XLIB::IMAGE-PLIST :X-HOT SYSTEM::%PUTF XLIB::IMAGE 4.)
   #1#)
#Y(#:|32| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C8 19 01)
   #.(SYSTEM::GET-SETF-SYMBOL 'XLIB::IMAGE-Y-HOT)
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(#1=(COMMON-LISP::SETF XLIB::IMAGE-Y-HOT)
      #30Y(00 00 00 00 02 00 00 00 00 03 AD 6F 00 DB B0 6E 03 02 93 00 06 DD AF
           DE AF 32 2D A0 19 04)
      XLIB::IMAGE-PLIST :Y-HOT SYSTEM::%PUTF XLIB::IMAGE 4.)
   #1#)
#Y(#:|33| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C8 19 01)
   #.(SYSTEM::GET-SETF-SYMBOL 'XLIB::IMAGE-RED-MASK)
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(#1=(COMMON-LISP::SETF XLIB::IMAGE-RED-MASK)
      #30Y(00 00 00 00 02 00 00 00 00 03 AD 6F 00 DB B0 6E 03 02 93 00 06 DD AF
           DE AF 32 2D A0 19 04)
      XLIB::IMAGE-PLIST :RED-MASK SYSTEM::%PUTF XLIB::IMAGE 4.)
   #1#)
#Y(#:|34| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C8 19 01)
   #.(SYSTEM::GET-SETF-SYMBOL 'XLIB::IMAGE-BLUE-MASK)
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(#1=(COMMON-LISP::SETF XLIB::IMAGE-BLUE-MASK)
      #30Y(00 00 00 00 02 00 00 00 00 03 AD 6F 00 DB B0 6E 03 02 93 00 06 DD AF
           DE AF 32 2D A0 19 04)
      XLIB::IMAGE-PLIST :BLUE-MASK SYSTEM::%PUTF XLIB::IMAGE 4.)
   #1#)
#Y(#:|35| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C8 19 01)
   #.(SYSTEM::GET-SETF-SYMBOL 'XLIB::IMAGE-GREEN-MASK)
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(#1=(COMMON-LISP::SETF XLIB::IMAGE-GREEN-MASK)
      #30Y(00 00 00 00 02 00 00 00 00 03 AD 6F 00 DB B0 6E 03 02 93 00 06 DD AF
           DE AF 32 2D A0 19 04)
      XLIB::IMAGE-PLIST :GREEN-MASK SYSTEM::%PUTF XLIB::IMAGE 4.)
   #1#)
#Y(#:|36| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::PRINT-IMAGE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::PRINT-IMAGE
      #38Y(00 00 00 00 03 00 00 00 00 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
         #86Y(00 00 00 00 00 00 00 00 00 01 69 00 01 89 01 16 69 00 01 6F 01 71
              4A 69 00 02 38 02 31 88 DC 69 00 02 38 02 31 88 69 00 01 6F 03 69
              00 02 31 80 DE 69 00 02 38 02 31 88 69 00 01 6F 05 69 00 02 31 80
              E0 69 00 02 38 02 31 88 69 00 01 6F 07 69 00 02 31 80 19 01)
         COMMON-LISP::NIL XLIB::IMAGE-NAME " " XLIB::IMAGE-WIDTH "x"
         XLIB::IMAGE-HEIGHT "x" XLIB::IMAGE-DEPTH)
      :TYPE SYSTEM::WRITE-UNREADABLE))
#Y(#:|37|
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 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)
#Y(#:|38|
   #34Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 8D 5D 0B DB DA 71 4D 8C FF 04 DA
        DC 30 03 DA DB 32 81 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)
#Y(#:|39|
   #1002Y(00 00 00 00 00 00 00 00 00 01 00 2B 06 DA DB DC 38 01 72 82 C8 5F 5D
          0B 00 00 C9 0B 00 01 CA 0B 00 02 CB 0B 00 03 CC 0B 00 04 CD 0B 00 05
          E3 2F 0A E3 AD 6D 0B 01 32 80 DA DC 68 02 00 64 E3 E6 E7 E8 E9 EA EB
          EC ED EE EF 68 0F 01 7B 01 F0 F1 63 73 07 00 F2 F3 F4 68 10 02 7B 01
          F5 F1 63 73 07 00 F6 F7 65 1E 68 11 03 7B 01 65 1F 65 20 63 73 07 00
          65 21 65 22 65 23 68 12 04 7B 01 65 24 65 25 63 73 07 00 65 26 65 27
          65 28 68 13 05 7B 01 65 29 65 2A 63 73 07 00 03 2B 7C 0C 68 06 01 68
          07 02 68 08 03 68 09 04 68 0A 05 73 09 00 32 86 16 01 DA 2F 2C 65 2D
          31 59 65 2E 2F 0A 65 2E 65 2F 65 30 32 86 65 2E 65 31 32 80 65 32 31
          59 65 33 31 59 65 34 2F 0A 65 34 65 2F 65 35 32 86 65 34 65 36 32 80
          65 34 65 37 DA 32 86 65 38 31 59 65 39 31 59 65 3A 2F 0A 65 3A 65 2F
          65 3B 32 86 65 3A 65 3C 32 80 65 3A 65 37 DA 32 86 65 3D 31 59 65 3E
          31 59 65 3F 2F 0A 65 3F 65 2F 65 40 32 86 65 3F 65 41 32 80 65 3F 65
          37 DA 32 86 65 42 31 59 65 43 31 59 65 44 2F 0A 65 44 65 2F 65 45 32
          86 65 44 65 46 32 80 65 44 65 37 DA 32 86 65 47 31 59 65 48 31 59 65
          49 2F 0A 65 49 65 2F 65 4A 32 86 65 49 65 4B 32 80 65 49 65 37 DA 32
          86 65 4C 31 59 65 4D 31 59 65 4E 2F 0A 65 4E 65 2F 65 4F 32 86 65 4E
          65 50 32 80 65 4E 65 37 DA 32 86 65 51 31 59 65 52 31 59 65 53 2F 0A
          65 53 65 2F 65 54 32 86 65 53 65 55 32 80 65 53 65 37 DA 32 86 65 56
          31 59 65 57 31 59 65 58 2F 0A 65 58 65 2F 65 59 32 86 65 58 65 5A 32
          80 65 58 65 37 DA 32 86 65 5B 31 59 65 5C 31 59 65 5D 2F 0A 65 5D 65
          2F 65 5E 32 86 65 5D 65 5F 32 80 65 5D 65 37 DA 32 86 65 60 31 59 65
          61 31 59 65 62 2F 0A 65 62 65 2F 65 63 32 86 65 62 65 64 32 80 65 62
          65 37 DA 32 86 65 65 31 59 65 66 31 59 65 67 2F 0A 65 67 65 2F 65 68
          32 86 65 67 65 69 32 80 65 67 65 37 DA 32 86 65 6A 31 59 65 6B 31 59
          65 6C 2F 0A 65 6C 65 2F 65 6D 32 86 65 6C 65 6E 32 80 65 6C 65 37 DA
          32 86 65 6F 31 59 65 70 31 59 65 71 2F 0A 65 71 65 2F 65 72 32 86 65
          71 65 73 32 80 65 71 65 37 DA 32 86 65 44 65 74 32 87 65 44 65 75 65
          76 65 77 03 78 7C 02 32 86 65 44 65 79 63 2D 03 7A 65 44 65 74 DA 32
          86 65 49 65 74 32 87 65 49 65 75 65 76 65 77 03 7B 7C 02 32 86 65 49
          65 79 63 2D 03 7A 65 49 65 74 DA 32 86 65 4E 65 74 32 87 65 4E 65 75
          65 76 65 77 03 7C 7C 02 32 86 65 4E 65 79 63 2D 03 7A 65 4E 65 74 DA
          32 86 65 53 65 74 32 87 65 53 65 75 65 76 65 77 03 7D 7C 02 32 86 65
          53 65 79 63 2D 03 7A 65 53 65 74 DA 32 86 65 58 65 74 32 87 65 58 65
          75 65 76 65 77 03 7E 7C 02 32 86 65 58 65 79 63 2D 03 7A 65 58 65 74
          DA 32 86 65 5D 65 74 32 87 65 5D 65 75 65 76 65 77 03 7F 7C 02 32 86
          65 5D 65 79 63 2D 03 7A 65 5D 65 74 DA 32 86 65 62 65 74 32 87 65 62
          65 75 65 76 65 77 03 80 80 7C 02 32 86 65 62 65 79 63 2D 03 7A 65 62
          65 74 DA 32 86 65 67 65 74 32 87 65 67 65 75 65 76 65 77 03 80 81 7C
          02 32 86 65 67 65 79 63 2D 03 7A 65 67 65 74 DA 32 86 65 6C 65 74 32
          87 65 6C 65 75 65 76 65 77 03 80 82 7C 02 32 86 65 6C 65 79 63 2D 03
          7A 65 6C 65 74 DA 32 86 65 71 65 74 32 87 65 71 65 75 65 76 65 77 03
          80 83 7C 02 32 86 65 71 65 79 63 2D 03 7A 65 71 65 74 DA 32 86 DA 65
          80 84 63 2D 03 7A DA 2F 80 85 C5 19 01)
   XLIB::IMAGE-X XLIB::IMAGE SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   #Y(XLIB::DEFAULT-BIT-LSB-FIRST-P
      #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01)
      XLIB::*IMAGE-BIT-LSB-FIRST-P*)
   #Y(XLIB::DEFAULT-BYTE-LSB-FIRST-P
      #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01)
      XLIB::*IMAGE-BYTE-LSB-FIRST-P*)
   #Y(XLIB::DEFAULT-DATA #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01)
      #.XLIB::*EMPTY-DATA-X*)
   #Y(XLIB::DEFAULT-UNIT #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01)
      XLIB::*IMAGE-UNIT*)
   #Y(XLIB::DEFAULT-PAD #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01)
      XLIB::*IMAGE-PAD*)
   XLIB::MAKE-IMAGE-X SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::MAKE-IMAGE-X
      #189Y(00 00 00 00 00 00 00 00 80 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 06 69 00 02 36 00 FE 3B 05 06 69 00 03
            36 00 FD 3B 04 06 69 00 04 36 00 FC 3B 03 06 69 00 05 36 00 FB 3B
            02 06 69 00 06 36 00 FA 3B 01 02 D3 F9 69 00 01 EB 72 2E EC AD E9
            BD 32 2D EC AD ED BC 32 2D EC AD EE BB 32 2D EC AD EF BA 32 2D EC
            AD F0 B9 32 2D EC AD F1 B8 32 2D EC AD F2 B7 32 2D EC AD F3 B6 32
            2D EC AD F4 B5 32 2D EC AD F5 B4 32 2D EC AD F6 B3 32 2D EC AD F7
            B2 32 2D EC AD 65 1E B1 32 2D 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 14. XLIB::IMAGE-X 2. 3. 4. 5. 6. 7. 8. 9. 10.
      11. 12. 13.)
   #(XLIB::WIDTH (:WIDTH) 1. (COMMON-LISP::NIL . 0.) 0. XLIB::CARD16
     COMMON-LISP::T)
   #(XLIB::HEIGHT (:HEIGHT) 2. (COMMON-LISP::NIL . 0.) 0. XLIB::CARD16
     COMMON-LISP::T)
   #(XLIB::DEPTH (:DEPTH) 3. (COMMON-LISP::NIL . 1.) 1. XLIB::CARD8
     COMMON-LISP::T)
   #(XLIB::PLIST (:PLIST) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
     COMMON-LISP::LIST COMMON-LISP::NIL)
   #(COMMON-LISP::FORMAT (:FORMAT) 5. (COMMON-LISP::NIL . :Z-PIXMAP) :Z-PIXMAP
     (COMMON-LISP::MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP) COMMON-LISP::NIL)
   #(XLIB::BYTES-PER-LINE (:BYTES-PER-LINE) 6. (COMMON-LISP::NIL . 0.) 0.
     XLIB::CARD16 COMMON-LISP::NIL)
   #(XLIB::BITS-PER-PIXEL (:BITS-PER-PIXEL) 7. (COMMON-LISP::NIL . 1.) 1.
     (COMMON-LISP::MEMBER 1. 4. 8. 16. 24. 32.) COMMON-LISP::NIL)
   XLIB::BIT-LSB-FIRST-P (:BIT-LSB-FIRST-P) 8.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'XLIB::IMAGE-X 'SYSTEM::DEFSTRUCT-DESCRIPTION) 4.)
   COMMON-LISP::BOOLEAN XLIB::BYTE-LSB-FIRST-P (:BYTE-LSB-FIRST-P) 9.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'XLIB::IMAGE-X 'SYSTEM::DEFSTRUCT-DESCRIPTION) 5.)
   XLIB::DATA (:DATA) 10.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'XLIB::IMAGE-X 'SYSTEM::DEFSTRUCT-DESCRIPTION) 6.)
   (COMMON-LISP::ARRAY XLIB::CARD8 (COMMON-LISP::*)) XLIB::UNIT (:UNIT) 11.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'XLIB::IMAGE-X 'SYSTEM::DEFSTRUCT-DESCRIPTION) 7.)
   (COMMON-LISP::MEMBER 8. 16. 32.) XLIB::PAD (:PAD) 12.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'XLIB::IMAGE-X 'SYSTEM::DEFSTRUCT-DESCRIPTION) 8.)
   (COMMON-LISP::MEMBER 8. 16. 32.)
   (#(XLIB::LEFT-PAD (:LEFT-PAD) 13. (COMMON-LISP::NIL . 0.) 0. XLIB::CARD8
      COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE XLIB::IMAGE-X-P)
   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 00 02 DA AE 32 30 19 02)
      XLIB::IMAGE-X)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-X-WIDTH (XLIB::IMAGE-X) XLIB::CARD16)
   (COMMON-LISP::INLINE XLIB::IMAGE-X-WIDTH) XLIB::IMAGE-X-WIDTH
   (#1=(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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      1.)
   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
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      2.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-X-DEPTH (XLIB::IMAGE-X) XLIB::CARD8)
   (COMMON-LISP::INLINE XLIB::IMAGE-X-DEPTH) XLIB::IMAGE-X-DEPTH
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      3.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-X-PLIST (XLIB::IMAGE-X)
    COMMON-LISP::LIST)
   (COMMON-LISP::INLINE XLIB::IMAGE-X-PLIST) XLIB::IMAGE-X-PLIST
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      4.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-X-FORMAT (XLIB::IMAGE-X)
    #2=(COMMON-LISP::MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP))
   (COMMON-LISP::INLINE XLIB::IMAGE-X-FORMAT) XLIB::IMAGE-X-FORMAT
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN XLIB::IMAGE-X-FORMAT))
    (COMMON-LISP::BLOCK XLIB::IMAGE-X-FORMAT
     (COMMON-LISP::THE #2#
      (SYSTEM::%STRUCTURE-REF 'XLIB::IMAGE-X SYSTEM::OBJECT 5.))))
   #Y(XLIB::IMAGE-X-FORMAT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      5.)
   (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
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      6.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-X-BITS-PER-PIXEL (XLIB::IMAGE-X)
    #3=(COMMON-LISP::MEMBER 1. 4. 8. 16. 24. 32.))
   (COMMON-LISP::INLINE XLIB::IMAGE-X-BITS-PER-PIXEL)
   XLIB::IMAGE-X-BITS-PER-PIXEL
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN XLIB::IMAGE-X-BITS-PER-PIXEL))
    (COMMON-LISP::BLOCK XLIB::IMAGE-X-BITS-PER-PIXEL
     (COMMON-LISP::THE #3#
      (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      7.)
   (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
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      8.)
   (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
   (#1#
    (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      9.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-X-DATA (XLIB::IMAGE-X)
    #4=(COMMON-LISP::ARRAY XLIB::CARD8 (COMMON-LISP::*)))
   (COMMON-LISP::INLINE XLIB::IMAGE-X-DATA) XLIB::IMAGE-X-DATA
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN XLIB::IMAGE-X-DATA))
    (COMMON-LISP::BLOCK XLIB::IMAGE-X-DATA
     (COMMON-LISP::THE #4#
      (SYSTEM::%STRUCTURE-REF 'XLIB::IMAGE-X SYSTEM::OBJECT 10.))))
   #Y(XLIB::IMAGE-X-DATA
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      10.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-X-UNIT (XLIB::IMAGE-X)
    #5=(COMMON-LISP::MEMBER 8. 16. 32.))
   (COMMON-LISP::INLINE XLIB::IMAGE-X-UNIT) XLIB::IMAGE-X-UNIT
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN XLIB::IMAGE-X-UNIT))
    (COMMON-LISP::BLOCK XLIB::IMAGE-X-UNIT
     (COMMON-LISP::THE #5#
      (SYSTEM::%STRUCTURE-REF 'XLIB::IMAGE-X SYSTEM::OBJECT 11.))))
   #Y(XLIB::IMAGE-X-UNIT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      11.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-X-PAD (XLIB::IMAGE-X)
    #6=(COMMON-LISP::MEMBER 8. 16. 32.))
   (COMMON-LISP::INLINE XLIB::IMAGE-X-PAD) XLIB::IMAGE-X-PAD
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN XLIB::IMAGE-X-PAD))
    (COMMON-LISP::BLOCK XLIB::IMAGE-X-PAD
     (COMMON-LISP::THE #6#
      (SYSTEM::%STRUCTURE-REF 'XLIB::IMAGE-X SYSTEM::OBJECT 12.))))
   #Y(XLIB::IMAGE-X-PAD
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      12.)
   (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
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-X
      13.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(XLIB::SETF-IMAGE-X-PLIST
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 4. COMMON-LISP::THE
      COMMON-LISP::LIST)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(XLIB::SETF-IMAGE-X-FORMAT
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 5. COMMON-LISP::THE #2#)
   #Y(XLIB::SETF-IMAGE-X-BYTES-PER-LINE
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 6. COMMON-LISP::THE XLIB::CARD16)
   #Y(XLIB::SETF-IMAGE-X-BITS-PER-PIXEL
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 7. COMMON-LISP::THE #3#)
   #Y(XLIB::SETF-IMAGE-X-BIT-LSB-FIRST-P
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 8. COMMON-LISP::THE
      COMMON-LISP::BOOLEAN)
   #Y(XLIB::SETF-IMAGE-X-BYTE-LSB-FIRST-P
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 9. COMMON-LISP::THE
      COMMON-LISP::BOOLEAN)
   #Y(XLIB::SETF-IMAGE-X-DATA
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 10. COMMON-LISP::THE #4#)
   #Y(XLIB::SETF-IMAGE-X-UNIT
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 11. COMMON-LISP::THE #5#)
   #Y(XLIB::SETF-IMAGE-X-PAD
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 12. COMMON-LISP::THE #6#)
   #Y(XLIB::SETF-IMAGE-X-LEFT-PAD
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-X 13. COMMON-LISP::THE XLIB::CARD8)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:|40|
   #283Y(00 00 00 00 00 00 00 00 00 01 00 2B 01 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 DE 2F 05 DE AD 6D 06 01 32 80 DA DC 68 02 00 64 DE E1 73 04
         00 32 86 16 01 DA 2F 08 E3 31 59 E4 2F 05 E4 E5 E6 32 86 E4 E7 32 80
         E8 31 59 E9 31 59 EA 2F 05 EA E5 EB 32 86 EA EC 32 80 EA ED DA 32 86
         EE 31 59 EF 31 59 F0 2F 05 F0 E5 F1 32 86 F0 F2 32 80 F0 ED DA 32 86
         F3 31 59 F4 31 59 F5 2F 05 F5 E5 F6 32 86 F5 F7 32 80 F5 ED DA 32 86
         65 1E 31 59 65 1F 31 59 65 20 2F 05 65 20 E5 65 21 32 86 65 20 65 22
         32 80 65 20 ED DA 32 86 65 23 31 59 65 24 31 59 65 25 2F 05 65 25 E5
         65 26 32 86 65 25 65 27 32 80 65 25 ED DA 32 86 65 20 65 28 32 87 65
         20 65 29 65 2A 65 2B 03 2C 7C 02 32 86 65 20 65 2D 63 2D 03 2E 65 20
         65 28 DA 32 86 65 25 65 28 32 87 65 25 65 29 65 2A 65 2B 03 2F 7C 02
         32 86 65 25 65 2D 63 2D 03 2E 65 25 65 28 DA 32 86 DA 65 30 63 2D 03
         2E DA 2F 31 C5 19 01)
   XLIB::IMAGE-XY XLIB::IMAGE SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   XLIB::MAKE-IMAGE-XY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::MAKE-IMAGE-XY
      #72Y(00 00 00 00 00 00 00 00 80 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 2E E3 AD E1 B5 32 2D E3
           AD E4 B4 32 2D E3 AD E5 B3 32 2D E3 AD E6 B2 32 2D E3 AD E7 B1 32 2D
           15 19 06)
      COMMON-LISP::NIL :WIDTH :HEIGHT :DEPTH :PLIST :BITMAP-LIST 0. 1. 6.
      XLIB::IMAGE-XY 2. 3. 4. 5.)
   (#(XLIB::WIDTH (:WIDTH) 1. (COMMON-LISP::NIL . 0.) 0. XLIB::CARD16
      COMMON-LISP::T)
    #(XLIB::HEIGHT (:HEIGHT) 2. (COMMON-LISP::NIL . 0.) 0. XLIB::CARD16
      COMMON-LISP::T)
    #(XLIB::DEPTH (:DEPTH) 3. (COMMON-LISP::NIL . 1.) 1. XLIB::CARD8
      COMMON-LISP::T)
    #(XLIB::PLIST (:PLIST) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::LIST COMMON-LISP::NIL)
    #(XLIB::BITMAP-LIST (:BITMAP-LIST) 5. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::LIST COMMON-LISP::NIL))
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE XLIB::IMAGE-XY-P)
   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 00 02 DA AE 32 30 19 02)
      XLIB::IMAGE-XY)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-XY-WIDTH (XLIB::IMAGE-XY) XLIB::CARD16)
   (COMMON-LISP::INLINE XLIB::IMAGE-XY-WIDTH) XLIB::IMAGE-XY-WIDTH
   (#1=(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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-XY
      1.)
   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
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-XY
      2.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-XY-DEPTH (XLIB::IMAGE-XY) XLIB::CARD8)
   (COMMON-LISP::INLINE XLIB::IMAGE-XY-DEPTH) XLIB::IMAGE-XY-DEPTH
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-XY
      3.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-XY-PLIST (XLIB::IMAGE-XY)
    COMMON-LISP::LIST)
   (COMMON-LISP::INLINE XLIB::IMAGE-XY-PLIST) XLIB::IMAGE-XY-PLIST
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-XY
      4.)
   (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
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-XY
      5.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(XLIB::SETF-IMAGE-XY-PLIST
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-XY 4. COMMON-LISP::THE
      COMMON-LISP::LIST)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(XLIB::SETF-IMAGE-XY-BITMAP-LIST
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-XY 5. COMMON-LISP::THE
      COMMON-LISP::LIST)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:|41|
   #391Y(00 00 00 00 00 00 00 00 00 01 00 2B 02 DA DB DC 38 01 72 82 C8 5F 5D
         0B 00 00 C9 0B 00 01 DF 2F 06 DF AD 6D 07 01 32 80 DA DC 68 02 00 64
         DF E2 E3 E4 E5 E6 E7 E8 E9 68 0D 01 7B 01 EA E7 63 73 07 00 7B 06 68
         06 01 73 05 00 32 86 16 01 DA 2F 11 EC 31 59 ED 2F 06 ED EE EF 32 86
         ED F0 32 80 F1 31 59 F2 31 59 F3 2F 06 F3 EE F4 32 86 F3 F5 32 80 F3
         F6 DA 32 86 F7 31 59 65 1E 31 59 65 1F 2F 06 65 1F EE 65 20 32 86 65
         1F 65 21 32 80 65 1F F6 DA 32 86 65 22 31 59 65 23 31 59 65 24 2F 06
         65 24 EE 65 25 32 86 65 24 65 26 32 80 65 24 F6 DA 32 86 65 27 31 59
         65 28 31 59 65 29 2F 06 65 29 EE 65 2A 32 86 65 29 65 2B 32 80 65 29
         F6 DA 32 86 65 2C 31 59 65 2D 31 59 65 2E 2F 06 65 2E EE 65 2F 32 86
         65 2E 65 30 32 80 65 2E F6 DA 32 86 65 31 31 59 65 32 31 59 65 33 2F
         06 65 33 EE 65 34 32 86 65 33 65 35 32 80 65 33 F6 DA 32 86 65 29 65
         36 32 87 65 29 65 37 65 38 65 39 03 3A 7C 02 32 86 65 29 65 3B 63 2D
         03 3C 65 29 65 36 DA 32 86 65 2E 65 36 32 87 65 2E 65 37 65 38 65 39
         03 3D 7C 02 32 86 65 2E 65 3B 63 2D 03 3C 65 2E 65 36 DA 32 86 65 33
         65 36 32 87 65 33 65 37 65 38 65 39 03 3E 7C 02 32 86 65 33 65 3B 63
         2D 03 3C 65 33 65 36 DA 32 86 DA 65 3F 63 2D 03 3C DA 2F 40 C5 19 01)
   XLIB::IMAGE-Z XLIB::IMAGE SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   #Y(XLIB::DEFAULT-PIXARRAY #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01)
      #.XLIB::*EMPTY-DATA-Z*)
   XLIB::MAKE-IMAGE-Z SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::MAKE-IMAGE-Z
      #90Y(00 00 00 00 00 00 00 00 80 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 06 69 00 02 36 00 F9 69
           00 01 E3 72 2E E4 AD E2 B6 32 2D E4 AD E5 B5 32 2D E4 AD E6 B4 32 2D
           E4 AD E7 B3 32 2D E4 AD E8 B2 32 2D E4 AD E9 B1 32 2D 15 19 07)
      COMMON-LISP::NIL :WIDTH :HEIGHT :DEPTH :PLIST :BITS-PER-PIXEL :PIXARRAY
      0. 1. 7. XLIB::IMAGE-Z 2. 3. 4. 5. 6.)
   #(XLIB::WIDTH (:WIDTH) 1. (COMMON-LISP::NIL . 0.) 0. XLIB::CARD16
     COMMON-LISP::T)
   #(XLIB::HEIGHT (:HEIGHT) 2. (COMMON-LISP::NIL . 0.) 0. XLIB::CARD16
     COMMON-LISP::T)
   #(XLIB::DEPTH (:DEPTH) 3. (COMMON-LISP::NIL . 1.) 1. XLIB::CARD8
     COMMON-LISP::T)
   #(XLIB::PLIST (:PLIST) 4. (COMMON-LISP::NIL) COMMON-LISP::NIL
     COMMON-LISP::LIST COMMON-LISP::NIL)
   #(XLIB::BITS-PER-PIXEL (:BITS-PER-PIXEL) 5. (COMMON-LISP::NIL . 1.) 1.
     (COMMON-LISP::MEMBER 1. 4. 8. 16. 24. 32.) COMMON-LISP::NIL)
   XLIB::PIXARRAY (:PIXARRAY) 6.
   (COMMON-LISP::SVREF
    (COMMON-LISP::GET 'XLIB::IMAGE-Z 'SYSTEM::DEFSTRUCT-DESCRIPTION) 4.)
   CLOS::DEFINE-STRUCTURE-CLASS (COMMON-LISP::INLINE XLIB::IMAGE-Z-P)
   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 00 02 DA AE 32 30 19 02)
      XLIB::IMAGE-Z)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-Z-WIDTH (XLIB::IMAGE-Z) XLIB::CARD16)
   (COMMON-LISP::INLINE XLIB::IMAGE-Z-WIDTH) XLIB::IMAGE-Z-WIDTH
   (#1=(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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-Z
      1.)
   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
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-Z
      2.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-Z-DEPTH (XLIB::IMAGE-Z) XLIB::CARD8)
   (COMMON-LISP::INLINE XLIB::IMAGE-Z-DEPTH) XLIB::IMAGE-Z-DEPTH
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-Z
      3.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-Z-PLIST (XLIB::IMAGE-Z)
    COMMON-LISP::LIST)
   (COMMON-LISP::INLINE XLIB::IMAGE-Z-PLIST) XLIB::IMAGE-Z-PLIST
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-Z
      4.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-Z-BITS-PER-PIXEL (XLIB::IMAGE-Z)
    #2=(COMMON-LISP::MEMBER 1. 4. 8. 16. 24. 32.))
   (COMMON-LISP::INLINE XLIB::IMAGE-Z-BITS-PER-PIXEL)
   XLIB::IMAGE-Z-BITS-PER-PIXEL
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN XLIB::IMAGE-Z-BITS-PER-PIXEL))
    (COMMON-LISP::BLOCK XLIB::IMAGE-Z-BITS-PER-PIXEL
     (COMMON-LISP::THE #2#
      (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-Z
      5.)
   (COMMON-LISP::FUNCTION XLIB::IMAGE-Z-PIXARRAY (XLIB::IMAGE-Z)
    XLIB::PIXARRAY)
   (COMMON-LISP::INLINE XLIB::IMAGE-Z-PIXARRAY) XLIB::IMAGE-Z-PIXARRAY
   (#1# (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 00 02 DA AE DB 32 2C 19 02) XLIB::IMAGE-Z
      6.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(XLIB::SETF-IMAGE-Z-PLIST
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-Z 4. COMMON-LISP::THE
      COMMON-LISP::LIST)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(XLIB::SETF-IMAGE-Z-BITS-PER-PIXEL
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-Z 5. COMMON-LISP::THE #2#)
   #Y(XLIB::SETF-IMAGE-Z-PIXARRAY
      #26Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC DD DE B4 7B 03 61
           05 19 04)
      SYSTEM::%STRUCTURE-STORE 'XLIB::IMAGE-Z 6. COMMON-LISP::THE
      XLIB::PIXARRAY)
   COMMON-LISP::STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD)
#Y(#:|42| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::CREATE-IMAGE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::CREATE-IMAGE
      #840Y(00 00 00 00 00 00 00 00 80 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 2E 4E 03 1A FF 92 08 80 78 B3 24
            19 47 BD F5 90 01 31 46 BD F7 90 01 31 45 BD 65 1E 90 01 31 43 BD
            65 1F 90 01 31 41 BD F2 90 01 31 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
            1F 81 02 BC 71 05 F1 8F 00 80 FA BC 71 06 25 18 80 F3 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 38 AC AE 72 B3 AE 73 02 38 AC 65
            1E 81 B3 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 32 0C 65 1E B5 73 02 38 AD 72 B6
            8E 90 65 83 01 AD 8D 91 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 C6 BC 81 45 11 93 10 20 1B 11 94 10 F2 80 07 13 93 12 0E 1B
            13 93 11 69 93 10 0D 93 13 6C 92 12 07 94 10 65 25 80 07 12 DA C0
            DB C1 DE C0 DC C4 65 27 66 19 2D 0A 28 1B 81 8D 03 1C 1B 81 03 03
            1B 1B 80 FE 03 1D 1B 80 F9 03 1E 1B 80 F4 03 1F 1B 80 EF BC 8E 09
            FF BD BC 8F 1E 0D BC 71 05 25 29 07 BC 71 06 24 2A 80 5D BC 8F 1E
            0F BC 71 05 65 2B 8F 00 07 BC 71 06 24 2A 80 4A BC 8F 1E 0D BC 71
            05 F1 8F 00 06 BC 71 06 24 2A 39 BC 8F 1E 0E BC 71 05 65 2C 8F 00
            06 BC 71 06 24 2A 27 BC 8F 1E 0E BC 71 05 65 2D 8F 00 06 BC 71 06
            24 2A 15 BC 8F 1E 80 A6 BC 71 05 65 2D 8F 00 80 9D BC 71 06 25 2A
            80 96 93 13 80 D3 93 12 80 D8 92 08 80 DE BC 8F 1E 0F BC 71 05 65
            2D 8F 00 07 BC 71 06 24 2A FF 55 BC 8F 1E 0F BC 71 05 65 2D 8F 00
            07 BC 71 06 24 2A FF 47 BC 8F 1E 0F BC 71 05 65 2C 8F 00 07 BC 71
            06 24 2A FF 39 BC 8F 1E 0E BC 71 05 F1 8F 00 07 BC 71 06 24 2A FF
            2C BC 8F 1E 0F BC 71 05 65 2B 8F 00 07 BC 71 06 24 2A FF 1E BC 8F
            1E 17 BC 71 05 25 29 11 BC 71 06 25 2A 0B 03 18 09 08 93 11 80 6B
            1B 80 6B 65 2E 65 2F BE 65 30 65 31 2E 32 14 EE 03 33 1B 0F 65 2E
            65 2F BE 65 30 65 37 2E 32 14 EE 03 38 14 70 34 C3 33 06 1F 14 AD
            30 39 93 0E 80 56 14 AD 30 3A 93 0D 80 52 14 AD 30 3B 93 0C 80 4E
            14 AD 30 3C 93 0B 80 4A 14 AD 30 3D 93 0A 80 49 1B 80 42 BC F2 80
            07 13 92 12 FF 28 BC 65 25 80 07 12 93 08 FF 22 92 11 03 A5 09 11
            DA C0 DB C1 DC C2 DE C2 E5 BD 65 35 66 1B 2D 0C 36 14 92 0F FF A6
            92 0E FF AA 92 0D FF AE 92 0C FF B2 92 0B FF B6 93 0A 04 14 AD 30
            3E 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
      #.(COMMON-LISP::NOT SYSTEM::*BIG-ENDIAN*)
      #.(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.) COMMON-LISP::TYPE-ERROR :DATUM
      :EXPECTED-TYPE
      (COMMON-LISP::OR XLIB::PIXARRAY-32 XLIB::PIXARRAY-24 XLIB::PIXARRAY-16
       XLIB::PIXARRAY-8 XLIB::PIXARRAY-4 XLIB::PIXARRAY-1)
      SYSTEM::TYPE-ERROR-STRING
      (XLIB::PIXARRAY-32 XLIB::PIXARRAY-24 XLIB::PIXARRAY-16 XLIB::PIXARRAY-8
       XLIB::PIXARRAY-4 XLIB::PIXARRAY-1)
      SYSTEM::TYPECASE-ERROR-STRING :PIXARRAY XLIB::MAKE-IMAGE-Z
      (COMMON-LISP::OR XLIB::BUFFER-BYTES COMMON-LISP::LIST XLIB::PIXARRAY)
      (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)))
#Y(#:|43| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::BITMAP-IMAGE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::BITMAP-IMAGE
      #96Y(00 00 00 00 00 00 01 00 01 00 3D 02 AE 8E 09 05 AE 84 01 7D 02 94 01
           72 45 AE 72 45 AC AE 7B 02 38 07 C5 FD 71 1C 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
           33 6A 16 01 85 02 83 01 AD 8D 91 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))
#Y(#:|44| #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   XLIB::IMAGE-PIXMAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(XLIB::IMAGE-PIXMAP
      #195Y(00 00 00 00 02 00 00 00 80 1D 04 00 00 00 3D 04 3D 03 3D 02 3D 01
            B1 6F 04 B2 6F 05 B3 6F 06 92 06 01 9F 14 92 06 01 9F 14 92 06 01
            9F 14 E1 B9 DB B1 DC B2 DD B3 6E 08 08 92 0B 09 E1 AD E3 E4 E5 E6
            2D 06 0D 14 AE B2 90 01 2E 09 B1 E4 91 01 2E 1F 93 0C 17 AD AD BB
            EB E6 EC E6 ED B9 E4 91 01 2E 02 04 14 14 2D 09 14 B3 1B 23 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 82 02 36 08 AC B5 82 02 36 00 AC B2 91 01 33 62 16 01 B2 1B 18
            AE AE E6 E6 B8 B8 B4 E6 B4 2D 09 15 B3 B4 82 02 36 07 AC B4 82 02
            36 00 AC B1 91 01 33 62 16 01 92 0C 03 AC 2F 16 9E 19 0F)
      :GCONTEXT :WIDTH :HEIGHT :DEPTH XLIB::IMAGE-WIDTH XLIB::IMAGE-HEIGHT
      XLIB::IMAGE-DEPTH :DRAWABLE XLIB::CREATE-PIXMAP :FOREGROUND 1.
      :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))
