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