(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
   PROVIDE
  )
#Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 00 00 00 00 01 DA DB 31 DA 19 01)
   (:LISP :CLOS) :XLIB
  )
#Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 03 31 DE 19 01)
   :XLIB
  )
#Y(#:TOP-LEVEL-FORM-4
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19 01
       )
   (SPECIAL *DISPLAYS*) *DISPLAYS*
  )
#Y(#:TOP-LEVEL-FORM-5
   #18Y(00 00 00 00 00 00 00 00 00 01 DA 0E 01 5D 0F 01 19 01) :CLX *FEATURES*
  )
#Y(#:TOP-LEVEL-FORM-6
   #18Y(00 00 00 00 00 00 00 00 00 01 DA 0E 01 5D 0F 01 19 01)
   :CLX-ANSI-COMMON-LISP *FEATURES*
  )
#Y(#:TOP-LEVEL-FORM-7 #15Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 19 01)
   (DECLARATION VALUES)
  )
#Y(#:TOP-LEVEL-FORM-8
   #32Y(00 00 00 00 00 00 00 00 00 01 DA 8D 5D 0B DB DA 71 4D 8A 02 04 DA DD 30
        04 DA DB 32 80 C5 19 01
       )
   *VERSION* #1="CLISP-CLX 1997-06-12" SYSTEM::LOOSE-CONSTANT-EQL
   (DEFCONSTANT *VERSION* #1#) SYSTEM::CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-9 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (*VERSION* ACCESS-CONTROL ACCESS-ERROR ACCESS-HOSTS ACTIVATE-SCREEN-SAVER
     ADD-ACCESS-HOST ADD-RESOURCE ADD-TO-SAVE-SET ALIST ALLOC-COLOR
     ALLOC-COLOR-CELLS ALLOC-COLOR-PLANES ALLOC-ERROR ALLOW-EVENTS ANGLE
     ARC-SEQ ARRAY-INDEX ATOM-ERROR ATOM-NAME BELL BIT-GRAVITY BITMAP
     BITMAP-FORMAT BITMAP-FORMAT-LSB-FIRST-P BITMAP-FORMAT-P BITMAP-FORMAT-PAD
     BITMAP-FORMAT-UNIT BITMAP-IMAGE BOOLE-CONSTANT BOOLEAN CARD16 CARD29
     CARD32 CARD8 CARD8->CHAR CHANGE-ACTIVE-POINTER-GRAB
     CHANGE-KEYBOARD-CONTROL CHANGE-KEYBOARD-MAPPING CHANGE-POINTER-CONTROL
     CHANGE-PROPERTY CHAR->CARD8 CHAR-ASCENT CHAR-ATTRIBUTES CHAR-DESCENT
     CHAR-LEFT-BEARING CHAR-RIGHT-BEARING CHAR-WIDTH CHARACTER->KEYSYMS
     CHARACTER-IN-MAP-P CIRCULATE-WINDOW-DOWN CIRCULATE-WINDOW-UP CLEAR-AREA
     CLOSE-DISPLAY CLOSE-DOWN-MODE CLOSE-FONT CLOSED-DISPLAY COLOR COLOR-BLUE
     COLOR-GREEN COLOR-P COLOR-RED COLOR-RGB COLORMAP COLORMAP-DISPLAY
     COLORMAP-EQUAL COLORMAP-ERROR COLORMAP-ID COLORMAP-P COLORMAP-PLIST
     COLORMAP-VISUAL-INFO CONNECTION-FAILURE CONVERT-SELECTION COPY-AREA
     COPY-COLORMAP-AND-FREE COPY-GCONTEXT COPY-GCONTEXT-COMPONENTS COPY-IMAGE
     COPY-PLANE CREATE-COLORMAP CREATE-CURSOR CREATE-GCONTEXT
     CREATE-GLYPH-CURSOR CREATE-IMAGE CREATE-PIXMAP CREATE-WINDOW CURSOR
     CURSOR-DISPLAY CURSOR-EQUAL CURSOR-ERROR CURSOR-ID CURSOR-P CURSOR-PLIST
     CUT-BUFFER DECLARE-EVENT DECODE-CORE-ERROR DEFAULT-ERROR-HANDLER
     DEFAULT-KEYSYM-INDEX DEFAULT-KEYSYM-TRANSLATE DEFINE-ERROR
     DEFINE-EXTENSION DEFINE-GCONTEXT-ACCESSOR DEFINE-KEYSYM DEFINE-KEYSYM-SET
     DELETE-PROPERTY DELETE-RESOURCE DESTROY-SUBWINDOWS DESTROY-WINDOW
     DEVICE-BUSY DEVICE-EVENT-MASK DEVICE-EVENT-MASK-CLASS
     DISCARD-CURRENT-EVENT DISCARD-FONT-INFO DISPLAY DISPLAY-AFTER-FUNCTION
     DISPLAY-AUTHORIZATION-DATA DISPLAY-AUTHORIZATION-NAME
     DISPLAY-BITMAP-FORMAT DISPLAY-BYTE-ORDER DISPLAY-DEFAULT-SCREEN
     DISPLAY-DISPLAY DISPLAY-ERROR-HANDLER DISPLAY-FINISH-OUTPUT
     DISPLAY-FORCE-OUTPUT DISPLAY-HOST DISPLAY-IMAGE-LSB-FIRST-P
     DISPLAY-INVOKE-AFTER-FUNCTION DISPLAY-KEYCODE-RANGE DISPLAY-MAX-KEYCODE
     DISPLAY-MAX-REQUEST-LENGTH DISPLAY-MIN-KEYCODE DISPLAY-MOTION-BUFFER-SIZE
     DISPLAY-NSCREENS DISPLAY-P DISPLAY-PIXMAP-FORMATS DISPLAY-PLIST
     DISPLAY-PROTOCOL-MAJOR-VERSION DISPLAY-PROTOCOL-MINOR-VERSION
     DISPLAY-PROTOCOL-VERSION DISPLAY-RELEASE-NUMBER
     DISPLAY-REPORT-ASYNCHRONOUS-ERRORS DISPLAY-RESOURCE-ID-BASE
     DISPLAY-RESOURCE-ID-MASK DISPLAY-ROOTS DISPLAY-VENDOR DISPLAY-VENDOR-NAME
     DISPLAY-XID DRAW-ARC DRAW-ARCS DRAW-DIRECTION DRAW-GLYPH DRAW-GLYPHS
     DRAW-IMAGE-GLYPH DRAW-IMAGE-GLYPHS DRAW-LINE DRAW-LINES DRAW-POINT
     DRAW-POINTS DRAW-RECTANGLE DRAW-RECTANGLES DRAW-SEGMENTS DRAWABLE
     DRAWABLE-BORDER-WIDTH DRAWABLE-DEPTH DRAWABLE-DISPLAY DRAWABLE-EQUAL
     DRAWABLE-ERROR DRAWABLE-HEIGHT DRAWABLE-ID DRAWABLE-P DRAWABLE-PLIST
     DRAWABLE-ROOT DRAWABLE-WIDTH DRAWABLE-X DRAWABLE-Y ERROR-KEY EVENT-CASE
     EVENT-COND EVENT-HANDLER EVENT-KEY EVENT-LISTEN EVENT-MASK
     EVENT-MASK-CLASS EXTENSION-OPCODE FIND-ATOM FONT FONT-ALL-CHARS-EXIST-P
     FONT-ASCENT FONT-DEFAULT-CHAR FONT-DESCENT FONT-DIRECTION FONT-DISPLAY
     FONT-EQUAL FONT-ERROR FONT-ID FONT-MAX-BYTE1 FONT-MAX-BYTE2 FONT-MAX-CHAR
     FONT-MIN-BYTE1 FONT-MIN-BYTE2 FONT-MIN-CHAR FONT-NAME FONT-P FONT-PATH
     FONT-PLIST FONT-PROPERTIES FONT-PROPERTY FONTABLE FORCE-GCONTEXT-CHANGES
     FREE-COLORMAP FREE-COLORS FREE-CURSOR FREE-GCONTEXT FREE-PIXMAP GCONTEXT
     GCONTEXT-ARC-MODE GCONTEXT-BACKGROUND GCONTEXT-CACHE-P GCONTEXT-CAP-STYLE
     GCONTEXT-CLIP-MASK GCONTEXT-CLIP-ORDERING GCONTEXT-CLIP-X GCONTEXT-CLIP-Y
     GCONTEXT-DASH-OFFSET GCONTEXT-DASHES GCONTEXT-DISPLAY GCONTEXT-EQUAL
     GCONTEXT-ERROR GCONTEXT-EXPOSURES GCONTEXT-FILL-RULE GCONTEXT-FILL-STYLE
     GCONTEXT-FONT GCONTEXT-FOREGROUND GCONTEXT-FUNCTION GCONTEXT-ID
     GCONTEXT-JOIN-STYLE GCONTEXT-KEY GCONTEXT-LINE-STYLE GCONTEXT-LINE-WIDTH
     GCONTEXT-P GCONTEXT-PLANE-MASK GCONTEXT-PLIST GCONTEXT-STIPPLE
     GCONTEXT-SUBWINDOW-MODE GCONTEXT-TILE GCONTEXT-TS-X GCONTEXT-TS-Y
     GET-EXTERNAL-EVENT-CODE GET-IMAGE GET-PROPERTY GET-RAW-IMAGE GET-RESOURCE
     GET-SEARCH-RESOURCE GET-SEARCH-TABLE GET-STANDARD-COLORMAP GET-WM-CLASS
     GLOBAL-POINTER-POSITION GRAB-BUTTON GRAB-KEY GRAB-KEYBOARD GRAB-POINTER
     GRAB-SERVER GRAB-STATUS ICON-SIZES ICONIFY-WINDOW ID-CHOICE-ERROR
     ILLEGAL-REQUEST-ERROR IMAGE IMAGE-BLUE-MASK IMAGE-DEPTH IMAGE-GREEN-MASK
     IMAGE-HEIGHT IMAGE-NAME IMAGE-PIXMAP IMAGE-PLIST IMAGE-RED-MASK
     IMAGE-WIDTH IMAGE-X IMAGE-X-HOT IMAGE-X-P IMAGE-XY IMAGE-XY-BITMAP-LIST
     IMAGE-XY-P IMAGE-Y-HOT IMAGE-Z IMAGE-Z-BITS-PER-PIXEL IMAGE-Z-P
     IMAGE-Z-PIXARRAY IMPLEMENTATION-ERROR INPUT-FOCUS INSTALL-COLORMAP
     INSTALLED-COLORMAPS INT16 INT32 INT8 INTERN-ATOM INVALID-FONT
     KEYBOARD-CONTROL KEYBOARD-MAPPING KEYCODE->CHARACTER KEYCODE->KEYSYM
     KEYSYM KEYSYM->CHARACTER KEYSYM->KEYCODES KEYSYM-IN-MAP-P KEYSYM-SET
     KILL-CLIENT KILL-TEMPORARY-CLIENTS LENGTH-ERROR LIST-EXTENSIONS
     LIST-FONT-NAMES LIST-FONTS LIST-PROPERTIES LOOKUP-COLOR LOOKUP-ERROR
     MAKE-COLOR MAKE-EVENT-HANDLERS MAKE-EVENT-KEYS MAKE-EVENT-MASK
     MAKE-RESOURCE-DATABASE MAKE-STATE-KEYS MAKE-STATE-MASK MAKE-WM-HINTS
     MAKE-WM-SIZE-HINTS MAP-RESOURCE MAP-SUBWINDOWS MAP-WINDOW MAPPING-NOTIFY
     MASK16 MASK32 MATCH-ERROR MAX-CHAR-ASCENT MAX-CHAR-ATTRIBUTES
     MAX-CHAR-DESCENT MAX-CHAR-LEFT-BEARING MAX-CHAR-RIGHT-BEARING
     MAX-CHAR-WIDTH MERGE-RESOURCES MIN-CHAR-ASCENT MIN-CHAR-ATTRIBUTES
     MIN-CHAR-DESCENT MIN-CHAR-LEFT-BEARING MIN-CHAR-RIGHT-BEARING
     MIN-CHAR-WIDTH MISSING-PARAMETER MODIFIER-KEY MODIFIER-MAPPING
     MODIFIER-MASK MOTION-EVENTS NAME-ERROR NO-OPERATION OPEN-DISPLAY OPEN-FONT
     PIXARRAY PIXEL PIXMAP PIXMAP-DISPLAY PIXMAP-EQUAL PIXMAP-ERROR
     PIXMAP-FORMAT PIXMAP-FORMAT-BITS-PER-PIXEL PIXMAP-FORMAT-DEPTH
     PIXMAP-FORMAT-P PIXMAP-FORMAT-SCANLINE-PAD PIXMAP-ID PIXMAP-P PIXMAP-PLIST
     POINT-SEQ POINTER-CONTROL POINTER-EVENT-MASK POINTER-EVENT-MASK-CLASS
     POINTER-MAPPING POINTER-POSITION PROCESS-EVENT PUT-IMAGE PUT-RAW-IMAGE
     QUERY-BEST-CURSOR QUERY-BEST-STIPPLE QUERY-BEST-TILE QUERY-COLORS
     QUERY-EXTENSION QUERY-KEYMAP QUERY-POINTER QUERY-TREE QUEUE-EVENT
     READ-BITMAP-FILE READ-RESOURCES RECOLOR-CURSOR RECT-SEQ REMOVE-ACCESS-HOST
     REMOVE-FROM-SAVE-SET REPARENT-WINDOW REPEAT-SEQ REPLY-LENGTH-ERROR
     REPLY-TIMEOUT REQUEST-ERROR RESET-SCREEN-SAVER RESOURCE-DATABASE
     RESOURCE-DATABASE-TIMESTAMP RESOURCE-ERROR RESOURCE-ID RESOURCE-KEY
     RGB-COLORMAPS RGB-VAL ROOT-RESOURCES ROTATE-CUT-BUFFERS ROTATE-PROPERTIES
     SCREEN SCREEN-BACKING-STORES SCREEN-BLACK-PIXEL SCREEN-DEFAULT-COLORMAP
     SCREEN-DEPTHS SCREEN-EVENT-MASK-AT-OPEN SCREEN-HEIGHT
     SCREEN-HEIGHT-IN-MILLIMETERS SCREEN-MAX-INSTALLED-MAPS
     SCREEN-MIN-INSTALLED-MAPS SCREEN-P SCREEN-PLIST SCREEN-ROOT
     SCREEN-ROOT-DEPTH SCREEN-ROOT-VISUAL SCREEN-ROOT-VISUAL-INFO
     SCREEN-SAVE-UNDERS-P SCREEN-SAVER SCREEN-WHITE-PIXEL SCREEN-WIDTH
     SCREEN-WIDTH-IN-MILLIMETERS SEG-SEQ SELECTION-OWNER SEND-EVENT
     SEQUENCE-ERROR SET-ACCESS-CONTROL SET-CLOSE-DOWN-MODE SET-INPUT-FOCUS
     SET-MODIFIER-MAPPING SET-POINTER-MAPPING SET-SCREEN-SAVER
     SET-SELECTION-OWNER SET-STANDARD-COLORMAP SET-STANDARD-PROPERTIES
     SET-WM-CLASS SET-WM-PROPERTIES SET-WM-RESOURCES STATE-KEYSYM-P
     STATE-MASK-KEY STORE-COLOR STORE-COLORS STRINGABLE TEXT-EXTENTS TEXT-WIDTH
     TIMESTAMP TRANSIENT-FOR TRANSLATE-COORDINATES TRANSLATE-DEFAULT
     TRANSLATION-FUNCTION TYPE-ERROR UNDEFINE-KEYSYM UNEXPECTED-REPLY
     UNGRAB-BUTTON UNGRAB-KEY UNGRAB-KEYBOARD UNGRAB-POINTER UNGRAB-SERVER
     UNINSTALL-COLORMAP UNKNOWN-ERROR UNMAP-SUBWINDOWS UNMAP-WINDOW VALUE-ERROR
     VISUAL-INFO VISUAL-INFO-BITS-PER-RGB VISUAL-INFO-BLUE-MASK
     VISUAL-INFO-CLASS VISUAL-INFO-COLORMAP-ENTRIES VISUAL-INFO-DISPLAY
     VISUAL-INFO-GREEN-MASK VISUAL-INFO-ID VISUAL-INFO-P VISUAL-INFO-PLIST
     VISUAL-INFO-RED-MASK WARP-POINTER WARP-POINTER-IF-INSIDE
     WARP-POINTER-RELATIVE WARP-POINTER-RELATIVE-IF-INSIDE WIN-GRAVITY WINDOW
     WINDOW-ALL-EVENT-MASKS WINDOW-BACKGROUND WINDOW-BACKING-PIXEL
     WINDOW-BACKING-PLANES WINDOW-BACKING-STORE WINDOW-BIT-GRAVITY
     WINDOW-BORDER WINDOW-CLASS WINDOW-COLORMAP WINDOW-COLORMAP-INSTALLED-P
     WINDOW-CURSOR WINDOW-DISPLAY WINDOW-DO-NOT-PROPAGATE-MASK WINDOW-EQUAL
     WINDOW-ERROR WINDOW-EVENT-MASK WINDOW-GRAVITY WINDOW-ID WINDOW-MAP-STATE
     WINDOW-OVERRIDE-REDIRECT WINDOW-P WINDOW-PLIST WINDOW-PRIORITY
     WINDOW-SAVE-UNDER WINDOW-VISUAL WINDOW-VISUAL-INFO WITH-DISPLAY
     WITH-EVENT-QUEUE WITH-GCONTEXT WITH-SERVER-GRABBED WITH-STATE
     WITHDRAW-WINDOW WM-CLIENT-MACHINE WM-COLORMAP-WINDOWS WM-COMMAND WM-HINTS
     WM-HINTS-FLAGS WM-HINTS-ICON-MASK WM-HINTS-ICON-PIXMAP
     WM-HINTS-ICON-WINDOW WM-HINTS-ICON-X WM-HINTS-ICON-Y
     WM-HINTS-INITIAL-STATE WM-HINTS-INPUT WM-HINTS-P WM-HINTS-WINDOW-GROUP
     WM-ICON-NAME WM-NAME WM-NORMAL-HINTS WM-PROTOCOLS WM-RESOURCES
     WM-SIZE-HINTS WM-SIZE-HINTS-BASE-HEIGHT WM-SIZE-HINTS-BASE-WIDTH
     WM-SIZE-HINTS-HEIGHT WM-SIZE-HINTS-HEIGHT-INC WM-SIZE-HINTS-MAX-ASPECT
     WM-SIZE-HINTS-MAX-HEIGHT WM-SIZE-HINTS-MAX-WIDTH WM-SIZE-HINTS-MIN-ASPECT
     WM-SIZE-HINTS-MIN-HEIGHT WM-SIZE-HINTS-MIN-WIDTH WM-SIZE-HINTS-P
     WM-SIZE-HINTS-USER-SPECIFIED-POSITION-P
     WM-SIZE-HINTS-USER-SPECIFIED-SIZE-P WM-SIZE-HINTS-WIDTH
     WM-SIZE-HINTS-WIDTH-INC WM-SIZE-HINTS-WIN-GRAVITY WM-SIZE-HINTS-X
     WM-SIZE-HINTS-Y WM-ZOOM-HINTS WRITE-BITMAP-FILE WRITE-RESOURCES XATOM
     TRACE-DISPLAY SUSPEND-DISPLAY-TRACING RESUME-DISPLAY-TRACING
     UNTRACE-DISPLAY SHOW-TRACE DISPLAY-TRACE DESCRIBE-ERROR DESCRIBE-TRACE
  ))
#Y(#:TOP-LEVEL-FORM-10 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (SHAPE-VERSION SHAPE-COMBINE SHAPE-OFFSET SHAPE-EXTENTS SHAPE-RECTANGLES)
  )
#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
       )
   CARD4 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-CARD4
      #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-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
       )
   CARD8 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-CARD8
      #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-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
       )
   CARD16 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-CARD16
      #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-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
       )
   CARD24 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-CARD24
      #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-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
       )
   CARD29 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-CARD29
      #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 29.)
     )
   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
       )
   CARD32 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-CARD32
      #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-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
       )
   INT8 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-INT8
      #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 (SIGNED-BYTE 8.)
     )
   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
       )
   INT16 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-INT16
      #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 (SIGNED-BYTE 16.)
     )
   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
       )
   INT32 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-INT32
      #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 (SIGNED-BYTE 32.)
     )
   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
       )
   RGB-VAL SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-RGB-VAL
      #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 (REAL 0. 1.)
     )
   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
       )
   STRINGABLE SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-STRINGABLE
      #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 STRING SYMBOL)
     )
   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
       )
   FONTABLE SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-FONTABLE
      #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 STRINGABLE FONT)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-23
   #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
       )
   ARRAY-INDEX SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-ARRAY-INDEX
      #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 (INTEGER 0. 16777216.)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-24
   #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
       )
   ANGLE SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-ANGLE
      #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
      (REAL -6.283185307179586477L0 6.283185307179586477L0)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-25
   #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
       )
   MASK32 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-MASK32
      #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 CARD32
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-26
   #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
       )
   MASK16 SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-MASK16
      #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 CARD16
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-27
   #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
       )
   PIXEL SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-PIXEL
      #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-28
   #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
       )
   IMAGE-DEPTH SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-IMAGE-DEPTH
      #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 (INTEGER 0. 32.)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-29
   #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
       )
   RESOURCE-ID SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-RESOURCE-ID
      #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 CARD29
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-30
   #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
       )
   KEYSYM SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-KEYSYM
      #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 CARD32
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-31
   #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
       )
   ALIST SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-ALIST
      #26Y(00 00 00 00 01 00 00 00 00 02 AD 72 44 DA 90 01 2E 03 C7 19 02 AD 2F
           01 19 02
          )
      3. SYSTEM::TYPE-CALL-ERROR LIST
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-32
   #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
       )
   REPEAT-SEQ SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-REPEAT-SEQ #13Y(00 00 00 00 01 00 00 00 00 02 C5 19 02)
      SEQUENCE
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-33
   #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
       )
   POINT-SEQ SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-POINT-SEQ
      #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 (REPEAT-SEQ (INT16 X) (INT16 Y))
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-34
   #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
       )
   SEG-SEQ SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-SEG-SEQ
      #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
      (REPEAT-SEQ (INT16 X1) (INT16 Y1) (INT16 X2) (INT16 Y2))
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-35
   #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
       )
   RECT-SEQ SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-RECT-SEQ
      #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
      (REPEAT-SEQ (INT16 X) (INT16 Y) (CARD16 WIDTH) (CARD16 HEIGHT))
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-36
   #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
       )
   ARC-SEQ SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-ARC-SEQ
      #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
      (REPEAT-SEQ (INT16 X) (INT16 Y) (CARD16 WIDTH) (CARD16 HEIGHT)
        (ANGLE ANGLE1) (ANGLE ANGLE2)
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-37
   #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
       )
   TIMESTAMP SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-TIMESTAMP
      #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 NULL CARD32)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-38
   #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
       )
   BIT-GRAVITY SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-BIT-GRAVITY
      #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
      (MEMBER :FORGET :NORTH-WEST :NORTH :NORTH-EAST :WEST :CENTER :EAST
        :SOUTH-WEST :SOUTH :SOUTH-EAST :STATIC
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-39
   #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
       )
   BOOLE-CONSTANT SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-BOOLE-CONSTANT
      #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
      (MEMBER 0. 8. 2. 10. 4. 12. 6. 14. 1. 9. 3. 11. 5. 13. 7. 15.)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-40
   #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
       )
   DEVICE-EVENT-MASK SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-DEVICE-EVENT-MASK
      #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 MASK32 LIST)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-41
   #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
       )
   DEVICE-EVENT-MASK-CLASS SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-DEVICE-EVENT-MASK-CLASS
      #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
      (MEMBER :KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE
        :POINTER-MOTION :BUTTON-1-MOTION :BUTTON-2-MOTION :BUTTON-3-MOTION
        :BUTTON-4-MOTION :BUTTON-5-MOTION :BUTTON-MOTION
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-42
   #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
       )
   DRAW-DIRECTION SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-DRAW-DIRECTION
      #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 (MEMBER :LEFT-TO-RIGHT :RIGHT-TO-LEFT)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-43
   #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
       )
   ERROR-KEY SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-ERROR-KEY
      #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
      (MEMBER :ACCESS :ALLOC :ATOM :COLORMAP :CURSOR :DRAWABLE :FONT :GCONTEXT
        :ID-CHOICE :ILLEGAL-REQUEST :IMPLEMENTATION :LENGTH :MATCH :NAME
        :PIXMAP :VALUE :WINDOW
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-44
   #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
       )
   GCONTEXT-KEY SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-GCONTEXT-KEY
      #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
      (MEMBER :FUNCTION :PLANE-MASK :FOREGROUND :BACKGROUND :LINE-WIDTH
        :LINE-STYLE :CAP-STYLE :JOIN-STYLE :FILL-STYLE :FILL-RULE :TILE
        :STIPPLE :TS-X :TS-Y :FONT :SUBWINDOW-MODE :EXPOSURES :CLIP-X :CLIP-Y
        :CLIP-MASK :DASH-OFFSET :DASHES :ARC-MODE
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-45
   #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
       )
   EVENT-KEY SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-EVENT-KEY
      #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
      (MEMBER :KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE
        :MOTION-NOTIFY :ENTER-NOTIFY :LEAVE-NOTIFY :FOCUS-IN :FOCUS-OUT
        :KEYMAP-NOTIFY :EXPOSURE :GRAPHICS-EXPOSURE :NO-EXPOSURE
        :VISIBILITY-NOTIFY :CREATE-NOTIFY :DESTROY-NOTIFY :UNMAP-NOTIFY
        :MAP-NOTIFY :MAP-REQUEST :REPARENT-NOTIFY :CONFIGURE-NOTIFY
        :GRAVITY-NOTIFY :RESIZE-REQUEST :CONFIGURE-REQUEST :CIRCULATE-NOTIFY
        :CIRCULATE-REQUEST :PROPERTY-NOTIFY :SELECTION-CLEAR :SELECTION-REQUEST
        :SELECTION-NOTIFY :COLORMAP-NOTIFY :CLIENT-MESSAGE :MAPPING-NOTIFY
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-46
   #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
       )
   EVENT-MASK-CLASS SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-EVENT-MASK-CLASS
      #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
      (MEMBER :KEY-PRESS :KEY-RELEASE :OWNER-GRAB-BUTTON :BUTTON-PRESS
        :BUTTON-RELEASE :ENTER-WINDOW :LEAVE-WINDOW :POINTER-MOTION
        :POINTER-MOTION-HINT :BUTTON-1-MOTION :BUTTON-2-MOTION :BUTTON-3-MOTION
        :BUTTON-4-MOTION :BUTTON-5-MOTION :BUTTON-MOTION :EXPOSURE
        :VISIBILITY-CHANGE :STRUCTURE-NOTIFY :RESIZE-REDIRECT
        :SUBSTRUCTURE-NOTIFY :SUBSTRUCTURE-REDIRECT :FOCUS-CHANGE
        :PROPERTY-CHANGE :COLORMAP-CHANGE :KEYMAP-STATE
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-47
   #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
       )
   EVENT-MASK SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-EVENT-MASK
      #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 MASK32 LIST)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-48
   #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
       )
   GRAB-STATUS SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-GRAB-STATUS
      #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
      (MEMBER :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-49
   #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
       )
   MODIFIER-KEY SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-MODIFIER-KEY
      #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
      (MEMBER :SHIFT :LOCK :CONTROL :MOD-1 :MOD-2 :MOD-3 :MOD-4 :MOD-5)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-50
   #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
       )
   MODIFIER-MASK SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-MODIFIER-MASK
      #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 (MEMBER :ANY) MASK16 LIST)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-51
   #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
       )
   STATE-MASK-KEY SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-STATE-MASK-KEY
      #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 MODIFIER-KEY
        (MEMBER :BUTTON-1 :BUTTON-2 :BUTTON-3 :BUTTON-4 :BUTTON-5)
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-52
   #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
       )
   TRANSLATION-FUNCTION SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-TRANSLATION-FUNCTION
      #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
      (FUNCTION
        (SEQUENCE ARRAY-INDEX ARRAY-INDEX (OR NULL FONT) VECTOR ARRAY-INDEX)
        (VALUES ARRAY-INDEX (OR NULL INT16 FONT) (OR NULL INT32))
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-53
   #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
       )
   WIN-GRAVITY SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-WIN-GRAVITY
      #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
      (MEMBER :UNMAP :NORTH-WEST :NORTH :NORTH-EAST :WEST :CENTER :EAST
        :SOUTH-WEST :SOUTH :SOUTH-EAST :STATIC
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-54
   #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
       )
   XATOM SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-XATOM
      #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 STRING SYMBOL)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-55
   #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
       )
   POINTER-EVENT-MASK-CLASS SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-POINTER-EVENT-MASK-CLASS
      #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
      (MEMBER :BUTTON-PRESS :BUTTON-RELEASE :ENTER-WINDOW :LEAVE-WINDOW
        :POINTER-MOTION :POINTER-MOTION-HINT :BUTTON-1-MOTION :BUTTON-2-MOTION
        :BUTTON-3-MOTION :BUTTON-4-MOTION :BUTTON-5-MOTION :BUTTON-MOTION
        :KEYMAP-STATE
     ))
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-56
   #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
       )
   POINTER-EVENT-MASK SYSTEM::DEFTYPE-EXPANDER
   #Y(#:DEFTYPE-POINTER-EVENT-MASK
      #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 MASK32 LIST)
     )
   TYPE SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-57
   #270Y(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 2F 05 E9 E5 EA 32 85 E9 EB 32 7F EC 31 59 ED 31 59 EE 2F
         05 EE E5 EF 32 85 EE F0 32 7F EE F1 DA 32 85 F2 31 59 F3 31 59 F4 2F
         05 F4 E5 F5 32 85 F4 F6 32 7F F4 F1 DA 32 85 F7 31 59 65 1E 31 59 65
         1F 2F 05 65 1F E5 65 20 32 85 65 1F 65 21 32 7F 65 1F F1 DA 32 85 EE
         65 22 32 86 EE 65 23 65 24 65 25 03 26 7C 02 32 85 EE 65 27 63 2D 03
         28 EE 65 22 DA 32 85 F4 65 22 32 86 F4 65 23 65 24 65 25 03 29 7C 02
         32 85 F4 65 27 63 2D 03 28 F4 65 22 DA 32 85 65 1F 65 22 32 86 65 1F
         65 23 65 24 65 25 03 2A 7C 02 32 85 65 1F 65 27 63 2D 03 28 65 1F 65
         22 DA 32 85 DA 65 2B 63 2D 03 28 DA 2F 2C C5 19 01
        )
   BITMAP-FORMAT STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   MAKE-BITMAP-FORMAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-BITMAP-FORMAT
      #47Y(00 00 00 00 00 00 00 00 80 1B 03 00 01 00 3D 03 3D 02 3D 01 69 00 01
           DE 72 2E DF AD E0 B3 32 2D DF AD E1 B2 32 2D DF AD E2 B1 32 2D 15 19
           04
          )
      NIL :UNIT :PAD :LSB-FIRST-P 4. BITMAP-FORMAT 1. 2. 3.
     )
   (#(UNIT (:UNIT) 1. (NIL) NIL T NIL) #(PAD (:PAD) 2. (NIL) NIL T NIL)
     #(LSB-FIRST-P (:LSB-FIRST-P) 3. (NIL) NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE BITMAP-FORMAT-P) BITMAP-FORMAT-P
   SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN BITMAP-FORMAT-P))
     (BLOCK BITMAP-FORMAT-P
       (SYSTEM::%STRUCTURE-TYPE-P 'BITMAP-FORMAT SYSTEM::OBJECT)
   ) )
   #Y(BITMAP-FORMAT-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      BITMAP-FORMAT
     )
   (INLINE COPY-BITMAP-FORMAT) COPY-BITMAP-FORMAT
   ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-BITMAP-FORMAT))
     (BLOCK COPY-BITMAP-FORMAT (COPY-STRUCTURE STRUCTURE))
   )
   #Y(COPY-BITMAP-FORMAT #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 2F 19 02))
   (FUNCTION BITMAP-FORMAT-UNIT (BITMAP-FORMAT) T) (INLINE BITMAP-FORMAT-UNIT)
   BITMAP-FORMAT-UNIT
   (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN BITMAP-FORMAT-UNIT))
     (BLOCK BITMAP-FORMAT-UNIT
       (THE T (SYSTEM::%STRUCTURE-REF 'BITMAP-FORMAT SYSTEM::OBJECT 1.))
   ) )
   #Y(BITMAP-FORMAT-UNIT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) BITMAP-FORMAT 1.
     )
   SYSTEM::DEFSTRUCT-READER (FUNCTION BITMAP-FORMAT-PAD (BITMAP-FORMAT) T)
   (INLINE BITMAP-FORMAT-PAD) BITMAP-FORMAT-PAD
   (#1# (DECLARE (SYSTEM::IN-DEFUN BITMAP-FORMAT-PAD))
     (BLOCK BITMAP-FORMAT-PAD
       (THE T (SYSTEM::%STRUCTURE-REF 'BITMAP-FORMAT SYSTEM::OBJECT 2.))
   ) )
   #Y(BITMAP-FORMAT-PAD
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) BITMAP-FORMAT 2.
     )
   (FUNCTION BITMAP-FORMAT-LSB-FIRST-P (BITMAP-FORMAT) T)
   (INLINE BITMAP-FORMAT-LSB-FIRST-P) BITMAP-FORMAT-LSB-FIRST-P
   (#1# (DECLARE (SYSTEM::IN-DEFUN BITMAP-FORMAT-LSB-FIRST-P))
     (BLOCK BITMAP-FORMAT-LSB-FIRST-P
       (THE T (SYSTEM::%STRUCTURE-REF 'BITMAP-FORMAT SYSTEM::OBJECT 3.))
   ) )
   #Y(BITMAP-FORMAT-LSB-FIRST-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) BITMAP-FORMAT 3.
     )
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-BITMAP-FORMAT-UNIT
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'BITMAP-FORMAT 1.
     )
   SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SETF-BITMAP-FORMAT-PAD
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'BITMAP-FORMAT 2.
     )
   #Y(SETF-BITMAP-FORMAT-LSB-FIRST-P
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'BITMAP-FORMAT 3.
     )
   STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD
  )
#Y(#:TOP-LEVEL-FORM-58
   #270Y(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 2F 05 E9 E5 EA 32 85 E9 EB 32 7F EC 31 59 ED 31 59 EE 2F
         05 EE E5 EF 32 85 EE F0 32 7F EE F1 DA 32 85 F2 31 59 F3 31 59 F4 2F
         05 F4 E5 F5 32 85 F4 F6 32 7F F4 F1 DA 32 85 F7 31 59 65 1E 31 59 65
         1F 2F 05 65 1F E5 65 20 32 85 65 1F 65 21 32 7F 65 1F F1 DA 32 85 EE
         65 22 32 86 EE 65 23 65 24 65 25 03 26 7C 02 32 85 EE 65 27 63 2D 03
         28 EE 65 22 DA 32 85 F4 65 22 32 86 F4 65 23 65 24 65 25 03 29 7C 02
         32 85 F4 65 27 63 2D 03 28 F4 65 22 DA 32 85 65 1F 65 22 32 86 65 1F
         65 23 65 24 65 25 03 2A 7C 02 32 85 65 1F 65 27 63 2D 03 28 65 1F 65
         22 DA 32 85 DA 65 2B 63 2D 03 28 DA 2F 2C C5 19 01
        )
   PIXMAP-FORMAT STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   MAKE-PIXMAP-FORMAT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-PIXMAP-FORMAT
      #47Y(00 00 00 00 00 00 00 00 80 1B 03 00 01 00 3D 03 3D 02 3D 01 69 00 01
           DE 72 2E DF AD E0 B3 32 2D DF AD E1 B2 32 2D DF AD E2 B1 32 2D 15 19
           04
          )
      NIL :DEPTH :BITS-PER-PIXEL :SCANLINE-PAD 4. PIXMAP-FORMAT 1. 2. 3.
     )
   (#(DEPTH (:DEPTH) 1. (NIL) NIL T NIL)
     #(BITS-PER-PIXEL (:BITS-PER-PIXEL) 2. (NIL) NIL T NIL)
     #(SCANLINE-PAD (:SCANLINE-PAD) 3. (NIL) NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE PIXMAP-FORMAT-P) PIXMAP-FORMAT-P
   SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN PIXMAP-FORMAT-P))
     (BLOCK PIXMAP-FORMAT-P
       (SYSTEM::%STRUCTURE-TYPE-P 'PIXMAP-FORMAT SYSTEM::OBJECT)
   ) )
   #Y(PIXMAP-FORMAT-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      PIXMAP-FORMAT
     )
   (INLINE COPY-PIXMAP-FORMAT) COPY-PIXMAP-FORMAT
   ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-PIXMAP-FORMAT))
     (BLOCK COPY-PIXMAP-FORMAT (COPY-STRUCTURE STRUCTURE))
   )
   #Y(COPY-PIXMAP-FORMAT #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 2F 19 02))
   (FUNCTION PIXMAP-FORMAT-DEPTH (PIXMAP-FORMAT) T)
   (INLINE PIXMAP-FORMAT-DEPTH) PIXMAP-FORMAT-DEPTH
   (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN PIXMAP-FORMAT-DEPTH))
     (BLOCK PIXMAP-FORMAT-DEPTH
       (THE T (SYSTEM::%STRUCTURE-REF 'PIXMAP-FORMAT SYSTEM::OBJECT 1.))
   ) )
   #Y(PIXMAP-FORMAT-DEPTH
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) PIXMAP-FORMAT 1.
     )
   SYSTEM::DEFSTRUCT-READER
   (FUNCTION PIXMAP-FORMAT-BITS-PER-PIXEL (PIXMAP-FORMAT) T)
   (INLINE PIXMAP-FORMAT-BITS-PER-PIXEL) PIXMAP-FORMAT-BITS-PER-PIXEL
   (#1# (DECLARE (SYSTEM::IN-DEFUN PIXMAP-FORMAT-BITS-PER-PIXEL))
     (BLOCK PIXMAP-FORMAT-BITS-PER-PIXEL
       (THE T (SYSTEM::%STRUCTURE-REF 'PIXMAP-FORMAT SYSTEM::OBJECT 2.))
   ) )
   #Y(PIXMAP-FORMAT-BITS-PER-PIXEL
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) PIXMAP-FORMAT 2.
     )
   (FUNCTION PIXMAP-FORMAT-SCANLINE-PAD (PIXMAP-FORMAT) T)
   (INLINE PIXMAP-FORMAT-SCANLINE-PAD) PIXMAP-FORMAT-SCANLINE-PAD
   (#1# (DECLARE (SYSTEM::IN-DEFUN PIXMAP-FORMAT-SCANLINE-PAD))
     (BLOCK PIXMAP-FORMAT-SCANLINE-PAD
       (THE T (SYSTEM::%STRUCTURE-REF 'PIXMAP-FORMAT SYSTEM::OBJECT 3.))
   ) )
   #Y(PIXMAP-FORMAT-SCANLINE-PAD
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) PIXMAP-FORMAT 3.
     )
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-PIXMAP-FORMAT-DEPTH
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'PIXMAP-FORMAT 1.
     )
   SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SETF-PIXMAP-FORMAT-BITS-PER-PIXEL
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'PIXMAP-FORMAT 2.
     )
   #Y(SETF-PIXMAP-FORMAT-SCANLINE-PAD
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'PIXMAP-FORMAT 3.
     )
   STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD
  )
#Y(#:TOP-LEVEL-FORM-59
   #276Y(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 63 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
         EA 65 1E 32 86 EA 65 1F 65 20 65 21 03 22 7C 02 32 85 EA 65 23 63 2D
         03 24 EA 65 1E DA 32 85 F0 65 1E 32 86 F0 65 1F 65 20 65 21 03 25 7C
         02 32 85 F0 65 23 63 2D 03 24 F0 65 1E DA 32 85 F5 65 1E 32 86 F5 65
         1F 65 20 65 21 03 26 7C 02 32 85 F5 65 23 63 2D 03 24 F5 65 1E DA 32
         85 DA 65 27 63 2D 03 24 65 28 65 29 65 2A 65 2B 64 65 2C DA 38 02 72
         27 64 38 02 72 27 7B 02 65 2D 63 65 2E 65 2F 6E 0A 30 30 31 C5 19 01
        )
   COLOR STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0. MAKE-COLOR-INTERNAL
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-COLOR-INTERNAL
      #37Y(00 00 00 00 03 00 00 00 00 04 69 00 01 DB 72 2E DC AD DD B3 32 2D DC
           AD DE B2 32 2D DC AD DF B1 32 2D 15 19 04
          )
      NIL 4. COLOR 1. 2. 3.
     )
   (#(RED (:RED) 1. (NIL . 0.0s0) 0.0s0 RGB-VAL NIL)
     #(GREEN (:GREEN) 2. (NIL . 0.0s0) 0.0s0 RGB-VAL NIL)
     #(BLUE (:BLUE) 3. (NIL . 0.0s0) 0.0s0 RGB-VAL NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE COLOR-P) COLOR-P
   SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN COLOR-P))
     (BLOCK COLOR-P (SYSTEM::%STRUCTURE-TYPE-P 'COLOR SYSTEM::OBJECT))
   )
   #Y(COLOR-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02) COLOR)
   (FUNCTION COLOR-RED (COLOR) RGB-VAL) (INLINE COLOR-RED) COLOR-RED
   (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN COLOR-RED))
     (BLOCK COLOR-RED
       (THE RGB-VAL (SYSTEM::%STRUCTURE-REF 'COLOR SYSTEM::OBJECT 1.))
   ) )
   #Y(COLOR-RED #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) COLOR
      1.
     )
   SYSTEM::DEFSTRUCT-READER (FUNCTION COLOR-GREEN (COLOR) RGB-VAL)
   (INLINE COLOR-GREEN) COLOR-GREEN
   (#1# (DECLARE (SYSTEM::IN-DEFUN COLOR-GREEN))
     (BLOCK COLOR-GREEN
       (THE RGB-VAL (SYSTEM::%STRUCTURE-REF 'COLOR SYSTEM::OBJECT 2.))
   ) )
   #Y(COLOR-GREEN #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      COLOR 2.
     )
   (FUNCTION COLOR-BLUE (COLOR) RGB-VAL) (INLINE COLOR-BLUE) COLOR-BLUE
   (#1# (DECLARE (SYSTEM::IN-DEFUN COLOR-BLUE))
     (BLOCK COLOR-BLUE
       (THE RGB-VAL (SYSTEM::%STRUCTURE-REF 'COLOR SYSTEM::OBJECT 3.))
   ) )
   #Y(COLOR-BLUE #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) COLOR
      3.
     )
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-COLOR-RED
      #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 'COLOR 1. THE RGB-VAL
     )
   SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SETF-COLOR-GREEN
      #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 'COLOR 2. THE RGB-VAL
     )
   #Y(SETF-COLOR-BLUE
      #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 'COLOR 3. THE RGB-VAL
     )
   STRUCTURE PRINT-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-59-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-59-1-1
         #19Y(00 00 00 00 02 00 00 00 00 03 AE AE 6B 00 2D 03 01 19 03)
         SYSTEM::*PRIN-LEVEL* PRINT-COLOR
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-60
   #508Y(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 28 31 59 65 29 31
         59 65 2A 2F 05 65 2A E5 65 2B 32 85 65 2A 65 2C 32 7F 65 2A ED DA 32
         85 65 2D 31 59 65 2E 31 59 65 2F 2F 05 65 2F E5 65 30 32 85 65 2F 65
         31 32 7F 65 2F ED DA 32 85 EA 65 32 32 86 EA 65 33 65 34 65 35 03 36
         7C 02 32 85 EA 65 37 63 2D 03 38 EA 65 32 DA 32 85 F0 65 32 32 86 F0
         65 33 65 34 65 35 03 39 7C 02 32 85 F0 65 37 63 2D 03 38 F0 65 32 DA
         32 85 F5 65 32 32 86 F5 65 33 65 34 65 35 03 3A 7C 02 32 85 F5 65 37
         63 2D 03 38 F5 65 32 DA 32 85 65 20 65 32 32 86 65 20 65 33 65 34 65
         35 03 3B 7C 02 32 85 65 20 65 37 63 2D 03 38 65 20 65 32 DA 32 85 65
         25 65 32 32 86 65 25 65 33 65 34 65 35 03 3C 7C 02 32 85 65 25 65 37
         63 2D 03 38 65 25 65 32 DA 32 85 65 2A 65 32 32 86 65 2A 65 33 65 34
         65 35 03 3D 7C 02 32 85 65 2A 65 37 63 2D 03 38 65 2A 65 32 DA 32 85
         65 2F 65 32 32 86 65 2F 65 33 65 34 65 35 03 3E 7C 02 32 85 65 2F 65
         37 63 2D 03 38 65 2F 65 32 DA 32 85 DA 65 3F 63 2D 03 38 DA 2F 40 C5
         19 01
        )
   VISUAL-INFO STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   MAKE-VISUAL-INFO SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-VISUAL-INFO
      #79Y(00 00 00 00 00 00 00 00 80 1B 07 00 01 00 3D 07 3D 06 3D 05 3D 04 3D
           03 3D 02 3D 01 69 00 01 E2 72 2E E3 AD E4 B7 32 2D E3 AD E5 B6 32 2D
           E3 AD E6 B5 32 2D E3 AD E7 B4 32 2D E3 AD E8 B3 32 2D E3 AD E9 B2 32
           2D E3 AD EA B1 32 2D 15 19 08
          )
      NIL :ID :CLASS :RED-MASK :GREEN-MASK :BLUE-MASK :BITS-PER-RGB
      :COLORMAP-ENTRIES 8. VISUAL-INFO 1. 2. 3. 4. 5. 6. 7.
     )
   (#(ID (:ID) 1. (NIL) NIL T NIL) #(CLASS (:CLASS) 2. (NIL) NIL T NIL)
     #(RED-MASK (:RED-MASK) 3. (NIL) NIL T NIL)
     #(GREEN-MASK (:GREEN-MASK) 4. (NIL) NIL T NIL)
     #(BLUE-MASK (:BLUE-MASK) 5. (NIL) NIL T NIL)
     #(BITS-PER-RGB (:BITS-PER-RGB) 6. (NIL) NIL T NIL)
     #(COLORMAP-ENTRIES (:COLORMAP-ENTRIES) 7. (NIL) NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE VISUAL-INFO-P) VISUAL-INFO-P
   SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN VISUAL-INFO-P))
     (BLOCK VISUAL-INFO-P
       (SYSTEM::%STRUCTURE-TYPE-P 'VISUAL-INFO SYSTEM::OBJECT)
   ) )
   #Y(VISUAL-INFO-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      VISUAL-INFO
     )
   (FUNCTION VISUAL-INFO-ID (VISUAL-INFO) T) (INLINE VISUAL-INFO-ID)
   VISUAL-INFO-ID
   (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN VISUAL-INFO-ID))
     (BLOCK VISUAL-INFO-ID
       (THE T (SYSTEM::%STRUCTURE-REF 'VISUAL-INFO SYSTEM::OBJECT 1.))
   ) )
   #Y(VISUAL-INFO-ID #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      VISUAL-INFO 1.
     )
   SYSTEM::DEFSTRUCT-READER (FUNCTION VISUAL-INFO-CLASS (VISUAL-INFO) T)
   (INLINE VISUAL-INFO-CLASS) VISUAL-INFO-CLASS
   (#1# (DECLARE (SYSTEM::IN-DEFUN VISUAL-INFO-CLASS))
     (BLOCK VISUAL-INFO-CLASS
       (THE T (SYSTEM::%STRUCTURE-REF 'VISUAL-INFO SYSTEM::OBJECT 2.))
   ) )
   #Y(VISUAL-INFO-CLASS
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) VISUAL-INFO 2.
     )
   (FUNCTION VISUAL-INFO-RED-MASK (VISUAL-INFO) T)
   (INLINE VISUAL-INFO-RED-MASK) VISUAL-INFO-RED-MASK
   (#1# (DECLARE (SYSTEM::IN-DEFUN VISUAL-INFO-RED-MASK))
     (BLOCK VISUAL-INFO-RED-MASK
       (THE T (SYSTEM::%STRUCTURE-REF 'VISUAL-INFO SYSTEM::OBJECT 3.))
   ) )
   #Y(VISUAL-INFO-RED-MASK
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) VISUAL-INFO 3.
     )
   (FUNCTION VISUAL-INFO-GREEN-MASK (VISUAL-INFO) T)
   (INLINE VISUAL-INFO-GREEN-MASK) VISUAL-INFO-GREEN-MASK
   (#1# (DECLARE (SYSTEM::IN-DEFUN VISUAL-INFO-GREEN-MASK))
     (BLOCK VISUAL-INFO-GREEN-MASK
       (THE T (SYSTEM::%STRUCTURE-REF 'VISUAL-INFO SYSTEM::OBJECT 4.))
   ) )
   #Y(VISUAL-INFO-GREEN-MASK
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) VISUAL-INFO 4.
     )
   (FUNCTION VISUAL-INFO-BLUE-MASK (VISUAL-INFO) T)
   (INLINE VISUAL-INFO-BLUE-MASK) VISUAL-INFO-BLUE-MASK
   (#1# (DECLARE (SYSTEM::IN-DEFUN VISUAL-INFO-BLUE-MASK))
     (BLOCK VISUAL-INFO-BLUE-MASK
       (THE T (SYSTEM::%STRUCTURE-REF 'VISUAL-INFO SYSTEM::OBJECT 5.))
   ) )
   #Y(VISUAL-INFO-BLUE-MASK
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) VISUAL-INFO 5.
     )
   (FUNCTION VISUAL-INFO-BITS-PER-RGB (VISUAL-INFO) T)
   (INLINE VISUAL-INFO-BITS-PER-RGB) VISUAL-INFO-BITS-PER-RGB
   (#1# (DECLARE (SYSTEM::IN-DEFUN VISUAL-INFO-BITS-PER-RGB))
     (BLOCK VISUAL-INFO-BITS-PER-RGB
       (THE T (SYSTEM::%STRUCTURE-REF 'VISUAL-INFO SYSTEM::OBJECT 6.))
   ) )
   #Y(VISUAL-INFO-BITS-PER-RGB
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) VISUAL-INFO 6.
     )
   (FUNCTION VISUAL-INFO-COLORMAP-ENTRIES (VISUAL-INFO) T)
   (INLINE VISUAL-INFO-COLORMAP-ENTRIES) VISUAL-INFO-COLORMAP-ENTRIES
   (#1# (DECLARE (SYSTEM::IN-DEFUN VISUAL-INFO-COLORMAP-ENTRIES))
     (BLOCK VISUAL-INFO-COLORMAP-ENTRIES
       (THE T (SYSTEM::%STRUCTURE-REF 'VISUAL-INFO SYSTEM::OBJECT 7.))
   ) )
   #Y(VISUAL-INFO-COLORMAP-ENTRIES
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) VISUAL-INFO 7.
     )
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-VISUAL-INFO-ID
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'VISUAL-INFO 1.
     )
   SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SETF-VISUAL-INFO-CLASS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'VISUAL-INFO 2.
     )
   #Y(SETF-VISUAL-INFO-RED-MASK
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'VISUAL-INFO 3.
     )
   #Y(SETF-VISUAL-INFO-GREEN-MASK
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'VISUAL-INFO 4.
     )
   #Y(SETF-VISUAL-INFO-BLUE-MASK
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'VISUAL-INFO 5.
     )
   #Y(SETF-VISUAL-INFO-BITS-PER-RGB
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'VISUAL-INFO 6.
     )
   #Y(SETF-VISUAL-INFO-COLORMAP-ENTRIES
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'VISUAL-INFO 7.
     )
   STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD
  )
#Y(#:TOP-LEVEL-FORM-61
   #362Y(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 F7 31 59 65 1E 31 59 65 1F 2F
         09 65 1F E4 65 20 32 85 65 1F 65 21 32 7F 65 1F E7 DA 32 85 E2 65 22
         32 86 E2 65 23 65 24 65 25 03 26 7C 02 32 85 E2 65 27 63 2D 03 28 E2
         65 22 DA 32 85 EA 65 22 32 86 EA 65 23 65 24 65 25 03 29 7C 02 32 85
         EA 65 27 63 2D 03 28 EA 65 22 DA 32 85 EF 65 22 32 86 EF 65 23 65 24
         65 25 03 2A 7C 02 32 85 EF 65 27 63 2D 03 28 EF 65 22 DA 32 85 F4 65
         22 32 86 F4 65 23 65 24 65 25 03 2B 7C 02 32 85 F4 65 27 63 2D 03 28
         F4 65 22 DA 32 85 65 1F 65 22 32 86 65 1F 65 23 65 24 65 25 03 2C 7C
         02 32 85 65 1F 65 27 63 2D 03 28 65 1F 65 22 DA 32 85 DA 65 2D 63 2D
         03 28 65 2E 65 2F 65 30 65 31 64 65 32 DA 38 02 72 27 64 38 02 72 27
         7B 02 65 33 63 65 34 65 35 6E 0A 36 30 37 C5 19 01
        )
   DISPLAY STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   (#(FOREIGN-POINTER (:FOREIGN-POINTER) 1. (NIL) NIL T NIL)
     #(HASH-TABLE (:HASH-TABLE) 2. (NIL) NIL T NIL)
     #(PLIST (:PLIST) 3. (NIL) NIL T NIL)
     #(AFTER-FUNCTION (:AFTER-FUNCTION) 4. (NIL) NIL T NIL)
     #(ERROR-HANDLER (:ERROR-HANDLER) 5. (NIL) NIL T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (FUNCTION %DISPLAY-FOREIGN-POINTER (DISPLAY) T)
   (INLINE %DISPLAY-FOREIGN-POINTER) %DISPLAY-FOREIGN-POINTER
   SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::INLINE-EXPANSION
   (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN %DISPLAY-FOREIGN-POINTER))
     (BLOCK %DISPLAY-FOREIGN-POINTER
       (THE T (SYSTEM::%STRUCTURE-REF 'DISPLAY SYSTEM::OBJECT 1.))
   ) )
   #Y(%DISPLAY-FOREIGN-POINTER
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) DISPLAY 1.
     )
   SYSTEM::DEFSTRUCT-READER (FUNCTION %DISPLAY-HASH-TABLE (DISPLAY) T)
   (INLINE %DISPLAY-HASH-TABLE) %DISPLAY-HASH-TABLE
   (#1# (DECLARE (SYSTEM::IN-DEFUN %DISPLAY-HASH-TABLE))
     (BLOCK %DISPLAY-HASH-TABLE
       (THE T (SYSTEM::%STRUCTURE-REF 'DISPLAY SYSTEM::OBJECT 2.))
   ) )
   #Y(%DISPLAY-HASH-TABLE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) DISPLAY 2.
     )
   (FUNCTION %DISPLAY-PLIST (DISPLAY) T) (INLINE %DISPLAY-PLIST) %DISPLAY-PLIST
   (#1# (DECLARE (SYSTEM::IN-DEFUN %DISPLAY-PLIST))
     (BLOCK %DISPLAY-PLIST
       (THE T (SYSTEM::%STRUCTURE-REF 'DISPLAY SYSTEM::OBJECT 3.))
   ) )
   #Y(%DISPLAY-PLIST #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      DISPLAY 3.
     )
   (FUNCTION %DISPLAY-AFTER-FUNCTION (DISPLAY) T)
   (INLINE %DISPLAY-AFTER-FUNCTION) %DISPLAY-AFTER-FUNCTION
   (#1# (DECLARE (SYSTEM::IN-DEFUN %DISPLAY-AFTER-FUNCTION))
     (BLOCK %DISPLAY-AFTER-FUNCTION
       (THE T (SYSTEM::%STRUCTURE-REF 'DISPLAY SYSTEM::OBJECT 4.))
   ) )
   #Y(%DISPLAY-AFTER-FUNCTION
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) DISPLAY 4.
     )
   (FUNCTION %DISPLAY-ERROR-HANDLER (DISPLAY) T)
   (INLINE %DISPLAY-ERROR-HANDLER) %DISPLAY-ERROR-HANDLER
   (#1# (DECLARE (SYSTEM::IN-DEFUN %DISPLAY-ERROR-HANDLER))
     (BLOCK %DISPLAY-ERROR-HANDLER
       (THE T (SYSTEM::%STRUCTURE-REF 'DISPLAY SYSTEM::OBJECT 5.))
   ) )
   #Y(%DISPLAY-ERROR-HANDLER
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) DISPLAY 5.
     )
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-%DISPLAY-FOREIGN-POINTER
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'DISPLAY 1.
     )
   SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SETF-%DISPLAY-HASH-TABLE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'DISPLAY 2.
     )
   #Y(SETF-%DISPLAY-PLIST
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'DISPLAY 3.
     )
   #Y(SETF-%DISPLAY-AFTER-FUNCTION
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'DISPLAY 4.
     )
   #Y(SETF-%DISPLAY-ERROR-HANDLER
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'DISPLAY 5.
     )
   STRUCTURE PRINT-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-61-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-61-1-1
         #19Y(00 00 00 00 02 00 00 00 00 03 AE AE 6B 00 2D 03 01 19 03)
         SYSTEM::*PRIN-LEVEL* PRINT-DISPLAY
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE
   (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-62
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) MAKE-COLOR
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-COLOR
      #37Y(00 00 00 00 00 00 00 00 C0 1B 03 00 00 00 3B 03 02 C8 FB 3B 02 02 C8
           FA 3B 01 02 C8 F9 AF AF AF 2D 03 04 19 04
          )
      :RED :GREEN :BLUE 1.0s0 MAKE-COLOR-INTERNAL
  )  )
#Y(#:TOP-LEVEL-FORM-63
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) COLOR-RGB
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(COLOR-RGB
      #29Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 72 2C DA AF DC 72 2C DA B0 DD
           72 2C 40 03 19 02
          )
      COLOR 1. 2. 3.
  )  )
#Y(#:TOP-LEVEL-FORM-64
   #42Y(00 00 00 00 00 00 00 00 00 01 DA DB 63 DC DD DE DF E0 E1 63 00 7A 7B 06
        DD E2 DF E3 7B 04 7B 02 2D 05 0A DA 38 02 32 27 19 01
       )
   XLIB-OBJECT :DIRECT-SUPERCLASSES :DIRECT-SLOTS :NAME PLIST :INITARGS
   (:PLIST) :INITER DISPLAY (:DISPLAY) CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-65
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD DE DF E0 E1
        7B 04 7B 01 2D 05 08 DA 38 02 32 27 19 01
       )
   XID-OBJECT :DIRECT-SUPERCLASSES XLIB-OBJECT :DIRECT-SLOTS :NAME ID :INITARGS
   (:ID) CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-66
   #38Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD DE DF E0 E1
        7B 04 7B 01 2D 05 08 DA 38 02 32 27 19 01
       )
   PTR-OBJECT :DIRECT-SUPERCLASSES XLIB-OBJECT :DIRECT-SLOTS :NAME PTR
   :INITARGS (:PTR) CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-67
   #31Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD 63 2D 05 04
        DA 38 02 32 27 19 01
       )
   DRAWABLE :DIRECT-SUPERCLASSES XID-OBJECT :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-68
   #31Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD 63 2D 05 04
        DA 38 02 32 27 19 01
       )
   WINDOW :DIRECT-SUPERCLASSES DRAWABLE :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-69
   #31Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD 63 2D 05 04
        DA 38 02 32 27 19 01
       )
   PIXMAP :DIRECT-SUPERCLASSES DRAWABLE :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-70
   #31Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD 63 2D 05 04
        DA 38 02 32 27 19 01
       )
   CURSOR :DIRECT-SUPERCLASSES XID-OBJECT :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-71
   #31Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD 63 2D 05 04
        DA 38 02 32 27 19 01
       )
   COLORMAP :DIRECT-SUPERCLASSES XID-OBJECT :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-72
   #40Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD DE DF 7B 02
        DE E0 7B 02 7B 02 2D 05 07 DA 38 02 32 27 19 01
       )
   GCONTEXT :DIRECT-SUPERCLASSES PTR-OBJECT :DIRECT-SLOTS :NAME %DASHES
   %CLIP-MASK CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-73
   #31Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD 63 2D 05 04
        DA 38 02 32 27 19 01
       )
   SCREEN :DIRECT-SUPERCLASSES PTR-OBJECT :DIRECT-SLOTS CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-74
   #58Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD DE DF E0 E1
        E2 63 00 7A 7B 06 DE E3 E0 E4 7B 04 DE E5 E0 E6 E2 63 00 7A 7B 06 7B 03
        2D 05 0D DA 38 02 32 27 19 01
       )
   FONT :DIRECT-SUPERCLASSES XID-OBJECT :DIRECT-SLOTS :NAME FONT-INFO :INITARGS
   (:FONT-INFO) :INITER NAME (:NAME) ENCODING (:ENCODING) CLOS::ENSURE-CLASS
  )
#Y(#:TOP-LEVEL-FORM-75
   #333Y(00 00 00 00 00 00 00 00 00 01 DA 99 01 30 02 DD 99 04 30 02 DF 99 06
         30 02 E1 99 08 30 02 E3 99 0A 30 02 E5 99 0C 30 02 E7 99 0E 30 02 E9
         99 10 30 02 EB 99 12 30 02 ED 99 14 30 02 EF 99 16 30 02 F1 99 18 30
         02 F3 99 1A 30 02 F5 99 1C 30 02 F7 99 1E 30 02 65 1F 99 20 30 02 65
         21 99 22 30 02 65 23 99 24 30 02 65 25 99 26 30 02 65 27 99 28 30 02
         65 29 99 2A 30 02 65 2B 99 2C 30 02 65 2D 99 2E 30 02 65 2F 99 30 30
         02 65 31 99 32 30 02 65 33 99 34 30 02 65 35 99 36 30 02 65 37 99 38
         30 02 65 39 99 3A 30 02 65 3B 99 3C 30 02 65 3D 99 3E 30 02 65 3F 99
         40 30 02 65 41 99 42 30 02 65 43 99 44 30 02 65 45 99 46 30 02 65 47
         99 48 30 02 65 49 99 4A 30 02 65 4B 99 4C 30 02 65 4D 99 4E 30 02 65
         4F 99 50 30 02 65 51 99 52 30 02 65 53 99 54 30 02 65 55 99 56 30 02
         65 57 99 58 30 02 65 59 99 5A 30 02 65 5B 99 5C 30 02 65 5D 99 5E 30
         02 65 5F 99 60 30 02 65 61 99 62 30 02 65 63 99 64 30 02 65 65 99 66
         30 02 65 67 99 68 30 02 65 69 99 6A 30 02 65 6B 99 6C 30 02 65 6D 99
         6E 30 02 65 6F 99 70 30 02 19 01
        )
   (SETF CLOSE-DOWN-MODE) CLOSE-DOWN-MODE-SETTER SYSTEM::SET-FDEFINITION
   (SETF DISPLAY-AFTER-FUNCTION) DISPLAY-AFTER-FUNCTION-SETTER
   (SETF DISPLAY-ERROR-HANDLER) DISPLAY-ERROR-HANDLER-SETTER
   (SETF DISPLAY-PLIST) DISPLAY-PLIST-SETTER (SETF DRAWABLE-BORDER-WIDTH)
   DRAWABLE-BORDER-WIDTH-SETTER (SETF DRAWABLE-HEIGHT) DRAWABLE-HEIGHT-SETTER
   (SETF DRAWABLE-PLIST) DRAWABLE-PLIST-SETTER (SETF DRAWABLE-WIDTH)
   DRAWABLE-WIDTH-SETTER (SETF DRAWABLE-X) DRAWABLE-X-SETTER (SETF DRAWABLE-Y)
   DRAWABLE-Y-SETTER (SETF FONT-PATH) FONT-PATH-SETTER (SETF FONT-PLIST)
   FONT-PLIST-SETTER (SETF GCONTEXT-ARC-MODE) GCONTEXT-ARC-MODE-SETTER
   (SETF GCONTEXT-BACKGROUND) GCONTEXT-BACKGROUND-SETTER
   (SETF GCONTEXT-CACHE-P) GCONTEXT-CACHE-P-SETTER (SETF GCONTEXT-CAP-STYLE)
   GCONTEXT-CAP-STYLE-SETTER (SETF GCONTEXT-CLIP-MASK)
   GCONTEXT-CLIP-MASK-SETTER (SETF GCONTEXT-CLIP-X) GCONTEXT-CLIP-X-SETTER
   (SETF GCONTEXT-CLIP-Y) GCONTEXT-CLIP-Y-SETTER (SETF GCONTEXT-DASH-OFFSET)
   GCONTEXT-DASH-OFFSET-SETTER (SETF GCONTEXT-DASHES) GCONTEXT-DASHES-SETTER
   (SETF GCONTEXT-EXPOSURES) GCONTEXT-EXPOSURES-SETTER
   (SETF GCONTEXT-FILL-RULE) GCONTEXT-FILL-RULE-SETTER
   (SETF GCONTEXT-FILL-STYLE) GCONTEXT-FILL-STYLE-SETTER (SETF GCONTEXT-FONT)
   GCONTEXT-FONT-SETTER (SETF GCONTEXT-FOREGROUND) GCONTEXT-FOREGROUND-SETTER
   (SETF GCONTEXT-FUNCTION) GCONTEXT-FUNCTION-SETTER (SETF GCONTEXT-JOIN-STYLE)
   GCONTEXT-JOIN-STYLE-SETTER (SETF GCONTEXT-LINE-STYLE)
   GCONTEXT-LINE-STYLE-SETTER (SETF GCONTEXT-LINE-WIDTH)
   GCONTEXT-LINE-WIDTH-SETTER (SETF GCONTEXT-PLANE-MASK)
   GCONTEXT-PLANE-MASK-SETTER (SETF GCONTEXT-PLIST) GCONTEXT-PLIST-SETTER
   (SETF GCONTEXT-STIPPLE) GCONTEXT-STIPPLE-SETTER
   (SETF GCONTEXT-SUBWINDOW-MODE) GCONTEXT-SUBWINDOW-MODE-SETTER
   (SETF GCONTEXT-TILE) GCONTEXT-TILE-SETTER (SETF GCONTEXT-TS-X)
   GCONTEXT-TS-X-SETTER (SETF GCONTEXT-TS-Y) GCONTEXT-TS-Y-SETTER
   (SETF PIXMAP-PLIST) PIXMAP-PLIST-SETTER (SETF POINTER-MAPPING)
   POINTER-MAPPING-SETTER (SETF SCREEN-PLIST) SCREEN-PLIST-SETTER
   (SETF SELECTION-OWNER) SELECTION-OWNER-SETTER (SETF WINDOW-BACKGROUND)
   WINDOW-BACKGROUND-SETTER (SETF WINDOW-BACKING-PIXEL)
   WINDOW-BACKING-PIXEL-SETTER (SETF WINDOW-BACKING-PLANES)
   WINDOW-BACKING-PLANES-SETTER (SETF WINDOW-BACKING-STORE)
   WINDOW-BACKING-STORE-SETTER (SETF WINDOW-COLORMAP) WINDOW-COLORMAP-SETTER
   (SETF WINDOW-CURSOR) WINDOW-CURSOR-SETTER (SETF WINDOW-BIT-GRAVITY)
   WINDOW-BIT-GRAVITY-SETTER (SETF WINDOW-BORDER) WINDOW-BORDER-SETTER
   (SETF WINDOW-EVENT-MASK) WINDOW-EVENT-MASK-SETTER (SETF WINDOW-GRAVITY)
   WINDOW-GRAVITY-SETTER (SETF WINDOW-DO-NOT-PROPAGATE-MASK)
   WINDOW-DO-NOT-PROPAGATE-MASK-SETTER (SETF WINDOW-OVERRIDE-REDIRECT)
   WINDOW-OVERRIDE-REDIRECT-SETTER (SETF WINDOW-PLIST) WINDOW-PLIST-SETTER
   (SETF WINDOW-PRIORITY) WINDOW-PRIORITY-SETTER (SETF WINDOW-SAVE-UNDER)
   WINDOW-SAVE-UNDER-SETTER
  )
#Y(#:TOP-LEVEL-FORM-76
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-POINTER-MAPPING SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-POINTER-MAPPING #16Y(00 00 00 00 02 00 00 00 00 03 AD AF 30 00 19 03)
      #.(SYSTEM::GET-SETF-SYMBOL 'POINTER-MAPPING)
  )  )
#Y(#:TOP-LEVEL-FORM-77
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-CLOSE-DOWN-MODE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-CLOSE-DOWN-MODE #16Y(00 00 00 00 02 00 00 00 00 03 AD AF 30 00 19 03)
      #.(SYSTEM::GET-SETF-SYMBOL 'CLOSE-DOWN-MODE)
  )  )
#Y(#:TOP-LEVEL-FORM-78
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-SELECTION-OWNER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-SELECTION-OWNER
      #21Y(00 00 00 00 03 00 01 00 00 0A 3D 01 AE B1 B1 B0 2D 04 00 19 05)
      #.(SYSTEM::GET-SETF-SYMBOL 'SELECTION-OWNER)
  )  )
#Y(#:TOP-LEVEL-FORM-79
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   EVENT-COND SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(EVENT-COND
      #289Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 80 B7 9F 5C 5B
            78 A0 5C 5B 79 AC DC 63 72 82 AD DD 63 72 82 AE DE 63 72 82 AF DF
            6B 06 72 82 AC 0E 06 22 80 99 9D 14 A6 5C 79 B2 E1 31 5F 38 01 72
            8D E2 B5 DC B5 DD B6 DE B7 DF B7 E3 E4 E5 E6 BA D2 7C 02 E8 63 BD
            9D 20 80 B5 94 00 94 00 9E 5C 78 9F 5C 5C 78 A0 5C 5C 79 AF E9 38
            03 8C B2 80 68 AF 8E 08 04 AF 61 01 FB 99 15 B0 82 00 17 03 EA A1
            5C 1C 80 75 F3 F1 F2 A4 5B 14 7B 02 7B 03 93 03 15 EB E4 E5 EC B4
            F4 33 02 23 7A B3 7B 03 7B 02 66 1A 7B 03 61 01 7C 02 93 01 80 54
            EB E4 E5 EC B3 03 1B 14 33 02 23 7A A2 7C 02 7B 02 66 19 7B 03 61
            01 5D 1B 3B AE 2F 01 19 03 02 1B FF 64 EB E4 E5 EC B3 D9 1B 5C EA
            64 93 03 15 EB E4 E5 EC B4 ED 33 02 23 7A B3 7B 03 7B 02 66 1A 7B
            03 61 01 7C 02 92 01 59 5D 1B 08 F0 F1 F2 A4 1B FF 89 5D 16 03 F8
            84 02 16 01 83 00 1B FF 47 16 01 AC 31 A2 16 01 7A 7B 03 7B 02 61
            0C 19 0C
           )
      2. SYSTEM::MACRO-CALL-ERROR :TIMEOUT :PEEK-P :DISCARD-P :FORCE-OUTPUT-P
      SYSTEM::MACRO-MISSING-VALUE (:FORCE-OUTPUT-P :DISCARD-P :PEEK-P :TIMEOUT)
      PROCESS-EVENT :HANDLER FUNCTION LAMBDA &REST
      (&KEY EVENT-KEY &ALLOW-OTHER-KEYS) COND (T OTHERWISE) AND APPLY &KEY
      (&ALLOW-OTHER-KEYS) (&ALLOW-OTHER-KEYS) KINTERN MEMBER EVENT-KEY QUOTE EQ
      (&ALLOW-OTHER-KEYS) (&ALLOW-OTHER-KEYS)
  )  )
#Y(#:TOP-LEVEL-FORM-80
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   EVENT-CASE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(EVENT-CASE
      #69Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 0C 9F 5C 78 A0 5C
           79 DC AE 63 AF 1B 19 AE 2F 01 19 03 94 00 94 00 9E 5C 78 DD A0 5C 5C
           7A 7B 03 84 02 16 01 83 00 9D 21 69 16 01 AC 31 A2 16 01 62 02 19 05
          )
      2. SYSTEM::MACRO-CALL-ERROR EVENT-COND PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-81
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-STATE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(WITH-STATE
      #37Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 0E 9F 5C 5B 78 A0
           5C 79 DC AE 9F 62 02 19 05 AE 2F 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-82
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-EVENT-QUEUE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(WITH-EVENT-QUEUE
      #37Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 0E 9F 5C 5B 78 A0
           5C 79 DC AE 9F 62 02 19 05 AE 2F 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR PROGN
  )  )
#Y(#:TOP-LEVEL-FORM-83
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-GCONTEXT SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(WITH-GCONTEXT
      #215Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 80 BA 9F 5C 5B
            78 A0 5C 5B 79 A1 5C 79 38 01 72 8D 38 01 72 8D 38 01 72 8D 38 01
            72 8D DC 01 03 B5 93 00 35 94 00 24 03 80 97 94 00 25 04 02 7E 01
            B0 94 01 6F 05 82 02 3B 04 AF E0 94 02 72 89 73 02 13 E1 71 D3 B5
            7B 02 9F 5C 78 7B 02 82 02 24 03 9D 5C 5C F8 92 00 4B 16 01 E2 B3
            B8 7B 02 B5 E3 B6 B4 7B 03 7B 02 93 04 09 B4 E4 B7 7B 02 7B 02 61
            01 14 93 04 09 B4 E5 B8 7B 02 7B 02 61 01 14 33 02 23 7C 02 E6 E7
            E8 A4 7A AA 7C 02 E7 E9 B8 BA 7B 03 93 07 0A E8 E4 BA 7B 02 B9 7B
            03 61 01 14 93 07 0A E8 E5 BB 7B 02 B9 7B 03 61 01 14 33 02 23 7C
            02 7B 03 61 03 19 0E AE 2F 01 19 03 7E 02 1B FF 6B
           )
      2. SYSTEM::MACRO-CALL-ERROR 0. :DASHES :CLIP-MASK %GCONTEXT-KEY->MASK
      "GCONTEXT-" :XLIB LET* %SAVE-GCONTEXT-COMPONENTS GCONTEXT-DASHES
      GCONTEXT-CLIP-MASK UNWIND-PROTECT PROGN SETF %RESTORE-GCONTEXT-COMPONENTS
  )  )
#Y(#:TOP-LEVEL-FORM-84
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   WITH-SERVER-GRABBED SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(WITH-SERVER-GRABBED
      #76Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2F 32 9F 5C 5B 78 A0
           5C 79 AD 8E 03 2C 38 01 32 8D 14 DC AD B0 7B 02 7B 01 DD DE DF B1 7B
           03 7B 02 E0 E1 E2 B2 7B 02 A4 7C 02 E3 B2 7B 02 7B 03 61 04 19 06 AE
           2F 01 19 03 9E 1B 55
          )
      2. SYSTEM::MACRO-CALL-ERROR LET DECLARE TYPE DISPLAY UNWIND-PROTECT PROGN
      GRAB-SERVER UNGRAB-SERVER
  )  )
#Y(#:TOP-LEVEL-FORM-85
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) WM-NAME
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WM-NAME
      #24Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DC DD DE DF 99 06 2D 08 07 19
           02
          )
      :WM_NAME :TYPE :STRING :RESULT-TYPE STRING :TRANSFORM CARD8->CHAR
      GET-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-86
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   WM-NAME SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-WM-NAME
      #21Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA AD DB B1 61 04 19 04)
      SET-STRING-PROPERTY :WM_NAME
     )
   SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-87
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-STRING-PROPERTY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-STRING-PROPERTY
      #26Y(00 00 00 00 03 00 00 00 00 04 AF AF AF 71 4A DA DB DC 99 03 2D 07 04
           9E 19 04
          )
      :STRING 8. :TRANSFORM CHAR->CARD8 CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-88
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   WM-ICON-NAME SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WM-ICON-NAME
      #24Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DC DD DE DF 99 06 2D 08 07 19
           02
          )
      :WM_ICON_NAME :TYPE :STRING :RESULT-TYPE STRING :TRANSFORM CARD8->CHAR
      GET-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-89
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   WM-ICON-NAME SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-WM-ICON-NAME
      #21Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA AD DB B1 61 04 19 04)
      SET-STRING-PROPERTY :WM_ICON_NAME
     )
   SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-90
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   WM-CLIENT-MACHINE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WM-CLIENT-MACHINE
      #24Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DC DD DE DF 99 06 2D 08 07 19
           02
          )
      :WM_CLIENT_MACHINE :TYPE :STRING :RESULT-TYPE STRING :TRANSFORM
      CARD8->CHAR GET-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-91
   #32Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD DE CA 7C 02 32 85 DA
        E0 63 2D 03 07 C5 19 01
       )
   WM-CLIENT-MACHINE SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-WM-CLIENT-MACHINE
      #21Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA AD DB B1 61 04 19 04)
      SET-STRING-PROPERTY :WM_CLIENT_MACHINE
     )
   SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-92
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   GET-WM-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(GET-WM-CLASS
      #68Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DC DD DE DF 99 06 6E 08 07 9D
           1F 29 E2 AD 38 06 72 5C AD E3 AE 72 42 AE 96 02 B0 72 44 72 95 72 42
           AD 72 44 8F 90 01 9E 14 AD 72 44 8F 90 01 9E 14 40 02 19 06 19 03
          )
      :WM_CLASS :TYPE :STRING :RESULT-TYPE STRING :TRANSFORM CARD8->CHAR
      GET-PROPERTY #.(CARD8->CHAR 0.) 0.
  )  )
#Y(#:TOP-LEVEL-FORM-93
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-WM-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-WM-CLASS
      #38Y(00 00 00 00 03 00 00 00 00 04 AF DA DB 92 05 01 C7 14 71 4A DD 92 06
           01 C9 14 71 4A DF 73 04 25 2D 03 06 3E 19 04
          )
      :WM_CLASS STRING "" #.(MAKE-STRING 1. :INITIAL-ELEMENT (CARD8->CHAR 0.))
      "" #.(MAKE-STRING 1. :INITIAL-ELEMENT (CARD8->CHAR 0.))
      SET-STRING-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-94
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) WM-COMMAND
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WM-COMMAND
      #61Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DC DD DE DF 99 06 6E 08 07 63
           E2 E2 AF 72 44 1B 14 E3 B1 38 06 A7 FC 81 5C 01 B0 AF AF 72 42 84 03
           AD 81 94 02 AE AD 91 01 32 66 AF 32 46 19 07
          )
      :WM_COMMAND :TYPE :STRING :RESULT-TYPE STRING :TRANSFORM CARD8->CHAR
      GET-PROPERTY 0. #.(CARD8->CHAR 0.)
  )  )
#Y(#:TOP-LEVEL-FORM-95
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   WM-COMMAND SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER SET-WM-COMMAND
   SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-96
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-WM-COMMAND SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-WM-COMMAND
      #186Y(03 00 01 00 02 00 00 00 00 03 AE DA 63 38 01 72 72 53 80 98 6B 01
            64 DC DD 63 64 64 01 04 64 01 02 64 DE 63 DF DC E0 64 01 02 38 01
            31 6C 10 07 04 18 10 08 04 1A 10 09 04 1C 10 0A 04 1E 10 0B 04 20
            10 0C 04 22 10 0D 04 24 10 0E 04 26 10 0F 04 28 10 10 04 2A 10 11
            04 2C 10 12 04 2E 10 13 04 30 10 14 04 32 10 15 04 34 10 16 04 36
            10 17 04 38 10 18 04 3A 10 19 04 3C 10 1A 04 3E 10 1B 04 40 10 1C
            04 42 10 1D 66 61 63 1B 10 87 01 00 14 66 60 31 80 65 1E 66 60 31
            87 83 01 AD 8D 91 6C 16 02 12 17 16 16 AE 32 73 3F 54 67 00 00 00
            2F 1F 55 F8 2D 03 20 9E 19 03
           )
      :WM_COMMAND SYSTEM::*COMMON-LISP-USER-PACKAGE* 10. :UPCASE 2. 79.
      SINGLE-FLOAT *READTABLE* *PACKAGE* *PRINT-ARRAY* *PRINT-BASE*
      *PRINT-CASE* *PRINT-CIRCLE* *PRINT-ESCAPE* *PRINT-GENSYM* *PRINT-LENGTH*
      *PRINT-LEVEL* *PRINT-PRETTY* *PRINT-RADIX* *PRINT-READABLY*
      *PRINT-RIGHT-MARGIN* *PRINT-CLOSURE* *PRINT-RPARS* *PRINT-INDENT-LISTS*
      SYSTEM::*PRIN-STREAM* SYSTEM::*PRIN-LINELENGTH* *READ-BASE*
      *READ-DEFAULT-FLOAT-FORMAT* *READ-EVAL* *READ-SUPPRESS*
      #.(CARD8->CHAR 0.) CLOSE SET-STRING-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-97
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   DECODE-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(DECODE-TYPE
      #74Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 26 9F 5C 78 A0 5C
           5C 78 AD 24 02 20 AD 24 05 20 9E 20 21 94 01 25 07 1C E2 E3 95 03 E4
           72 28 61 02 14 AE 61 03 19 05 AE 2F 01 19 03 DD C9 1B 71 E0 C9 1B 6D
           E5 AE 33 01 1E
          )
      3. SYSTEM::MACRO-CALL-ERROR PIXMAP LOOKUP-PIXMAP %BUFFER WINDOW
      LOOKUP-WINDOW MEMBER AREF QUOTE VECTOR "Unknown type ~S."
  )  )
#Y(#:TOP-LEVEL-FORM-98
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   ENCODE-TYPE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(ENCODE-TYPE
      #101Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 1E 9F 5C 78 A0
            5C 5C 78 AD 24 02 18 AD 24 04 17 AD 24 06 16 AD 25 07 2B CD 14 AD
            61 02 19 05 AE 2F 01 19 03 C8 1B 72 CA 1B 6F 15 19 04 E4 E5 E3 AF
            7B 03 D1 62 02 19 05 E8 AD E9 95 04 7B 02 61 03 19 05 AD 24 09 66
            9E 20 05 94 01 24 0D 69 EA AE 33 01 1E
           )
      3. SYSTEM::MACRO-CALL-ERROR PIXMAP PIXMAP-ID WINDOW WINDOW-ID CARD16
      COLORMAP COLORMAP-ID RGB-VAL ROUND THE
      ((LOAD-TIME-VALUE (/ 1.0s0 65535.))) MEMBER POSITION QUOTE
      "Unknown type ~S."
  )  )
#Y(#:TOP-LEVEL-FORM-99
   #666Y(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 2F 05 E9 E5 EA 32 85 E9 EB 32 7F EC 31 59 ED 31 59 EE 2F
         05 EE E5 EF 32 85 EE F0 32 7F EE F1 DA 32 85 F2 31 59 F3 31 59 F4 2F
         05 F4 E5 F5 32 85 F4 F6 32 7F F4 F1 DA 32 85 F7 31 59 65 1E 31 59 65
         1F 2F 05 65 1F E5 65 20 32 85 65 1F 65 21 32 7F 65 1F F1 DA 32 85 65
         22 31 59 65 23 31 59 65 24 2F 05 65 24 E5 65 25 32 85 65 24 65 26 32
         7F 65 24 F1 DA 32 85 65 27 31 59 65 28 31 59 65 29 2F 05 65 29 E5 65
         2A 32 85 65 29 65 2B 32 7F 65 29 F1 DA 32 85 65 2C 31 59 65 2D 31 59
         65 2E 2F 05 65 2E E5 65 2F 32 85 65 2E 65 30 32 7F 65 2E F1 DA 32 85
         65 31 31 59 65 32 31 59 65 33 2F 05 65 33 E5 65 34 32 85 65 33 65 35
         32 7F 65 33 F1 DA 32 85 65 36 31 59 65 37 31 59 65 38 2F 05 65 38 E5
         65 39 32 85 65 38 65 3A 32 7F 65 38 F1 DA 32 85 65 3B 31 59 65 3C 31
         59 65 3D 2F 05 65 3D E5 65 3E 32 85 65 3D 65 3F 32 7F 65 3D F1 DA 32
         85 EE 65 40 32 86 EE 65 41 65 42 65 43 03 44 7C 02 32 85 EE 65 45 63
         2D 03 46 EE 65 40 DA 32 85 F4 65 40 32 86 F4 65 41 65 42 65 43 03 47
         7C 02 32 85 F4 65 45 63 2D 03 46 F4 65 40 DA 32 85 65 1F 65 40 32 86
         65 1F 65 41 65 42 65 43 03 48 7C 02 32 85 65 1F 65 45 63 2D 03 46 65
         1F 65 40 DA 32 85 65 24 65 40 32 86 65 24 65 41 65 42 65 43 03 49 7C
         02 32 85 65 24 65 45 63 2D 03 46 65 24 65 40 DA 32 85 65 29 65 40 32
         86 65 29 65 41 65 42 65 43 03 4A 7C 02 32 85 65 29 65 45 63 2D 03 46
         65 29 65 40 DA 32 85 65 2E 65 40 32 86 65 2E 65 41 65 42 65 43 03 4B
         7C 02 32 85 65 2E 65 45 63 2D 03 46 65 2E 65 40 DA 32 85 65 33 65 40
         32 86 65 33 65 41 65 42 65 43 03 4C 7C 02 32 85 65 33 65 45 63 2D 03
         46 65 33 65 40 DA 32 85 65 38 65 40 32 86 65 38 65 41 65 42 65 43 03
         4D 7C 02 32 85 65 38 65 45 63 2D 03 46 65 38 65 40 DA 32 85 65 3D 65
         40 32 86 65 3D 65 41 65 42 65 43 03 4E 7C 02 32 85 65 3D 65 45 63 2D
         03 46 65 3D 65 40 DA 32 85 DA 65 4F 63 2D 03 46 DA 2F 50 C5 19 01
        )
   WM-HINTS STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0. MAKE-WM-HINTS
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-WM-HINTS
      #98Y(00 00 00 00 00 00 00 00 80 1B 09 00 01 00 3D 09 3D 08 3D 07 3D 06 3D
           05 3D 04 3D 03 3D 02 3B 01 02 CF F9 69 00 01 E5 72 2E E6 AD E7 B9 32
           2D E6 AD E8 B8 32 2D E6 AD E9 B7 32 2D E6 AD EA B6 32 2D E6 AD EB B5
           32 2D E6 AD EC B4 32 2D E6 AD ED B3 32 2D E6 AD EE B2 32 2D E6 AD EF
           B1 32 2D 15 19 0A
          )
      NIL :INPUT :INITIAL-STATE :ICON-PIXMAP :ICON-WINDOW :ICON-X :ICON-Y
      :ICON-MASK :WINDOW-GROUP :FLAGS 0. 10. WM-HINTS 1. 2. 3. 4. 5. 6. 7. 8.
      9.
     )
   (#(INPUT (:INPUT) 1. (NIL) NIL T NIL)
     #(INITIAL-STATE (:INITIAL-STATE) 2. (NIL) NIL T NIL)
     #(ICON-PIXMAP (:ICON-PIXMAP) 3. (NIL) NIL T NIL)
     #(ICON-WINDOW (:ICON-WINDOW) 4. (NIL) NIL T NIL)
     #(ICON-X (:ICON-X) 5. (NIL) NIL T NIL)
     #(ICON-Y (:ICON-Y) 6. (NIL) NIL T NIL)
     #(ICON-MASK (:ICON-MASK) 7. (NIL) NIL T NIL)
     #(WINDOW-GROUP (:WINDOW-GROUP) 8. (NIL) NIL T NIL)
     #(FLAGS (:FLAGS) 9. (NIL . 0.) 0. T NIL)
   )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE WM-HINTS-P) WM-HINTS-P
   SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-P))
     (BLOCK WM-HINTS-P (SYSTEM::%STRUCTURE-TYPE-P 'WM-HINTS SYSTEM::OBJECT))
   )
   #Y(WM-HINTS-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02) WM-HINTS
     )
   (INLINE COPY-WM-HINTS) COPY-WM-HINTS
   ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-WM-HINTS))
     (BLOCK COPY-WM-HINTS (COPY-STRUCTURE STRUCTURE))
   )
   #Y(COPY-WM-HINTS #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 2F 19 02))
   (FUNCTION WM-HINTS-INPUT (WM-HINTS) T) (INLINE WM-HINTS-INPUT)
   WM-HINTS-INPUT
   (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-INPUT))
     (BLOCK WM-HINTS-INPUT
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-HINTS SYSTEM::OBJECT 1.))
   ) )
   #Y(WM-HINTS-INPUT #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      WM-HINTS 1.
     )
   SYSTEM::DEFSTRUCT-READER (FUNCTION WM-HINTS-INITIAL-STATE (WM-HINTS) T)
   (INLINE WM-HINTS-INITIAL-STATE) WM-HINTS-INITIAL-STATE
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-INITIAL-STATE))
     (BLOCK WM-HINTS-INITIAL-STATE
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-HINTS SYSTEM::OBJECT 2.))
   ) )
   #Y(WM-HINTS-INITIAL-STATE
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-HINTS 2.
     )
   (FUNCTION WM-HINTS-ICON-PIXMAP (WM-HINTS) T) (INLINE WM-HINTS-ICON-PIXMAP)
   WM-HINTS-ICON-PIXMAP
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-ICON-PIXMAP))
     (BLOCK WM-HINTS-ICON-PIXMAP
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-HINTS SYSTEM::OBJECT 3.))
   ) )
   #Y(WM-HINTS-ICON-PIXMAP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-HINTS 3.
     )
   (FUNCTION WM-HINTS-ICON-WINDOW (WM-HINTS) T) (INLINE WM-HINTS-ICON-WINDOW)
   WM-HINTS-ICON-WINDOW
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-ICON-WINDOW))
     (BLOCK WM-HINTS-ICON-WINDOW
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-HINTS SYSTEM::OBJECT 4.))
   ) )
   #Y(WM-HINTS-ICON-WINDOW
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-HINTS 4.
     )
   (FUNCTION WM-HINTS-ICON-X (WM-HINTS) T) (INLINE WM-HINTS-ICON-X)
   WM-HINTS-ICON-X
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-ICON-X))
     (BLOCK WM-HINTS-ICON-X
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-HINTS SYSTEM::OBJECT 5.))
   ) )
   #Y(WM-HINTS-ICON-X #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      WM-HINTS 5.
     )
   (FUNCTION WM-HINTS-ICON-Y (WM-HINTS) T) (INLINE WM-HINTS-ICON-Y)
   WM-HINTS-ICON-Y
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-ICON-Y))
     (BLOCK WM-HINTS-ICON-Y
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-HINTS SYSTEM::OBJECT 6.))
   ) )
   #Y(WM-HINTS-ICON-Y #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      WM-HINTS 6.
     )
   (FUNCTION WM-HINTS-ICON-MASK (WM-HINTS) T) (INLINE WM-HINTS-ICON-MASK)
   WM-HINTS-ICON-MASK
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-ICON-MASK))
     (BLOCK WM-HINTS-ICON-MASK
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-HINTS SYSTEM::OBJECT 7.))
   ) )
   #Y(WM-HINTS-ICON-MASK
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-HINTS 7.
     )
   (FUNCTION WM-HINTS-WINDOW-GROUP (WM-HINTS) T) (INLINE WM-HINTS-WINDOW-GROUP)
   WM-HINTS-WINDOW-GROUP
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-WINDOW-GROUP))
     (BLOCK WM-HINTS-WINDOW-GROUP
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-HINTS SYSTEM::OBJECT 8.))
   ) )
   #Y(WM-HINTS-WINDOW-GROUP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-HINTS 8.
     )
   (FUNCTION WM-HINTS-FLAGS (WM-HINTS) T) (INLINE WM-HINTS-FLAGS)
   WM-HINTS-FLAGS
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-HINTS-FLAGS))
     (BLOCK WM-HINTS-FLAGS
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-HINTS SYSTEM::OBJECT 9.))
   ) )
   #Y(WM-HINTS-FLAGS #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      WM-HINTS 9.
     )
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-WM-HINTS-INPUT
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-HINTS 1.
     )
   SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SETF-WM-HINTS-INITIAL-STATE
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-HINTS 2.
     )
   #Y(SETF-WM-HINTS-ICON-PIXMAP
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-HINTS 3.
     )
   #Y(SETF-WM-HINTS-ICON-WINDOW
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-HINTS 4.
     )
   #Y(SETF-WM-HINTS-ICON-X
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-HINTS 5.
     )
   #Y(SETF-WM-HINTS-ICON-Y
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-HINTS 6.
     )
   #Y(SETF-WM-HINTS-ICON-MASK
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-HINTS 7.
     )
   #Y(SETF-WM-HINTS-WINDOW-GROUP
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-HINTS 8.
     )
   #Y(SETF-WM-HINTS-FLAGS
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-HINTS 9.
     )
   STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD
  )
#Y(#:TOP-LEVEL-FORM-100
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) WM-HINTS
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WM-HINTS
      #32Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DA DC DD 6E 06 04 9D 1F 08 14
           AF 6F 05 30 06 19 03 19 03
          )
      :WM_HINTS :TYPE :RESULT-TYPE VECTOR GET-PROPERTY WINDOW-DISPLAY
      DECODE-WM-HINTS
  )  )
#Y(#:TOP-LEVEL-FORM-101
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   WM-HINTS SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER SET-WM-HINTS SETF
   SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-102
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-WM-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-WM-HINTS
      #23Y(00 00 00 00 02 00 00 00 00 03 AE DA AF 6F 01 DA DC 2D 05 03 9E 19 03
          )
      :WM_HINTS ENCODE-WM-HINTS 32. CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-103
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DECODE-WM-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DECODE-WM-HINTS
      #191Y(00 00 00 00 02 00 00 00 00 03 AE DA 73 01 01 2E 01 14 DC AD DD B0
            32 2D DA AE 8F CE 11 DE B1 DF 73 01 01 73 01 01 DC AE DF AF 32 2D
            16 01 DF AE 8F CE 11 E0 B1 E1 73 01 01 73 01 01 DC AE E1 AF 32 2D
            16 01 E1 AE 8F CE 10 AF B1 E2 73 01 01 70 09 DC AE E2 AF 32 2D 16
            01 E2 AE 8F CE 10 AF B1 E4 73 01 01 70 0B DC AE E4 AF 32 2D 16 01
            E4 AE 8F CE 1A B0 E6 73 01 01 DC AE E6 AF 32 2D 16 01 B0 E7 73 01
            01 DC AE E7 AF 32 2D 16 01 E6 AE 8F CE 10 AF B1 E8 73 01 01 70 09
            DC AE E8 AF 32 2D 16 01 E7 AE 8F CE 15 B0 72 44 E8 91 01 30 0D B0
            E9 73 01 01 DC AE E9 AF 32 2D 16 01 15 19 04
           )
      0. MAKE-WM-HINTS WM-HINTS 9. #(:OFF :ON) 1.
      #(:DONT-CARE :NORMAL :ZOOM :ICONIC :INACTIVE) 2. 3. LOOKUP-PIXMAP 4.
      LOOKUP-WINDOW 5. 6. 7. 8.
  )  )
#Y(#:TOP-LEVEL-FORM-104
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   ENCODE-WM-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(ENCODE-WM-HINTS
      #247Y(00 00 00 00 01 00 00 00 00 02 DA 38 07 C6 FC 71 1C DB DC B0 DD 8F
            2C 14 C8 F8 DC B0 DD 72 2C DE 38 06 72 5C AE DD AE 33 01 02 16 01
            DC B0 DF 8F 2C 18 AC DF 82 02 3B 00 DC B0 DF 72 2C E0 38 06 72 5C
            AE DF AE 33 01 02 16 01 DC B0 E1 8F 2C 15 AC E2 82 02 3B 00 DC B0
            E1 72 2C 6F 09 AE E1 AE 33 01 02 16 01 DC B0 E2 8F 2C 15 AC E4 82
            02 3B 00 DC B0 E2 72 2C 6F 0B AE E2 AE 33 01 02 16 01 DC B0 E6 8F
            2C 26 DC B0 E7 8F 2C 20 AC E8 82 02 3B 00 DC B0 E6 72 2C AE E6 AE
            33 01 02 16 01 DC B0 E7 72 2C AE E7 AE 33 01 02 16 01 DC B0 E9 8F
            2C 15 AC EA 82 02 3B 00 DC B0 E9 72 2C 6F 09 AE E9 AE 33 01 02 16
            01 DC B0 E4 8F 2C 13 AC EB 82 02 3B 00 DC B0 E4 72 2C AE E4 AE 33
            01 02 16 01 AC DC B1 DA 72 2C EC 72 C8 73 02 3B AE DB AE 33 01 02
            16 01 9E 19 04
           )
      9. 0. WM-HINTS 1. (:OFF :ON) 2.
      (:DONT-CARE :NORMAL :ZOOM :ICONIC :INACTIVE) 3. 4. PIXMAP-ID 8. WINDOW-ID
      5. 6. 16. 7. 32. 64. 127.
  )  )
#Y(#:TOP-LEVEL-FORM-105
   #1339Y(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 2F 05 E9 E5 EA 32 85 E9 EB 32 7F EC 31 59 ED 31 59 EE 2F
          05 EE E5 EF 32 85 EE F0 32 7F EE F1 DA 32 85 F2 31 59 F3 31 59 F4 2F
          05 F4 E5 F5 32 85 F4 F6 32 7F F4 F1 DA 32 85 F7 31 59 65 1E 31 59 65
          1F 2F 05 65 1F E5 65 20 32 85 65 1F 65 21 32 7F 65 1F F1 DA 32 85 65
          22 31 59 65 23 31 59 65 24 2F 05 65 24 E5 65 25 32 85 65 24 65 26 32
          7F 65 24 F1 DA 32 85 65 27 31 59 65 28 31 59 65 29 2F 05 65 29 E5 65
          2A 32 85 65 29 65 2B 32 7F 65 29 F1 DA 32 85 65 2C 31 59 65 2D 31 59
          65 2E 2F 05 65 2E E5 65 2F 32 85 65 2E 65 30 32 7F 65 2E F1 DA 32 85
          65 31 31 59 65 32 31 59 65 33 2F 05 65 33 E5 65 34 32 85 65 33 65 35
          32 7F 65 33 F1 DA 32 85 65 36 31 59 65 37 31 59 65 38 2F 05 65 38 E5
          65 39 32 85 65 38 65 3A 32 7F 65 38 F1 DA 32 85 65 3B 31 59 65 3C 31
          59 65 3D 2F 05 65 3D E5 65 3E 32 85 65 3D 65 3F 32 7F 65 3D F1 DA 32
          85 65 40 31 59 65 41 31 59 65 42 2F 05 65 42 E5 65 43 32 85 65 42 65
          44 32 7F 65 42 F1 DA 32 85 65 45 31 59 65 46 31 59 65 47 2F 05 65 47
          E5 65 48 32 85 65 47 65 49 32 7F 65 47 F1 DA 32 85 65 4A 31 59 65 4B
          31 59 65 4C 2F 05 65 4C E5 65 4D 32 85 65 4C 65 4E 32 7F 65 4C F1 DA
          32 85 65 4F 31 59 65 50 31 59 65 51 2F 05 65 51 E5 65 52 32 85 65 51
          65 53 32 7F 65 51 F1 DA 32 85 65 54 31 59 65 55 31 59 65 56 2F 05 65
          56 E5 65 57 32 85 65 56 65 58 32 7F 65 56 F1 DA 32 85 65 59 31 59 65
          5A 31 59 65 5B 2F 05 65 5B E5 65 5C 32 85 65 5B 65 5D 32 7F 65 5B F1
          DA 32 85 65 5E 31 59 65 5F 31 59 65 60 2F 05 65 60 E5 65 61 32 85 65
          60 65 62 32 7F 65 60 F1 DA 32 85 65 63 31 59 65 64 31 59 65 65 2F 05
          65 65 E5 65 66 32 85 65 65 65 67 32 7F 65 65 F1 DA 32 85 65 68 31 59
          65 69 31 59 65 6A 2F 05 65 6A E5 65 6B 32 85 65 6A 65 6C 32 7F 65 6A
          F1 DA 32 85 65 6D 31 59 65 6E 31 59 65 6F 2F 05 65 6F E5 65 70 32 85
          65 6F 65 71 32 7F 65 6F F1 DA 32 85 EE 65 72 32 86 EE 65 73 65 74 65
          75 03 76 7C 02 32 85 EE 65 77 63 2D 03 78 EE 65 72 DA 32 85 F4 65 72
          32 86 F4 65 73 65 74 65 75 03 79 7C 02 32 85 F4 65 77 63 2D 03 78 F4
          65 72 DA 32 85 65 1F 65 72 32 86 65 1F 65 73 65 74 65 75 03 7A 7C 02
          32 85 65 1F 65 77 63 2D 03 78 65 1F 65 72 DA 32 85 65 24 65 72 32 86
          65 24 65 73 65 74 65 75 03 7B 7C 02 32 85 65 24 65 77 63 2D 03 78 65
          24 65 72 DA 32 85 65 29 65 72 32 86 65 29 65 73 65 74 65 75 03 7C 7C
          02 32 85 65 29 65 77 63 2D 03 78 65 29 65 72 DA 32 85 65 2E 65 72 32
          86 65 2E 65 73 65 74 65 75 03 7D 7C 02 32 85 65 2E 65 77 63 2D 03 78
          65 2E 65 72 DA 32 85 65 33 65 72 32 86 65 33 65 73 65 74 65 75 03 7E
          7C 02 32 85 65 33 65 77 63 2D 03 78 65 33 65 72 DA 32 85 65 38 65 72
          32 86 65 38 65 73 65 74 65 75 03 7F 7C 02 32 85 65 38 65 77 63 2D 03
          78 65 38 65 72 DA 32 85 65 3D 65 72 32 86 65 3D 65 73 65 74 65 75 03
          80 80 7C 02 32 85 65 3D 65 77 63 2D 03 78 65 3D 65 72 DA 32 85 65 42
          65 72 32 86 65 42 65 73 65 74 65 75 03 80 81 7C 02 32 85 65 42 65 77
          63 2D 03 78 65 42 65 72 DA 32 85 65 47 65 72 32 86 65 47 65 73 65 74
          65 75 03 80 82 7C 02 32 85 65 47 65 77 63 2D 03 78 65 47 65 72 DA 32
          85 65 4C 65 72 32 86 65 4C 65 73 65 74 65 75 03 80 83 7C 02 32 85 65
          4C 65 77 63 2D 03 78 65 4C 65 72 DA 32 85 65 51 65 72 32 86 65 51 65
          73 65 74 65 75 03 80 84 7C 02 32 85 65 51 65 77 63 2D 03 78 65 51 65
          72 DA 32 85 65 56 65 72 32 86 65 56 65 73 65 74 65 75 03 80 85 7C 02
          32 85 65 56 65 77 63 2D 03 78 65 56 65 72 DA 32 85 65 5B 65 72 32 86
          65 5B 65 73 65 74 65 75 03 80 86 7C 02 32 85 65 5B 65 77 63 2D 03 78
          65 5B 65 72 DA 32 85 65 60 65 72 32 86 65 60 65 73 65 74 65 75 03 80
          87 7C 02 32 85 65 60 65 77 63 2D 03 78 65 60 65 72 DA 32 85 65 65 65
          72 32 86 65 65 65 73 65 74 65 75 03 80 88 7C 02 32 85 65 65 65 77 63
          2D 03 78 65 65 65 72 DA 32 85 65 6A 65 72 32 86 65 6A 65 73 65 74 65
          75 03 80 89 7C 02 32 85 65 6A 65 77 63 2D 03 78 65 6A 65 72 DA 32 85
          65 6F 65 72 32 86 65 6F 65 73 65 74 65 75 03 80 8A 7C 02 32 85 65 6F
          65 77 63 2D 03 78 65 6F 65 72 DA 32 85 DA 65 80 8B 63 2D 03 78 DA 2F
          80 8C C5 19 01
         )
   WM-SIZE-HINTS STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   MAKE-WM-SIZE-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-WM-SIZE-HINTS
      #186Y(00 00 00 00 00 00 00 00 80 1B 13 00 01 00 3D 13 3D 12 3D 11 3D 10
            3D 0F 3D 0E 3D 0D 3D 0C 3D 0B 3D 0A 3D 09 3D 08 3D 07 3D 06 3D 05
            3D 04 3D 03 3D 02 3D 01 69 00 01 EE 72 2E EF AD F0 C3 32 2D EF AD
            F1 C2 32 2D EF AD F2 C1 32 2D EF AD F3 C0 32 2D EF AD F4 BF 32 2D
            EF AD F5 BE 32 2D EF AD F6 BD 32 2D EF AD F7 BC 32 2D EF AD 65 1E
            BB 32 2D EF AD 65 1F BA 32 2D EF AD 65 20 B9 32 2D EF AD 65 21 B8
            32 2D EF AD 65 22 B7 32 2D EF AD 65 23 B6 32 2D EF AD 65 24 B5 32
            2D EF AD 65 25 B4 32 2D EF AD 65 26 B3 32 2D EF AD 65 27 B2 32 2D
            EF AD 65 28 B1 32 2D 15 19 14
           )
      NIL :USER-SPECIFIED-POSITION-P :USER-SPECIFIED-SIZE-P :X :Y :WIDTH
      :HEIGHT :MIN-WIDTH :MIN-HEIGHT :MAX-WIDTH :MAX-HEIGHT :WIDTH-INC
      :HEIGHT-INC :MIN-ASPECT :MAX-ASPECT :BASE-WIDTH :BASE-HEIGHT :WIN-GRAVITY
      :PROGRAM-SPECIFIED-POSITION-P :PROGRAM-SPECIFIED-SIZE-P 20. WM-SIZE-HINTS
      1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19.
     )
   (#(USER-SPECIFIED-POSITION-P (:USER-SPECIFIED-POSITION-P) 1. (NIL) NIL
       BOOLEAN NIL
     )
     #(USER-SPECIFIED-SIZE-P (:USER-SPECIFIED-SIZE-P) 2. (NIL) NIL BOOLEAN NIL)
     #(X (:X) 3. (NIL) NIL T NIL) #(Y (:Y) 4. (NIL) NIL T NIL)
     #(WIDTH (:WIDTH) 5. (NIL) NIL T NIL)
     #(HEIGHT (:HEIGHT) 6. (NIL) NIL T NIL)
     #(MIN-WIDTH (:MIN-WIDTH) 7. (NIL) NIL (OR NULL CARD16) NIL)
     #(MIN-HEIGHT (:MIN-HEIGHT) 8. (NIL) NIL (OR NULL CARD16) NIL)
     #(MAX-WIDTH (:MAX-WIDTH) 9. (NIL) NIL (OR NULL CARD16) NIL)
     #(MAX-HEIGHT (:MAX-HEIGHT) 10. (NIL) NIL (OR NULL CARD16) NIL)
     #(WIDTH-INC (:WIDTH-INC) 11. (NIL) NIL (OR NULL CARD16) NIL)
     #(HEIGHT-INC (:HEIGHT-INC) 12. (NIL) NIL (OR NULL CARD16) NIL)
     #(MIN-ASPECT (:MIN-ASPECT) 13. (NIL) NIL (OR NULL NUMBER) NIL)
     #(MAX-ASPECT (:MAX-ASPECT) 14. (NIL) NIL (OR NULL NUMBER) NIL)
     #(BASE-WIDTH (:BASE-WIDTH) 15. (NIL) NIL (OR NULL CARD16) NIL)
     #(BASE-HEIGHT (:BASE-HEIGHT) 16. (NIL) NIL (OR NULL CARD16) NIL)
     #(WIN-GRAVITY (:WIN-GRAVITY) 17. (NIL) NIL (OR NULL WIN-GRAVITY) NIL)
     #(PROGRAM-SPECIFIED-POSITION-P (:PROGRAM-SPECIFIED-POSITION-P) 18. (NIL)
       NIL BOOLEAN NIL
      )
     #(PROGRAM-SPECIFIED-SIZE-P (:PROGRAM-SPECIFIED-SIZE-P) 19. (NIL) NIL
       BOOLEAN NIL
   )  )
   CLOS::DEFINE-STRUCTURE-CLASS (INLINE WM-SIZE-HINTS-P) WM-SIZE-HINTS-P
   SYSTEM::INLINE-EXPANSION
   ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-P))
     (BLOCK WM-SIZE-HINTS-P
       (SYSTEM::%STRUCTURE-TYPE-P 'WM-SIZE-HINTS SYSTEM::OBJECT)
   ) )
   #Y(WM-SIZE-HINTS-P #16Y(00 00 00 00 01 00 00 00 00 02 DA AE 32 30 19 02)
      WM-SIZE-HINTS
     )
   (INLINE COPY-WM-SIZE-HINTS) COPY-WM-SIZE-HINTS
   ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-WM-SIZE-HINTS))
     (BLOCK COPY-WM-SIZE-HINTS (COPY-STRUCTURE STRUCTURE))
   )
   #Y(COPY-WM-SIZE-HINTS #15Y(00 00 00 00 01 00 00 00 00 02 AD 32 2F 19 02))
   (FUNCTION WM-SIZE-HINTS-USER-SPECIFIED-POSITION-P (WM-SIZE-HINTS) BOOLEAN)
   (INLINE WM-SIZE-HINTS-USER-SPECIFIED-POSITION-P)
   WM-SIZE-HINTS-USER-SPECIFIED-POSITION-P
   (#1=(SYSTEM::OBJECT)
     (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-USER-SPECIFIED-POSITION-P))
     (BLOCK WM-SIZE-HINTS-USER-SPECIFIED-POSITION-P
       (THE BOOLEAN (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 1.))
   ) )
   #Y(WM-SIZE-HINTS-USER-SPECIFIED-POSITION-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS 1.
     )
   SYSTEM::DEFSTRUCT-READER
   (FUNCTION WM-SIZE-HINTS-USER-SPECIFIED-SIZE-P (WM-SIZE-HINTS) BOOLEAN)
   (INLINE WM-SIZE-HINTS-USER-SPECIFIED-SIZE-P)
   WM-SIZE-HINTS-USER-SPECIFIED-SIZE-P
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-USER-SPECIFIED-SIZE-P))
     (BLOCK WM-SIZE-HINTS-USER-SPECIFIED-SIZE-P
       (THE BOOLEAN (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 2.))
   ) )
   #Y(WM-SIZE-HINTS-USER-SPECIFIED-SIZE-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS 2.
     )
   (FUNCTION WM-SIZE-HINTS-X (WM-SIZE-HINTS) T) (INLINE WM-SIZE-HINTS-X)
   WM-SIZE-HINTS-X
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-X))
     (BLOCK WM-SIZE-HINTS-X
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 3.))
   ) )
   #Y(WM-SIZE-HINTS-X #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      WM-SIZE-HINTS 3.
     )
   (FUNCTION WM-SIZE-HINTS-Y (WM-SIZE-HINTS) T) (INLINE WM-SIZE-HINTS-Y)
   WM-SIZE-HINTS-Y
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-Y))
     (BLOCK WM-SIZE-HINTS-Y
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 4.))
   ) )
   #Y(WM-SIZE-HINTS-Y #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      WM-SIZE-HINTS 4.
     )
   (FUNCTION WM-SIZE-HINTS-WIDTH (WM-SIZE-HINTS) T)
   (INLINE WM-SIZE-HINTS-WIDTH) WM-SIZE-HINTS-WIDTH
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-WIDTH))
     (BLOCK WM-SIZE-HINTS-WIDTH
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 5.))
   ) )
   #Y(WM-SIZE-HINTS-WIDTH
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS 5.
     )
   (FUNCTION WM-SIZE-HINTS-HEIGHT (WM-SIZE-HINTS) T)
   (INLINE WM-SIZE-HINTS-HEIGHT) WM-SIZE-HINTS-HEIGHT
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-HEIGHT))
     (BLOCK WM-SIZE-HINTS-HEIGHT
       (THE T (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 6.))
   ) )
   #Y(WM-SIZE-HINTS-HEIGHT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS 6.
     )
   (FUNCTION WM-SIZE-HINTS-MIN-WIDTH (WM-SIZE-HINTS) #2=(OR NULL CARD16))
   (INLINE WM-SIZE-HINTS-MIN-WIDTH) WM-SIZE-HINTS-MIN-WIDTH
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-MIN-WIDTH))
     (BLOCK WM-SIZE-HINTS-MIN-WIDTH
       (THE #2# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 7.))
   ) )
   #Y(WM-SIZE-HINTS-MIN-WIDTH
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS 7.
     )
   (FUNCTION WM-SIZE-HINTS-MIN-HEIGHT (WM-SIZE-HINTS) #3=(OR NULL CARD16))
   (INLINE WM-SIZE-HINTS-MIN-HEIGHT) WM-SIZE-HINTS-MIN-HEIGHT
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-MIN-HEIGHT))
     (BLOCK WM-SIZE-HINTS-MIN-HEIGHT
       (THE #3# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 8.))
   ) )
   #Y(WM-SIZE-HINTS-MIN-HEIGHT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS 8.
     )
   (FUNCTION WM-SIZE-HINTS-MAX-WIDTH (WM-SIZE-HINTS) #4=(OR NULL CARD16))
   (INLINE WM-SIZE-HINTS-MAX-WIDTH) WM-SIZE-HINTS-MAX-WIDTH
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-MAX-WIDTH))
     (BLOCK WM-SIZE-HINTS-MAX-WIDTH
       (THE #4# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 9.))
   ) )
   #Y(WM-SIZE-HINTS-MAX-WIDTH
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS 9.
     )
   (FUNCTION WM-SIZE-HINTS-MAX-HEIGHT (WM-SIZE-HINTS) #5=(OR NULL CARD16))
   (INLINE WM-SIZE-HINTS-MAX-HEIGHT) WM-SIZE-HINTS-MAX-HEIGHT
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-MAX-HEIGHT))
     (BLOCK WM-SIZE-HINTS-MAX-HEIGHT
       (THE #5# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 10.))
   ) )
   #Y(WM-SIZE-HINTS-MAX-HEIGHT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      10.
     )
   (FUNCTION WM-SIZE-HINTS-WIDTH-INC (WM-SIZE-HINTS) #6=(OR NULL CARD16))
   (INLINE WM-SIZE-HINTS-WIDTH-INC) WM-SIZE-HINTS-WIDTH-INC
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-WIDTH-INC))
     (BLOCK WM-SIZE-HINTS-WIDTH-INC
       (THE #6# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 11.))
   ) )
   #Y(WM-SIZE-HINTS-WIDTH-INC
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      11.
     )
   (FUNCTION WM-SIZE-HINTS-HEIGHT-INC (WM-SIZE-HINTS) #7=(OR NULL CARD16))
   (INLINE WM-SIZE-HINTS-HEIGHT-INC) WM-SIZE-HINTS-HEIGHT-INC
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-HEIGHT-INC))
     (BLOCK WM-SIZE-HINTS-HEIGHT-INC
       (THE #7# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 12.))
   ) )
   #Y(WM-SIZE-HINTS-HEIGHT-INC
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      12.
     )
   (FUNCTION WM-SIZE-HINTS-MIN-ASPECT (WM-SIZE-HINTS) #8=(OR NULL NUMBER))
   (INLINE WM-SIZE-HINTS-MIN-ASPECT) WM-SIZE-HINTS-MIN-ASPECT
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-MIN-ASPECT))
     (BLOCK WM-SIZE-HINTS-MIN-ASPECT
       (THE #8# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 13.))
   ) )
   #Y(WM-SIZE-HINTS-MIN-ASPECT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      13.
     )
   (FUNCTION WM-SIZE-HINTS-MAX-ASPECT (WM-SIZE-HINTS) #9=(OR NULL NUMBER))
   (INLINE WM-SIZE-HINTS-MAX-ASPECT) WM-SIZE-HINTS-MAX-ASPECT
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-MAX-ASPECT))
     (BLOCK WM-SIZE-HINTS-MAX-ASPECT
       (THE #9# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 14.))
   ) )
   #Y(WM-SIZE-HINTS-MAX-ASPECT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      14.
     )
   (FUNCTION WM-SIZE-HINTS-BASE-WIDTH (WM-SIZE-HINTS) #10=(OR NULL CARD16))
   (INLINE WM-SIZE-HINTS-BASE-WIDTH) WM-SIZE-HINTS-BASE-WIDTH
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-BASE-WIDTH))
     (BLOCK WM-SIZE-HINTS-BASE-WIDTH
       (THE #10# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 15.))
   ) )
   #Y(WM-SIZE-HINTS-BASE-WIDTH
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      15.
     )
   (FUNCTION WM-SIZE-HINTS-BASE-HEIGHT (WM-SIZE-HINTS) #11=(OR NULL CARD16))
   (INLINE WM-SIZE-HINTS-BASE-HEIGHT) WM-SIZE-HINTS-BASE-HEIGHT
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-BASE-HEIGHT))
     (BLOCK WM-SIZE-HINTS-BASE-HEIGHT
       (THE #11# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 16.))
   ) )
   #Y(WM-SIZE-HINTS-BASE-HEIGHT
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      16.
     )
   (FUNCTION WM-SIZE-HINTS-WIN-GRAVITY (WM-SIZE-HINTS)
     #12=(OR NULL WIN-GRAVITY)
   )
   (INLINE WM-SIZE-HINTS-WIN-GRAVITY) WM-SIZE-HINTS-WIN-GRAVITY
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-WIN-GRAVITY))
     (BLOCK WM-SIZE-HINTS-WIN-GRAVITY
       (THE #12# (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 17.))
   ) )
   #Y(WM-SIZE-HINTS-WIN-GRAVITY
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      17.
     )
   (FUNCTION WM-SIZE-HINTS-PROGRAM-SPECIFIED-POSITION-P (WM-SIZE-HINTS) BOOLEAN
   )
   (INLINE WM-SIZE-HINTS-PROGRAM-SPECIFIED-POSITION-P)
   WM-SIZE-HINTS-PROGRAM-SPECIFIED-POSITION-P
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-PROGRAM-SPECIFIED-POSITION-P))
     (BLOCK WM-SIZE-HINTS-PROGRAM-SPECIFIED-POSITION-P
       (THE BOOLEAN (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 18.))
   ) )
   #Y(WM-SIZE-HINTS-PROGRAM-SPECIFIED-POSITION-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      18.
     )
   (FUNCTION WM-SIZE-HINTS-PROGRAM-SPECIFIED-SIZE-P (WM-SIZE-HINTS) BOOLEAN)
   (INLINE WM-SIZE-HINTS-PROGRAM-SPECIFIED-SIZE-P)
   WM-SIZE-HINTS-PROGRAM-SPECIFIED-SIZE-P
   (#1# (DECLARE (SYSTEM::IN-DEFUN WM-SIZE-HINTS-PROGRAM-SPECIFIED-SIZE-P))
     (BLOCK WM-SIZE-HINTS-PROGRAM-SPECIFIED-SIZE-P
       (THE BOOLEAN (SYSTEM::%STRUCTURE-REF 'WM-SIZE-HINTS SYSTEM::OBJECT 19.))
   ) )
   #Y(WM-SIZE-HINTS-PROGRAM-SPECIFIED-SIZE-P
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02) WM-SIZE-HINTS
      19.
     )
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-WM-SIZE-HINTS-USER-SPECIFIED-POSITION-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 'WM-SIZE-HINTS 1. THE BOOLEAN
     )
   SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SETF-WM-SIZE-HINTS-USER-SPECIFIED-SIZE-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 'WM-SIZE-HINTS 2. THE BOOLEAN
     )
   #Y(SETF-WM-SIZE-HINTS-X
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-SIZE-HINTS 3.
     )
   #Y(SETF-WM-SIZE-HINTS-Y
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-SIZE-HINTS 4.
     )
   #Y(SETF-WM-SIZE-HINTS-WIDTH
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-SIZE-HINTS 5.
     )
   #Y(SETF-WM-SIZE-HINTS-HEIGHT
      #22Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC B2 61 05 19 04)
      SYSTEM::%STRUCTURE-STORE 'WM-SIZE-HINTS 6.
     )
   #Y(SETF-WM-SIZE-HINTS-MIN-WIDTH
      #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 'WM-SIZE-HINTS 7. THE #2#
     )
   #Y(SETF-WM-SIZE-HINTS-MIN-HEIGHT
      #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 'WM-SIZE-HINTS 8. THE #3#
     )
   #Y(SETF-WM-SIZE-HINTS-MAX-WIDTH
      #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 'WM-SIZE-HINTS 9. THE #4#
     )
   #Y(SETF-WM-SIZE-HINTS-MAX-HEIGHT
      #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 'WM-SIZE-HINTS 10. THE #5#
     )
   #Y(SETF-WM-SIZE-HINTS-WIDTH-INC
      #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 'WM-SIZE-HINTS 11. THE #6#
     )
   #Y(SETF-WM-SIZE-HINTS-HEIGHT-INC
      #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 'WM-SIZE-HINTS 12. THE #7#
     )
   #Y(SETF-WM-SIZE-HINTS-MIN-ASPECT
      #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 'WM-SIZE-HINTS 13. THE #8#
     )
   #Y(SETF-WM-SIZE-HINTS-MAX-ASPECT
      #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 'WM-SIZE-HINTS 14. THE #9#
     )
   #Y(SETF-WM-SIZE-HINTS-BASE-WIDTH
      #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 'WM-SIZE-HINTS 15. THE #10#
     )
   #Y(SETF-WM-SIZE-HINTS-BASE-HEIGHT
      #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 'WM-SIZE-HINTS 16. THE #11#
     )
   #Y(SETF-WM-SIZE-HINTS-WIN-GRAVITY
      #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 'WM-SIZE-HINTS 17. THE #12#
     )
   #Y(SETF-WM-SIZE-HINTS-PROGRAM-SPECIFIED-POSITION-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 'WM-SIZE-HINTS 18. THE BOOLEAN
     )
   #Y(SETF-WM-SIZE-HINTS-PROGRAM-SPECIFIED-SIZE-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 'WM-SIZE-HINTS 19. THE BOOLEAN
     )
   STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD
  )
#Y(#:TOP-LEVEL-FORM-106
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   WM-NORMAL-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WM-NORMAL-HINTS
      #23Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DC DD DE 6E 06 05 2F 06 19 02
          )
      :WM_NORMAL_HINTS :TYPE :WM_SIZE_HINTS :RESULT-TYPE VECTOR GET-PROPERTY
      DECODE-WM-SIZE-HINTS
  )  )
#Y(#:TOP-LEVEL-FORM-107
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   WM-NORMAL-HINTS SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER
   SET-WM-NORMAL-HINTS SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-108
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-WM-NORMAL-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-WM-NORMAL-HINTS
      #23Y(00 00 00 00 02 00 00 00 00 03 AE DA AF 6F 01 DC DD 2D 05 04 9E 19 03
          )
      :WM_NORMAL_HINTS ENCODE-WM-SIZE-HINTS :WM_SIZE_HINTS 32. CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-109
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   WM-ZOOM-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WM-ZOOM-HINTS
      #23Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DC DD DE 6E 06 05 2F 06 19 02
          )
      :WM_ZOOM_HINTS :TYPE :WM_SIZE_HINTS :RESULT-TYPE VECTOR GET-PROPERTY
      DECODE-WM-SIZE-HINTS
  )  )
#Y(#:TOP-LEVEL-FORM-110
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   WM-ZOOM-HINTS SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER
   SET-WM-ZOOM-HINTS SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-111
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-WM-ZOOM-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-WM-ZOOM-HINTS
      #23Y(00 00 00 00 02 00 00 00 00 03 AE DA AF 6F 01 DC DD 2D 05 04 9E 19 03
          )
      :WM_ZOOM_HINTS ENCODE-WM-SIZE-HINTS :WM_SIZE_HINTS 32. CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-112
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DECODE-WM-SIZE-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DECODE-WM-SIZE-HINTS
      #348Y(00 00 00 00 01 00 00 00 00 02 9E 1F 81 4C 14 DA 73 01 01 2E 01 14
            DA AE 72 CE DC AE DD AF 32 2D 16 01 DD AE 72 CE DC AE DE AF 32 2D
            16 01 DE AE 72 CE DC AE DF AF 32 2D 16 01 E0 AE 72 CE DC AE E1 AF
            32 2D 16 01 E2 AE 8F CE 1A AF E3 73 01 01 DC AE E4 AF 32 2D 16 01
            AF E5 73 01 01 DC AE E6 AF 32 2D 16 01 E3 AE 8F CE 1A AF E4 73 01
            01 DC AE E7 AF 32 2D 16 01 AF E6 73 01 01 DC AE E8 AF 32 2D 16 01
            E5 AE 8F CE 1A AF E7 73 01 01 DC AE E9 AF 32 2D 16 01 AF E8 73 01
            01 DC AE EA AF 32 2D 16 01 E4 AE 8F CE 2A AF E9 73 01 01 B0 EA 73
            01 01 73 01 38 DC AE EB AF 32 2D 16 01 AF EB 73 01 01 B0 EC 73 01
            01 73 01 38 DC AE EC AF 32 2D 16 01 AF 72 44 ED 91 01 30 35 E6 AE
            8F CE 1A AF ED 73 01 01 DC AE ED AF 32 2D 16 01 AF EE 73 01 01 DC
            AE EE AF 32 2D 16 01 E7 AE 8F CE 11 EF B0 F0 73 01 01 73 01 01 DC
            AE F0 AF 32 2D 16 01 DA AE 8E CE 05 DE AE 8F CE 1A AF DD 73 01 01
            DC AE E0 AF 32 2D 16 01 AF DE 73 01 01 DC AE E2 AF 32 2D 16 01 DD
            AE 8E CE 05 E0 AE 8F CE 1A AF E0 73 01 01 DC AE E3 AF 32 2D 16 01
            AF E2 73 01 01 DC AE E5 AF 32 2D 16 01 15 19 03 19 02
           )
      0. MAKE-WM-SIZE-HINTS WM-SIZE-HINTS 1. 2. 18. 3. 19. 4. 5. 7. 6. 8. 9.
      10. 11. 12. 13. 14. 15. 16.
      #(:UNMAP :NORTH-WEST :NORTH :NORTH-EAST :WEST :CENTER :EAST :SOUTH-WEST
        :SOUTH :SOUTH-EAST :STATIC
       )
      17.
  )  )
#Y(#:TOP-LEVEL-FORM-113
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   ENCODE-WM-SIZE-HINTS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(ENCODE-WM-SIZE-HINTS
      #543Y(00 00 00 00 01 00 00 00 00 02 DA 38 07 C6 FC 71 1C DB DC B0 DD 8F
            2C 0D DD DB 72 D2 DD AD AF 72 D8 9D FA 16 02 DC B0 DE 8F 2C 0D DD
            DD 72 D2 DD AD AF 72 D8 9D FA 16 02 DC B0 DA 8F 2C 0D DD DE 72 D2
            DD AD AF 72 D8 9D FA 16 02 DC B0 DF 8F 2C 0D DD E0 72 D2 DD AD AF
            72 D8 9D FA 16 02 DC B0 E1 8F 2C 2D DC B0 E2 8F 2C 27 DD E3 72 D2
            DD AD AF 72 D8 9D FA 16 02 DC B0 E1 72 2C AE E4 AE 33 01 02 16 01
            DC B0 E2 72 2C AE E5 AE 33 01 02 16 01 DC B0 E6 8F 2C 2D DC B0 E7
            8F 2C 27 DD E4 72 D2 DD AD AF 72 D8 9D FA 16 02 DC B0 E6 72 2C AE
            E1 AE 33 01 02 16 01 DC B0 E7 72 2C AE E2 AE 33 01 02 16 01 DC B0
            E8 8F 2C 2D DC B0 E9 8F 2C 27 DD E5 72 D2 DD AD AF 72 D8 9D FA 16
            02 DC B0 E8 72 2C AE E6 AE 33 01 02 16 01 DC B0 E9 72 2C AE E7 AE
            33 01 02 16 01 DC B0 EA 72 2C DC B1 EB 72 2C 93 01 80 45 93 00 80
            41 DD E1 72 D2 DD AD B1 72 D8 9D FC 16 02 AD 81 AE 01 AC 81 AE 00
            AD 72 AF B0 E8 AE 33 01 02 16 01 AD 72 B0 B0 E9 AE 33 01 02 16 01
            AC 72 AF B0 EA AE 33 01 02 16 01 AC 72 B0 B0 EB AE 33 01 02 16 01
            16 02 DC B0 EC 8F 2C 2D DC B0 ED 8F 2C 27 DD E2 72 D2 DD AD AF 72
            D8 9D FA 16 02 DC B0 EC 72 2C AE EC AE 33 01 02 16 01 DC B0 ED 72
            2C AE ED AE 33 01 02 16 01 DC B0 EE 8F 2C 1F DD E6 72 D2 DD AD AF
            72 D8 9D FA 16 02 DC B0 EE 72 2C EF 38 06 72 5C AE EE AE 33 01 02
            16 01 DC B0 E0 8F 2C 33 DC B0 E3 8F 2C 2D DC B0 DD 8E 2C 0D DD DE
            72 D2 DD AD AF 72 D8 9D FA 16 02 DC B0 E0 72 2C AE DD AE 33 01 02
            16 01 DC B0 E3 72 2C AE DE AE 33 01 02 16 01 DC B0 E4 8F 2C 33 DC
            B0 E5 8F 2C 2D DC B0 DE 8E 2C 0D DD E0 72 D2 DD AD AF 72 D8 9D FA
            16 02 DC B0 E4 72 2C AE E0 AE 33 01 02 16 01 DC B0 E5 72 2C AE E3
            AE 33 01 02 16 01 AD DB AE 33 01 02 9E 19 04
           )
      18. 0. WM-SIZE-HINTS 1. 2. 19. 3. 7. 8. 4. 5. 6. 9. 10. 11. 12. 13. 14.
      15. 16. 17.
      (:UNMAP :NORTH-WEST :NORTH :NORTH-EAST :WEST :CENTER :EAST :SOUTH-WEST
        :SOUTH :SOUTH-EAST :STATIC
  )  ))
#Y(#:TOP-LEVEL-FORM-114
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) ICON-SIZES
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(ICON-SIZES
      #65Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DA DC DD 6E 06 04 9D 1F 29 DF
           AD E0 73 01 01 E1 AF E2 73 01 01 E3 B1 E4 73 01 01 E5 B3 E6 73 01 01
           E7 B5 E8 73 01 01 E9 B7 EA 73 01 01 2D 0C 11 19 03 19 03
          )
      :WM_ICON_SIZE :TYPE :RESULT-TYPE VECTOR GET-PROPERTY :MIN-WIDTH 0.
      :MIN-HEIGHT 1. :MAX-WIDTH 2. :MAX-HEIGHT 3. :WIDTH-INC 4. :HEIGHT-INC 5.
      MAKE-WM-SIZE-HINTS
  )  )
#Y(#:TOP-LEVEL-FORM-115
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   ICON-SIZES SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER SET-ICON-SIZES
   SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-116
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-ICON-SIZES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-ICON-SIZES
      #54Y(00 00 00 00 02 00 00 00 00 03 DA AE DB 72 2C DA AF DC 72 2C DA B0 DD
           72 2C DA B1 DE 72 2C DA B2 DF 72 2C DA B3 E0 72 2C 73 06 00 AF E1 AE
           E1 E2 2D 05 09 9F 19 04
          )
      WM-SIZE-HINTS 7. 8. 9. 10. 11. 12. :WM_ICON_SIZE 32. CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-117
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   WM-PROTOCOLS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WM-PROTOCOLS
      #36Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 7F 02 00 00 DA AD 6D 01 01 68
           02 00 DC DD DE 6E 04 05 33 00 26 19 03
          )
      LIST
      #Y(WM-PROTOCOLS-1
         #20Y(00 00 00 00 01 00 00 00 00 02 69 00 01 6F 01 AE 30 02 19 02) NIL
         WINDOW-DISPLAY ATOM-NAME
        )
      :WM_PROTOCOLS :TYPE :ATOM GET-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-118
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   WM-PROTOCOLS SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER SET-WM-PROTOCOLS
   SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-119
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-WM-PROTOCOLS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-WM-PROTOCOLS
      #36Y(00 00 00 00 02 00 00 00 00 03 00 2B 01 7F 03 00 00 14 DA DB AF 6D 02
           01 B2 73 00 26 DD DE 2D 05 05 9F 19 04
          )
      :WM_PROTOCOLS LIST
      #Y(SET-WM-PROTOCOLS-1
         #20Y(00 00 00 00 01 00 00 00 00 02 69 00 01 6F 01 AE 30 02 19 02) NIL
         WINDOW-DISPLAY INTERN-ATOM
        )
      :ATOM 32. CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-120
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   WM-COLORMAP-WINDOWS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(WM-COLORMAP-WINDOWS
      #32Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 7F 02 00 00 14 DA DB DC DD B1
           6D 04 01 2D 06 05 3F 19 03
          )
      :WM_COLORMAP_WINDOWS :TYPE :WINDOW :TRANSFORM
      #Y(WM-COLORMAP-WINDOWS-1
         #20Y(00 00 00 00 01 00 00 00 00 02 69 00 01 6F 01 AE 30 02 19 02) NIL
         WINDOW-DISPLAY LOOKUP-WINDOW
        )
      GET-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-121
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   WM-COLORMAP-WINDOWS SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER
   SET-WM-COLORMAP-WINDOWS SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-122
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-WM-COLORMAP-WINDOWS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-WM-COLORMAP-WINDOWS
      #24Y(00 00 00 00 02 00 00 00 00 03 AE DA AF DB DC DD 99 04 2D 07 05 9E 19
           03
          )
      :WM_COLORMAP_WINDOWS :WINDOW 32. :TRANSFORM WINDOW-ID CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-123
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   TRANSIENT-FOR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(TRANSIENT-FOR
      #33Y(00 00 00 00 01 00 00 00 00 02 AD DA DB DC DD DE 6E 06 05 9D 1F 09 AE
           6F 06 94 01 30 07 19 03 19 03
          )
      :WM_TRANSIENT_FOR :TYPE :WINDOW :RESULT-TYPE LIST GET-PROPERTY
      WINDOW-DISPLAY LOOKUP-WINDOW
  )  )
#Y(#:TOP-LEVEL-FORM-124
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   TRANSIENT-FOR SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER
   SET-TRANSIENT-FOR SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-125
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-TRANSIENT-FOR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-TRANSIENT-FOR
      #25Y(00 00 00 00 02 00 00 00 00 03 AE DA AF 6F 01 7B 01 DC DD 2D 05 04 9E
           19 03
          )
      :WM_TRANSIENT_FOR WINDOW-ID :WINDOW 32. CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-126
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-WM-PROPERTIES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-WM-PROPERTIES
      #751Y(00 00 00 00 01 00 00 00 81 00 24 00 00 00 3D 24 3D 23 3D 22 3D 21
            3D 20 3D 1F 3D 1E 3D 1D 3D 1C 3C 1B 14 3D 1C 3C 1B 14 3D 1C 3C 1B
            14 3D 1C 3C 1B 14 3D 1C 3D 1B 3D 1A 3D 19 3D 18 3D 17 3D 16 3D 15
            3D 14 3D 13 3D 12 3D 11 3D 10 3D 0F 3D 0E 3D 0D 3D 0C 3D 0B 3D 0A
            3D 09 3D 08 3D 07 3D 06 3B 05 37 7D 05 93 28 35 66 2A 65 24 66 2A
            2D 03 25 93 27 2C 66 2A 65 26 66 29 2D 03 25 93 23 23 66 2A 65 27
            66 25 2D 03 25 93 26 1A 66 2A 66 27 66 27 2D 03 28 93 24 1A 1B 12
            92 28 4B 92 27 54 92 23 5D 92 26 66 92 25 63 93 24 06 66 2A 66 25
            30 29 65 2A 63 1B 80 9C 14 32 2F 1B 80 5A 65 2C AD 65 2D BC 32 2D
            93 0C 80 57 65 2C AD 65 2E BB 32 2D 93 0B 80 4F 65 2C AD 65 2F BA
            32 2D 93 0A 80 47 65 2C AD 65 30 B9 32 2D 93 09 3F 65 2C AD 65 31
            B8 32 2D 93 08 37 65 2C AD 65 32 B7 32 2D 93 07 2F 65 2C AD 65 33
            B6 32 2D 93 06 2F 1B 25 16 02 92 22 FF A2 2E 2B 14 92 0D FF A1 92
            0C FF A9 92 0B FF B1 92 0A FF B9 92 09 41 92 08 49 92 07 51 93 06
            08 65 2C AD 65 34 B5 32 2D 66 2B AD 30 35 16 01 1B 1D 87 01 00 66
            2B AD 38 01 8E 82 FF BE 83 01 AD 8D 91 6E 16 02 93 22 06 66 2A 66
            23 30 35 65 36 63 1B 81 6F 14 32 2F 1B 80 ED 65 38 AD 65 2F 66 1F
            32 2D 93 1B 80 E9 65 38 AD 65 30 66 1E 32 2D 93 1A 80 E0 65 38 AD
            65 31 66 1D 32 2D 93 19 80 D7 65 38 AD 65 32 66 1C 32 2D 93 18 80
            CE 65 38 AD 65 33 66 1B 32 2D 93 17 80 C5 65 38 AD 65 34 66 1A 32
            2D 93 16 80 BC 65 38 AD 65 39 66 19 32 2D 93 15 80 B3 65 38 AD 65
            3A C4 32 2D 93 14 80 AB 65 38 AD 65 3B C3 32 2D 93 13 80 A3 65 38
            AD 65 3C C2 32 2D 93 12 80 9B 65 38 AD 65 3D C1 32 2D 93 11 80 93
            65 38 AD 65 3E C0 32 2D 93 10 80 8B 65 38 AD 65 3F BF 32 2D 93 0F
            80 83 65 38 AD 65 40 BE 32 2D 93 0E 80 7B 65 38 AD 65 41 BD 32 2D
            93 04 80 73 65 38 AD 65 2D 66 23 32 2D 93 03 80 6A 65 38 AD 65 2E
            66 22 32 2D 93 02 80 61 65 38 AD 65 42 66 21 32 2D 93 01 80 60 1B
            80 54 16 02 92 21 FF 0F 2E 37 14 92 1C FF 0E 92 1B FF 17 92 1A FF
            20 92 19 FF 29 92 18 FF 32 92 17 FF 3B 92 16 FF 44 92 15 FF 4D 92
            14 FF 55 92 13 FF 5D 92 12 FF 65 92 11 FF 6D 92 10 FF 75 92 0F FF
            7D 92 0E FF 85 92 04 FF 8D 92 03 FF 96 92 02 FF 9F 93 01 09 65 38
            AD 65 43 66 20 32 2D 66 2B AD 30 44 16 01 04 20 1F 31 1B 27 66 2A
            66 22 30 44 04 20 1F 25 1B 1B 87 01 00 66 2B AD 38 01 8E 82 FF 7E
            83 01 AD 8D 91 6E 16 02 92 21 5D 04 20 1F 08 66 2A 66 21 30 45 19
            2B 19 2B
           )
      :NAME :ICON-NAME :RESOURCE-NAME :RESOURCE-CLASS :COMMAND :CLIENT-MACHINE
      :HINTS :NORMAL-HINTS :ZOOM-HINTS :USER-SPECIFIED-POSITION-P
      :USER-SPECIFIED-SIZE-P :PROGRAM-SPECIFIED-POSITION-P
      :PROGRAM-SPECIFIED-SIZE-P :X :Y :WIDTH :HEIGHT :MIN-WIDTH :MIN-HEIGHT
      :MAX-WIDTH :MAX-HEIGHT :WIDTH-INC :HEIGHT-INC :MIN-ASPECT :MAX-ASPECT
      :BASE-WIDTH :BASE-HEIGHT :WIN-GRAVITY :INPUT :INITIAL-STATE :ICON-PIXMAP
      :ICON-WINDOW :ICON-X :ICON-Y :ICON-MASK :WINDOW-GROUP :WM_NAME
      SET-STRING-PROPERTY :WM_ICON_NAME :WM_CLIENT_MACHINE SET-WM-CLASS
      SET-WM-COMMAND
      (:INPUT :INITIAL-STATE :ICON-PIXMAP :ICON-WINDOW :ICON-X :ICON-Y
        :ICON-MASK :WINDOW-GROUP
      )
      MAKE-WM-HINTS WM-HINTS 1. 2. 3. 4. 5. 6. 7. 8. SET-WM-HINTS
      (:X :Y :WIDTH :HEIGHT :MIN-WIDTH :MIN-HEIGHT :MAX-WIDTH :MAX-HEIGHT
        :WIDTH-INC :HEIGHT-INC :MIN-ASPECT :MAX-ASPECT
        :USER-SPECIFIED-POSITION-P :USER-SPECIFIED-SIZE-P
        :PROGRAM-SPECIFIED-POSITION-P :PROGRAM-SPECIFIED-SIZE-P :BASE-WIDTH
        :BASE-HEIGHT :WIN-GRAVITY
      )
      MAKE-WM-SIZE-HINTS WM-SIZE-HINTS 9. 10. 11. 12. 13. 14. 15. 16. 17. 18.
      19. SET-WM-NORMAL-HINTS SET-WM-ZOOM-HINTS
  )  )
#Y(#:TOP-LEVEL-FORM-127
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-STANDARD-PROPERTIES SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-STANDARD-PROPERTIES
      #17Y(00 00 00 00 01 00 00 00 01 17 99 00 AF A0 9B 01 03)
      SET-WM-PROPERTIES
  )  )
#Y(#:TOP-LEVEL-FORM-128
   #416Y(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 31 59 E5 2F 05 E5 E6 E7 32 85 E5
         E8 32 7F E5 E9 DA 32 85 EA 31 59 EB 31 59 EC 2F 05 EC E6 ED 32 85 EC
         EE 32 7F EC E9 DA 32 85 EF 31 59 F0 31 59 F1 2F 05 F1 E6 F2 32 85 F1
         F3 32 7F F1 E9 DA 32 85 F4 31 59 F5 31 59 F6 2F 05 F6 E6 F7 32 85 F6
         65 1E 32 7F F6 E9 DA 32 85 65 1F 31 59 65 20 31 59 65 21 2F 05 65 21
         E6 65 22 32 85 65 21 65 23 32 7F 65 21 E9 DA 32 85 65 24 31 59 65 25
         31 59 65 26 2F 05 65 26 E6 65 27 32 85 65 26 65 28 32 7F 65 26 E9 DA
         32 85 E5 65 29 32 86 E5 65 2A 65 2B 65 2C 03 2D 7C 02 32 85 E5 65 2E
         63 2D 03 2F E5 65 29 DA 32 85 EC 65 29 32 86 EC 65 2A 65 2B 65 2C 03
         30 7C 02 32 85 EC 65 2E 63 2D 03 2F EC 65 29 DA 32 85 F1 65 29 32 86
         F1 65 2A 65 2B 65 2C 03 31 7C 02 32 85 F1 65 2E 63 2D 03 2F F1 65 29
         DA 32 85 F6 65 29 32 86 F6 65 2A 65 2B 65 2C 03 32 7C 02 32 85 F6 65
         2E 63 2D 03 2F F6 65 29 DA 32 85 65 21 65 29 32 86 65 21 65 2A 65 2B
         65 2C 03 33 7C 02 32 85 65 21 65 2E 63 2D 03 2F 65 21 65 29 DA 32 85
         65 26 65 29 32 86 65 26 65 2A 65 2B 65 2C 03 34 7C 02 32 85 65 26 65
         2E 63 2D 03 2F 65 26 65 29 DA 32 85 DA 65 35 63 2D 03 2F DA 2F 36 C5
         19 01
        )
   STANDARD-COLORMAP STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION 0.
   MAKE-STANDARD-COLORMAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(MAKE-STANDARD-COLORMAP
      #74Y(00 00 00 00 00 00 00 00 80 1B 06 00 01 00 3D 06 3B 05 02 CC FD 3D 04
           3D 03 3D 02 3D 01 69 00 01 E2 72 2E E3 AD E4 B6 32 2D E3 AD E5 B5 32
           2D E3 AD E6 B4 32 2D E3 AD E7 B3 32 2D E3 AD E8 B2 32 2D E3 AD E9 B1
           32 2D 15 19 07
          )
      NIL :COLORMAP :BASE-PIXEL :MAX-COLOR :MULT-COLOR :VISUAL :KILL 0. 7.
      STANDARD-COLORMAP 1. 2. 3. 4. 5. 6.
     )
   (#(COLORMAP (:COLORMAP) 1. (NIL) NIL (OR NULL COLORMAP) NIL)
     #(BASE-PIXEL (:BASE-PIXEL) 2. (NIL . 0.) 0. PIXEL NIL)
     #(MAX-COLOR (:MAX-COLOR) 3. (NIL) NIL (OR NULL COLOR) NIL)
     #(MULT-COLOR (:MULT-COLOR) 4. (NIL) NIL (OR NULL COLOR) NIL)
     #(VISUAL (:VISUAL) 5. (NIL) NIL (OR NULL VISUAL-INFO) NIL)
     #(KILL (:KILL) 6. (NIL) NIL
       (OR (MEMBER NIL :RELEASE-BY-FREEING-COLORMAP) DRAWABLE GCONTEXT CURSOR
         COLORMAP FONT
       )
       NIL
   )  )
   CLOS::DEFINE-STRUCTURE-CLASS
   (FUNCTION STANDARD-COLORMAP-COLORMAP (STANDARD-COLORMAP)
     #1=(OR NULL COLORMAP)
   )
   (INLINE STANDARD-COLORMAP-COLORMAP) STANDARD-COLORMAP-COLORMAP
   SYSTEM::INLINE-EXPANSION
   (#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STANDARD-COLORMAP-COLORMAP))
     (BLOCK STANDARD-COLORMAP-COLORMAP
       (THE #1# (SYSTEM::%STRUCTURE-REF 'STANDARD-COLORMAP SYSTEM::OBJECT 1.))
   ) )
   #Y(STANDARD-COLORMAP-COLORMAP
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      STANDARD-COLORMAP 1.
     )
   SYSTEM::DEFSTRUCT-READER
   (FUNCTION STANDARD-COLORMAP-BASE-PIXEL (STANDARD-COLORMAP) PIXEL)
   (INLINE STANDARD-COLORMAP-BASE-PIXEL) STANDARD-COLORMAP-BASE-PIXEL
   (#2# (DECLARE (SYSTEM::IN-DEFUN STANDARD-COLORMAP-BASE-PIXEL))
     (BLOCK STANDARD-COLORMAP-BASE-PIXEL
       (THE PIXEL (SYSTEM::%STRUCTURE-REF 'STANDARD-COLORMAP SYSTEM::OBJECT 2.)
   ) ) )
   #Y(STANDARD-COLORMAP-BASE-PIXEL
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      STANDARD-COLORMAP 2.
     )
   (FUNCTION STANDARD-COLORMAP-MAX-COLOR (STANDARD-COLORMAP) #3=(OR NULL COLOR)
   )
   (INLINE STANDARD-COLORMAP-MAX-COLOR) STANDARD-COLORMAP-MAX-COLOR
   (#2# (DECLARE (SYSTEM::IN-DEFUN STANDARD-COLORMAP-MAX-COLOR))
     (BLOCK STANDARD-COLORMAP-MAX-COLOR
       (THE #3# (SYSTEM::%STRUCTURE-REF 'STANDARD-COLORMAP SYSTEM::OBJECT 3.))
   ) )
   #Y(STANDARD-COLORMAP-MAX-COLOR
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      STANDARD-COLORMAP 3.
     )
   (FUNCTION STANDARD-COLORMAP-MULT-COLOR (STANDARD-COLORMAP)
     #4=(OR NULL COLOR)
   )
   (INLINE STANDARD-COLORMAP-MULT-COLOR) STANDARD-COLORMAP-MULT-COLOR
   (#2# (DECLARE (SYSTEM::IN-DEFUN STANDARD-COLORMAP-MULT-COLOR))
     (BLOCK STANDARD-COLORMAP-MULT-COLOR
       (THE #4# (SYSTEM::%STRUCTURE-REF 'STANDARD-COLORMAP SYSTEM::OBJECT 4.))
   ) )
   #Y(STANDARD-COLORMAP-MULT-COLOR
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      STANDARD-COLORMAP 4.
     )
   (FUNCTION STANDARD-COLORMAP-VISUAL (STANDARD-COLORMAP)
     #5=(OR NULL VISUAL-INFO)
   )
   (INLINE STANDARD-COLORMAP-VISUAL) STANDARD-COLORMAP-VISUAL
   (#2# (DECLARE (SYSTEM::IN-DEFUN STANDARD-COLORMAP-VISUAL))
     (BLOCK STANDARD-COLORMAP-VISUAL
       (THE #5# (SYSTEM::%STRUCTURE-REF 'STANDARD-COLORMAP SYSTEM::OBJECT 5.))
   ) )
   #Y(STANDARD-COLORMAP-VISUAL
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      STANDARD-COLORMAP 5.
     )
   (FUNCTION STANDARD-COLORMAP-KILL (STANDARD-COLORMAP)
     #6=(OR (MEMBER NIL :RELEASE-BY-FREEING-COLORMAP) DRAWABLE GCONTEXT CURSOR
          COLORMAP FONT
   )    )
   (INLINE STANDARD-COLORMAP-KILL) STANDARD-COLORMAP-KILL
   (#2# (DECLARE (SYSTEM::IN-DEFUN STANDARD-COLORMAP-KILL))
     (BLOCK STANDARD-COLORMAP-KILL
       (THE #6# (SYSTEM::%STRUCTURE-REF 'STANDARD-COLORMAP SYSTEM::OBJECT 6.))
   ) )
   #Y(STANDARD-COLORMAP-KILL
      #17Y(00 00 00 00 01 00 00 00 00 02 DA AE DB 32 2C 19 02)
      STANDARD-COLORMAP 6.
     )
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SETF-STANDARD-COLORMAP-COLORMAP
      #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 'STANDARD-COLORMAP 1. THE #1#
     )
   SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SETF-STANDARD-COLORMAP-BASE-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 'STANDARD-COLORMAP 2. THE PIXEL
     )
   #Y(SETF-STANDARD-COLORMAP-MAX-COLOR
      #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 'STANDARD-COLORMAP 3. THE #3#
     )
   #Y(SETF-STANDARD-COLORMAP-MULT-COLOR
      #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 'STANDARD-COLORMAP 4. THE #4#
     )
   #Y(SETF-STANDARD-COLORMAP-VISUAL
      #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 'STANDARD-COLORMAP 5. THE #5#
     )
   #Y(SETF-STANDARD-COLORMAP-KILL
      #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 'STANDARD-COLORMAP 6. THE #6#
     )
   STRUCTURE CLOS::DEFSTRUCT-REMOVE-PRINT-OBJECT-METHOD
  )
#Y(#:TOP-LEVEL-FORM-129
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   CARD16->RGB-VAL SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CARD16->RGB-VAL #17Y(00 00 00 00 01 00 00 00 00 02 AD DA 33 02 37 19 02)
      #.(/ 1.0s0 65535.)
  )  )
#Y(#:TOP-LEVEL-FORM-130
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   RGB-COLORMAPS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(RGB-COLORMAPS
      #160Y(00 00 00 00 02 00 00 00 00 03 AE AE DA DB DC DD 6E 06 04 9D 1F 80
            87 DF B0 6F 06 AE E1 73 01 01 70 08 E3 AF E4 73 01 01 E5 E6 B2 E7
            73 01 01 6F 0E E9 B4 EA 73 01 01 6F 0E EB B6 EC 73 01 01 6F 0E 6E
            06 13 EE E6 B4 EF 73 01 01 6F 0E E9 B6 F0 73 01 01 6F 0E EB B8 F1
            73 01 01 6F 0E 6E 06 13 F2 F3 B6 72 44 91 01 31 0A B8 6F 06 B6 F4
            73 01 01 30 1B 14 F6 F7 B8 72 44 91 01 31 13 B7 F3 73 01 01 AC E7
            90 01 2D 10 BB 6F 06 AD 30 1F 16 01 14 6E 0C 20 61 01 19 04 03 1E
            16 01 1B 72 19 04
           )
      :TYPE :RGB_COLOR_MAP :RESULT-TYPE VECTOR GET-PROPERTY :COLORMAP
      WINDOW-DISPLAY 0. LOOKUP-COLORMAP :BASE-PIXEL 7. :MAX-COLOR :RED 1.
      CARD16->RGB-VAL :GREEN 3. :BLUE 5. MAKE-COLOR :MULT-COLOR 2. 4. 6.
      :VISUAL 9. 8. VISUAL-INFO :KILL 10. :RELEASE-BY-FREEING-COLORMAP
      LOOKUP-RESOURCE-ID MAKE-STANDARD-COLORMAP
  )  )
#Y(#:TOP-LEVEL-FORM-131
   #28Y(00 00 00 00 00 00 00 00 00 01 DA DB 32 86 DA DC DD 32 85 DA DE 63 2D 03
        05 C5 19 01
       )
   RGB-COLORMAPS SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER
   SET-RGB-COLORMAPS SETF SYSTEM::%SET-DOCUMENTATION
  )
#Y(#:TOP-LEVEL-FORM-132
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-RGB-COLORMAPS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-RGB-COLORMAPS
      #392Y(00 00 00 00 03 00 00 00 00 04 DA AE 72 44 73 02 37 38 07 C6 FD 71
            1C DC AF 63 AD 8C 91 81 5B 87 01 00 85 02 14 DD AE DE 72 2C 6F 05
            B1 AE AE 33 01 02 16 02 85 02 14 DD AE E0 72 2C E1 AD DE 81 2C 00
            E2 72 B4 B1 AE AE 33 01 02 16 02 85 02 14 DD AE E3 72 2C E1 AD DE
            81 2C 00 E2 72 B4 B1 AE AE 33 01 02 16 02 85 02 14 DD AE E0 72 2C
            E1 AD E4 81 2C 00 E2 72 B4 B1 AE AE 33 01 02 16 02 85 02 14 DD AE
            E3 72 2C E1 AD E4 81 2C 00 E2 72 B4 B1 AE AE 33 01 02 16 02 85 02
            14 DD AE E0 72 2C E1 AD E0 81 2C 00 E2 72 B4 B1 AE AE 33 01 02 16
            02 85 02 14 DD AE E3 72 2C E1 AD E0 81 2C 00 E2 72 B4 B1 AE AE 33
            01 02 16 02 85 02 14 DD AE E4 72 2C B1 AE AE 33 01 02 16 02 85 02
            14 DD AE E5 72 2C E6 AD DE 81 2C 00 B1 AE AE 33 01 02 16 02 85 02
            14 DD AE E7 72 2C AC 8E 03 80 43 AC 72 26 F2 8A 19 80 50 AC 72 26
            F5 8A 19 80 4D AC 72 26 F7 8A 19 80 4A AC 72 26 65 1F 8A 19 80 46
            AC 72 26 65 20 8A 19 80 42 EA EB AE EC 65 22 2E 14 14 EF 65 23 30
            24 14 B3 33 06 1F D3 1B 2F C9 1B 2C 93 00 77 AC 24 0F 76 EA EB AE
            EC ED 2E 14 14 EF F0 30 17 1B 60 AC 2F 1A 1B 12 AC 2F 1C 1B 0D AC
            2F 1E 1B 08 AC 2F 05 1B 03 AC 2F 21 F8 B1 AE AE 33 01 02 16 02 83
            01 1B FE A0 16 02 B1 B1 AF 65 25 65 26 2D 05 27 19 06
           )
      10. CARD32 -1. STANDARD-COLORMAP 1. COLORMAP-ID 3. COLOR
      #.(/ 1.0s0 65535.) 4. 2. 5. VISUAL-INFO 6. 0.
      :RELEASE-BY-FREEING-COLORMAP TYPE-ERROR :DATUM :EXPECTED-TYPE
      (MEMBER NIL :RELEASE-BY-FREEING-COLORMAP) SYSTEM::TYPE-ERROR-STRING KILL
      (NIL :RELEASE-BY-FREEING-COLORMAP) SYSTEM::CASE-ERROR-STRING
      #.(FIND-CLASS 'DRAWABLE) CLOS::SUBCLASSP DRAWABLE-ID
      #.(FIND-CLASS 'GCONTEXT) GCONTEXT-ID #.(FIND-CLASS 'CURSOR) CURSOR-ID
      #.(FIND-CLASS 'COLORMAP) #.(FIND-CLASS 'FONT) FONT-ID
      (OR SYMBOL DRAWABLE GCONTEXT CURSOR COLORMAP FONT)
      (SYMBOL DRAWABLE GCONTEXT CURSOR COLORMAP FONT)
      SYSTEM::TYPECASE-ERROR-STRING :RGB_COLOR_MAP 32. CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-133
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   GET-STANDARD-COLORMAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(GET-STANDARD-COLORMAP
      #98Y(00 00 00 00 02 00 00 00 00 03 AE AE DA DB DC DD 6E 06 04 9D 1F 80 49
           AF 6F 05 AD E0 73 01 01 70 07 AD E2 73 01 01 E3 AF E4 73 01 01 6F 0B
           E6 B1 E7 73 01 01 6F 0B E8 B3 E9 73 01 01 6F 0B 6E 06 10 E3 B0 EB 73
           01 01 6F 0B E6 B2 EC 73 01 01 6F 0B E8 B4 ED 73 01 01 6F 0B 6E 06 10
           40 04 19 04 19 04
          )
      :TYPE :RGB_COLOR_MAP :RESULT-TYPE VECTOR GET-PROPERTY WINDOW-DISPLAY 0.
      LOOKUP-COLORMAP 7. :RED 1. CARD16->RGB-VAL :GREEN 3. :BLUE 5. MAKE-COLOR
      2. 4. 6.
  )  )
#Y(#:TOP-LEVEL-FORM-134
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   SET-STANDARD-COLORMAP SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SET-STANDARD-COLORMAP
      #75Y(00 00 00 00 06 00 00 00 00 00 DA B1 6F 01 DC B1 DD 72 2C DE 72 B4 DC
           B1 DD 72 2C DE 72 B4 DC B3 DF 72 2C DE 72 B4 DC B3 DF 72 2C DE 72 B4
           DC B5 E0 72 2C DE 72 B4 DC B5 E0 72 2C DE 72 B4 A8 77 07 B3 B3 AE E1
           E2 2D 05 09 19 08
          )
      #.#'VECTOR COLORMAP-ID COLOR 1. #.(/ 1.0s0 65535.) 2. 3. :RGB_COLOR_MAP
      32. CHANGE-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-135
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) CUT-BUFFER
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(CUT-BUFFER
      #70Y(00 00 00 00 01 00 00 00 80 1C 06 00 00 00 3B 06 02 CB FE 3B 05 02 CC
           FD 3B 04 02 CD FC 3B 03 03 9A 09 03 3B 02 02 CB FA 3D 01 B3 2F 0A 78
           6F 0B E6 B4 73 01 01 AD AD DB B6 DC B7 DE B7 DF B8 DD BC 2D 0C 0D 19
           0A
          )
      :BUFFER :TYPE :RESULT-TYPE :TRANSFORM :START :END 0. :STRING STRING
      CARD8->CHAR DISPLAY-ROOTS SCREEN-ROOT
      #(:CUT_BUFFER0 :CUT_BUFFER1 :CUT_BUFFER2 :CUT_BUFFER3 :CUT_BUFFER4
        :CUT_BUFFER5 :CUT_BUFFER6 :CUT_BUFFER7
       )
      GET-PROPERTY
  )  )
#Y(#:TOP-LEVEL-FORM-136
   #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 'CUT-BUFFER) SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(#1=(SETF CUT-BUFFER)
      #70Y(00 00 00 00 02 00 00 00 80 1D 06 00 00 00 3B 06 02 CB FE 3B 05 02 CC
           FD 3B 04 02 CD FC 3B 03 02 CB FB 3D 02 3B 01 03 9A 09 01 B3 2F 0A 78
           6F 0B E6 B4 73 01 01 AD AD B8 B6 B6 DF B5 DD B9 DE BA 2D 0B 0D A7 19
           0B
          )
      :BUFFER :TYPE :FORMAT :START :END :TRANSFORM 0. :STRING 8. CHAR->CARD8
      DISPLAY-ROOTS SCREEN-ROOT
      #(:CUT_BUFFER0 :CUT_BUFFER1 :CUT_BUFFER2 :CUT_BUFFER3 :CUT_BUFFER4
        :CUT_BUFFER5 :CUT_BUFFER6 :CUT_BUFFER7
       )
      CHANGE-PROPERTY
     )
   #1#
  )
#Y(#:TOP-LEVEL-FORM-137
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   ROTATE-CUT-BUFFERS SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(ROTATE-CUT-BUFFERS
      #71Y(00 00 00 00 01 00 02 00 00 0D 3B 02 02 C5 FA 3B 01 02 7E 01 AF 2F 01
           78 6F 02 93 02 22 AC 6F 03 DE 1B 14 E0 AD 73 01 01 AE 38 03 8C B2 07
           E1 B3 E2 AF 2D 04 09 85 00 AC DF 91 01 32 66 16 02 AC E0 B1 2D 03 0A
           19 05
          )
      1. DISPLAY-ROOTS SCREEN-ROOT LIST-PROPERTIES 0. 8.
      #(:CUT_BUFFER0 :CUT_BUFFER1 :CUT_BUFFER2 :CUT_BUFFER3 :CUT_BUFFER4
        :CUT_BUFFER5 :CUT_BUFFER6 :CUT_BUFFER7
       )
      "" :BUFFER #.(SYSTEM::GET-SETF-SYMBOL 'CUT-BUFFER) ROTATE-PROPERTIES
  )  )
#Y(#:TOP-LEVEL-FORM-138
   #77Y(00 00 00 00 00 00 00 00 00 01 DA 99 01 32 7F DC 99 03 32 7F DE 99 05 32
        7F E0 99 07 32 7F E2 99 09 32 7F E4 99 0B 32 7F E6 99 0D 32 7F E8 99 0F
        32 7F EA 99 11 32 7F EC 99 13 32 7F EE 99 15 32 7F F0 99 17 32 7F F2 99
        19 32 7F 19 01
       )
   %UNTRACED-COLOR-BLUE COLOR-BLUE %UNTRACED-COLOR-GREEN COLOR-GREEN
   %UNTRACED-COLOR-RED COLOR-RED %UNTRACED-COLORMAP-VISUAL-INFO
   COLORMAP-VISUAL-INFO %UNTRACED-DISPLAY-DISPLAY DISPLAY-DISPLAY
   %UNTRACED-DISPLAY-HOST DISPLAY-HOST %UNTRACED-DISPLAY-PROTOCOL-MAJOR-VERSION
   DISPLAY-PROTOCOL-MAJOR-VERSION %UNTRACED-DISPLAY-PROTOCOL-MINOR-VERSION
   DISPLAY-PROTOCOL-MINOR-VERSION %UNTRACED-DISPLAY-RELEASE-NUMBER
   DISPLAY-RELEASE-NUMBER %UNTRACED-DISPLAY-VENDOR-NAME DISPLAY-VENDOR-NAME
   %UNTRACED-DRAWABLE-WIDTH DRAWABLE-WIDTH %UNTRACED-DRAWABLE-X DRAWABLE-X
   %UNTRACED-VISUAL-INFO-CLASS VISUAL-INFO-CLASS
  )
#Y(#:TOP-LEVEL-FORM-139
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   PRINT-COLOR SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(PRINT-COLOR
      #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-COLOR-1
         #58Y(00 00 00 00 00 00 00 00 00 01 69 00 01 6F 01 69 00 02 31 80 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 19 01
             )
         NIL %UNTRACED-COLOR-RED " " %UNTRACED-COLOR-GREEN " "
         %UNTRACED-COLOR-BLUE
        )
      :TYPE SYSTEM::WRITE-UNREADABLE
  )  )
#Y(#:TOP-LEVEL-FORM-140
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   PRINT-DISPLAY SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(PRINT-DISPLAY
      #36Y(00 00 00 00 03 00 00 00 00 04 AE DA DB B2 6F 02 B3 6F 03 B4 6F 04 B5
           6F 05 B6 6F 06 B7 6F 07 2D 09 08 19 04
          )
      #Y(PRINT-DISPLAY-1
         #95Y(00 00 00 00 08 00 00 00 01 00 DA B6 38 02 31 88 B4 B6 31 80 DB B6
              31 87 B3 B6 31 83 DC B6 31 87 B5 01 06 B9 2D 08 03 DE B6 38 02 31
              88 B1 B6 31 83 DF B6 38 02 31 88 B5 01 06 B7 2D 08 03 E0 B6 38 02
              31 88 B5 01 06 B6 2D 08 03 E1 B6 31 87 B5 01 06 B5 2D 08 03 E2 B6
              38 02 31 88 9E 19 0A
             )
         "#<" #\Space #\: SYSTEM::DO-FORMAT-DECIMAL " (" " R" ") X" #\.
         " protocol>"
        )
      DISPLAY %UNTRACED-DISPLAY-HOST %UNTRACED-DISPLAY-DISPLAY
      %UNTRACED-DISPLAY-VENDOR-NAME %UNTRACED-DISPLAY-RELEASE-NUMBER
      %UNTRACED-DISPLAY-PROTOCOL-MAJOR-VERSION
      %UNTRACED-DISPLAY-PROTOCOL-MINOR-VERSION FORMAT
  )  )
#Y(#:TOP-LEVEL-FORM-141
   #39Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 64 38 02
        72 27 7B 02 E0 63 E1 E2 6E 0A 09 30 0A 19 01
       )
   PRINT-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-141-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-141-1-1
         #30Y(00 00 00 00 02 00 00 00 00 03 AD DA B0 72 25 B1 DB 72 3A 6F 02 B2
              DD 72 3A 2D 05 04 19 03
             )
         #Y(#:TOP-LEVEL-FORM-141-1-1-1
            #52Y(00 00 00 00 04 00 00 00 01 1A DA B2 38 02 31 88 B0 B2 31 80 DB
                 B2 31 87 AF B2 31 83 DC B2 38 02 31 88 B1 01 02 DD DE 01 02 B5
                 2D 08 05 E0 B2 31 87 9E 19 06
                )
            "#<" #\Space " #x" 8. #\0 SYSTEM::DO-FORMAT-HEXADECIMAL #\>
           )
         DISPLAY %UNTRACED-DISPLAY-HOST ID FORMAT
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS XID-OBJECT :QUALIFIERS
   :SIGNATURE (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD
   CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-142
   #39Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 64 38 02
        72 27 7B 02 E0 63 E1 E2 6E 0A 09 30 0A 19 01
       )
   PRINT-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-142-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-142-1-1
         #44Y(00 00 00 00 02 00 00 00 00 03 AE 6F 00 92 00 17 C7 14 AF DD B2 72
              25 B3 DE 72 3A 6F 05 B4 E0 72 3A B1 2D 06 07 19 05 14 2F 01 1B 65
             )
         %UNTRACED-COLORMAP-VISUAL-INFO %UNTRACED-VISUAL-INFO-CLASS
         "unknown visual class"
         #Y(#:TOP-LEVEL-FORM-142-1-1-1
            #60Y(00 00 00 00 05 00 00 00 01 00 DA B3 38 02 31 88 B1 B3 31 80 DB
                 B3 31 87 B0 B3 31 83 DC B3 38 02 31 88 B2 01 02 DD DE 01 02 B6
                 2D 08 05 DB B3 31 87 AE B3 31 83 E0 B3 31 87 9E 19 07
                )
            "#<" #\Space " #x" 8. #\0 SYSTEM::DO-FORMAT-HEXADECIMAL #\>
           )
         DISPLAY %UNTRACED-DISPLAY-HOST ID FORMAT
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS COLORMAP :QUALIFIERS :SIGNATURE
   (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-143
   #39Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 64 38 02
        72 27 7B 02 E0 63 E1 E2 6E 0A 09 30 0A 19 01
       )
   PRINT-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-143-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-143-1-1
         #32Y(00 00 00 00 02 00 00 00 00 03 AD DA DB B1 DC 72 3A 6F 03 B2 DE 72
              3A B3 DF 72 3A 2D 06 06 19 03
             )
         #Y(#:TOP-LEVEL-FORM-143-1-1-1
            #60Y(00 00 00 00 05 00 00 00 01 00 DA B3 38 02 31 88 B1 B3 31 80 DB
                 B3 31 87 B0 B3 31 83 DB B3 31 87 AF B3 31 83 DC B3 38 02 31 88
                 B2 01 02 DD DE 01 02 B5 2D 08 05 E0 B3 31 87 9E 19 07
                )
            "#<" #\Space " #x" 8. #\0 SYSTEM::DO-FORMAT-HEXADECIMAL #\>
           )
         FONT DISPLAY %UNTRACED-DISPLAY-HOST NAME ID FORMAT
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS FONT :QUALIFIERS :SIGNATURE
   (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-144 #13Y(00 00 00 00 00 00 00 00 00 01 C5 19 01)
   (DEFMETHOD PRINT-OBJECT ((SELF DRAWABLE) SINK)
     (WITH-SLOTS (ID DISPLAY) SELF
       (FORMAT SINK "#<~S ~Dx~D+~D+~D ~A #x~8,'0X>" (TYPE-OF SELF)
         (%UNTRACED-DRAWABLE-WIDTH SELF) (%UNTRACED-DRAWABLE-HEIGHT SELF)
         (%UNTRACED-DRAWABLE-X SELF) (%UNTRACED-DRAWABLE-Y SELF)
         (%UNTRACED-DISPLAY-HOST DISPLAY) ID
  )) ) )
#Y(#:TOP-LEVEL-FORM-145
   #39Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 64 38 02
        72 27 7B 02 E0 63 E1 E2 6E 0A 09 30 0A 19 01
       )
   PRINT-OBJECT :INITFUNCTION
   #Y(#:TOP-LEVEL-FORM-145-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      #Y(#:TOP-LEVEL-FORM-145-1-1
         #30Y(00 00 00 00 02 00 00 00 00 03 AD DA B0 72 25 B1 DB 72 3A 6F 02 B2
              DD 72 3A 2D 05 04 19 03
             )
         #Y(#:TOP-LEVEL-FORM-145-1-1-1
            #52Y(00 00 00 00 04 00 00 00 01 1A DA B2 38 02 31 88 B0 B2 31 80 DB
                 B2 31 87 AF B2 31 83 DC B2 38 02 31 88 B1 01 02 DD DE 01 02 B5
                 2D 08 05 E0 B2 31 87 9E 19 06
                )
            "#<" #\Space " #x" 8. #\0 SYSTEM::DO-FORMAT-HEXADECIMAL #\>
           )
         DISPLAY %UNTRACED-DISPLAY-HOST ID FORMAT
        )
      (T)
     )
   :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS DRAWABLE :QUALIFIERS :SIGNATURE
   (2. 0. NIL NIL NIL NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD
  )
#Y(#:TOP-LEVEL-FORM-146
   #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
       )
   *STATE-MASK-VECTOR*
   #1=#(:SHIFT :LOCK :CONTROL :MOD-1 :MOD-2 :MOD-3 :MOD-4 :MOD-5 :BUTTON-1
        :BUTTON-2 :BUTTON-3 :BUTTON-4 :BUTTON-5
       )
   (DEFCONSTANT *STATE-MASK-VECTOR* '#1#) SYSTEM::CONSTANT-WARNING
  )
#Y(#:TOP-LEVEL-FORM-147
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB DC 71 CA 31 51 C6 19 01)
   (SPECIAL *KEYWORD-PACKAGE*) *KEYWORD-PACKAGE* :KEYWORD
  )
#Y(#:TOP-LEVEL-FORM-148
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01) KINTERN
   SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(KINTERN #19Y(00 00 00 00 01 00 00 00 00 02 AD 71 4A 6B 00 31 D2 19 02)
      *KEYWORD-PACKAGE*
  )  )
#Y(#:TOP-LEVEL-FORM-149
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX+ SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX+ #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) +)
  )
#Y(#:TOP-LEVEL-FORM-150
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-LOGAND SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-LOGAND #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04)
      LOGAND
  )  )
#Y(#:TOP-LEVEL-FORM-151
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-LOGIOR SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-LOGIOR #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04)
      LOGIOR
  )  )
#Y(#:TOP-LEVEL-FORM-152
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX- SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX- #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) -)
  )
#Y(#:TOP-LEVEL-FORM-153
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX* SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX* #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) *)
  )
#Y(#:TOP-LEVEL-FORM-154
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX1+ SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX1+
      #32Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 09 9F 5C 78 DC AD
           61 02 19 04 AE 2F 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR 1+
  )  )
#Y(#:TOP-LEVEL-FORM-155
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX1- SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX1-
      #32Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 09 9F 5C 78 DC AD
           61 02 19 04 AE 2F 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR 1-
  )  )
#Y(#:TOP-LEVEL-FORM-156
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-INCF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-INCF
      #51Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 44 DB 91 02 31 15 9F 5C 78 A0
           5C 5C 1C 12 C8 14 DE AE DF B0 B0 7B 03 61 03 19 05 AE 2F 02 19 03 A0
           5C 5C 5B 1B 69
          )
      2. 3. SYSTEM::MACRO-CALL-ERROR 1. SETF INDEX+
  )  )
#Y(#:TOP-LEVEL-FORM-157
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-DECF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-DECF
      #51Y(00 00 00 00 01 00 01 00 00 08 DA AF 72 44 DB 91 02 31 15 9F 5C 78 A0
           5C 5C 1C 12 C8 14 DE AE DF B0 B0 7B 03 61 03 19 05 AE 2F 02 19 03 A0
           5C 5C 5B 1B 69
          )
      2. 3. SYSTEM::MACRO-CALL-ERROR 1. SETF INDEX-
  )  )
#Y(#:TOP-LEVEL-FORM-158
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-MIN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-MIN #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) MIN)
  )
#Y(#:TOP-LEVEL-FORM-159
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-MAX SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-MAX #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) MAX)
  )
#Y(#:TOP-LEVEL-FORM-160
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-FLOOR SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-FLOOR
      #37Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 0E 9F 5C 78 A0 5C
           5C 78 DC AE AE 61 03 19 05 AE 2F 01 19 03
          )
      3. SYSTEM::MACRO-CALL-ERROR FLOOR
  )  )
#Y(#:TOP-LEVEL-FORM-161
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-CEILING SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-CEILING
      #37Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 0E 9F 5C 78 A0 5C
           5C 78 DC AE AE 61 03 19 05 AE 2F 01 19 03
          )
      3. SYSTEM::MACRO-CALL-ERROR CEILING
  )  )
#Y(#:TOP-LEVEL-FORM-162
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-TRUNCATE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-TRUNCATE
      #37Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 0E 9F 5C 78 A0 5C
           5C 78 DC AE AE 61 03 19 05 AE 2F 01 19 03
          )
      3. SYSTEM::MACRO-CALL-ERROR TRUNCATE
  )  )
#Y(#:TOP-LEVEL-FORM-163
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-MOD SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-MOD
      #37Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 0E 9F 5C 78 A0 5C
           5C 78 DC AE AE 61 03 19 05 AE 2F 01 19 03
          )
      3. SYSTEM::MACRO-CALL-ERROR MOD
  )  )
#Y(#:TOP-LEVEL-FORM-164
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-ASH SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-ASH
      #37Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 0E 9F 5C 78 A0 5C
           5C 78 DC AE AE 61 03 19 05 AE 2F 01 19 03
          )
      3. SYSTEM::MACRO-CALL-ERROR ASH
  )  )
#Y(#:TOP-LEVEL-FORM-165
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-PLUSP SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-PLUSP
      #32Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 09 9F 5C 78 DC AD
           61 02 19 04 AE 2F 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR PLUSP
  )  )
#Y(#:TOP-LEVEL-FORM-166
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-ZEROP SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-ZEROP
      #32Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 09 9F 5C 78 DC AD
           61 02 19 04 AE 2F 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR ZEROP
  )  )
#Y(#:TOP-LEVEL-FORM-167
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-EVENP SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-EVENP
      #32Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 09 9F 5C 78 DC AD
           61 02 19 04 AE 2F 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR EVENP
  )  )
#Y(#:TOP-LEVEL-FORM-168
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX-ODDP SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX-ODDP
      #32Y(00 00 00 00 01 00 01 00 00 08 AE 72 44 DA 90 01 2E 09 9F 5C 78 DC AD
           61 02 19 04 AE 2F 01 19 03
          )
      2. SYSTEM::MACRO-CALL-ERROR ODDP
  )  )
#Y(#:TOP-LEVEL-FORM-169
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX> SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX> #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) >)
  )
#Y(#:TOP-LEVEL-FORM-170
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX= SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX= #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) =)
  )
#Y(#:TOP-LEVEL-FORM-171
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX< SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX< #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) <)
  )
#Y(#:TOP-LEVEL-FORM-172
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX>= SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX>= #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) >=)
  )
#Y(#:TOP-LEVEL-FORM-173
   #22Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC C8 7A 32 7F C5 19 01)
   INDEX<= SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
   #Y(INDEX<= #17Y(00 00 00 00 01 00 01 00 00 08 95 02 DA 9E 5D 19 04) <=)
  )
#Y(#:TOP-LEVEL-FORM-174
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   READ-BITMAP-FILE SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(READ-BITMAP-FILE
      #502Y(03 00 01 00 01 00 00 00 00 02 AD DA DB 6E 03 02 53 81 D3 C8 45 00
            2B 01 DE 00 0B 01 00 14 63 1B 80 78 0B 04 00 16 01 1B 80 49 0B 09
            00 16 06 1B 80 68 EF 33 00 1E 03 17 1B 80 BA 03 16 1B 80 B5 03 18
            1B 80 B0 CE 1B 80 AC 03 19 1B 80 A7 92 01 22 E1 AF 64 38 05 CD F9
            81 5C 00 AE E3 AE CF 34 F9 14 24 0B 0E 68 03 00 E6 AF 6E 03 0D 92
            00 FF B1 16 01 96 00 E8 B0 38 06 CD F9 A5 FC 72 5C B0 AE AE CF 74
            96 01 B2 AD 38 03 71 7E 68 08 00 AF AE 6E 03 0D 92 00 FF 92 16 06
            B3 38 03 80 76 02 14 DF 73 01 01 E0 90 01 07 FF A3 AF 6D 0F 01 EA
            63 9F 74 EB 63 A0 74 EC ED 7B 01 A1 74 EE DF 7B 01 A2 74 40 04 16
            01 42 04 93 03 FF 65 93 02 FF 61 AD F0 90 01 30 FF 5E AD F2 90 01
            30 FF 5C AD E3 90 01 30 FF 5A AD F3 90 01 30 FF 58 AD ED 90 01 30
            FF 55 D8 14 B0 AD 73 02 37 AC E3 72 B2 AD F1 72 B2 F1 73 02 37 AC
            E3 72 B2 AC B4 73 02 37 38 07 03 1A FD 71 1C DF DF DF 1B 80 4C DF
            1B 37 0B 11 00 16 02 1B 80 7E C1 38 03 71 77 25 1B 78 AF AF 73 02
            35 C2 38 03 71 77 03 1C 74 F3 72 CF C3 38 03 71 77 03 1C 74 73 02
            35 B2 AE AE 33 01 02 16 02 85 02 85 00 AC B4 91 01 32 4B 16 01 CA
            F9 AE B1 82 02 35 02 85 00 AC B8 91 01 32 FF AD 16 01 B7 B5 82 01
            36 0B 68 0F 00 F7 38 01 8F 82 25 68 0F 00 F7 38 01 72 82 8F 90 1A
            68 0F 00 F7 38 01 72 82 B5 73 01 36 68 10 00 F7 AE 6E 03 0D 92 00
            FF 7C 16 02 EA B8 EB B9 EC BA 65 1E BA 65 1F B7 65 20 68 1A 00 65
            21 65 22 65 23 BE 65 24 F1 65 25 F1 EE 66 1D 65 26 64 65 27 64 2D
            1A 28 16 10 41 05 00 00 02 1D 03 14 2F 29 46 54 05 00 00 00 1D 0F
            1B 06 05 00 00 00 1D 07 14 65 2A 64 2D 03 29 55 19 03
           )
      :DIRECTION :INPUT OPEN #.#'VALUES "" 0. #\# #\_ #.#'CHAR= 8.
      #Y(READ-BITMAP-FILE-READ-KEYWORD
         #31Y(00 00 00 00 03 00 00 00 00 04 DA DB B1 B1 B1 72 42 38 02 71 45 38
              07 C7 FA 72 53 2F 03 19 04
             )
         #\- #\_ #.#'CHAR= KINTERN
        )
      :IMAGE :NAME SYSTEM::%PUTF #\Space
      #Y(READ-BITMAP-FILE-EXTRACT-PROPERTY
         #84Y(00 00 00 00 01 00 00 00 01 17 DB 69 00 01 B0 A1 77 02 69 00 01 AC
              63 1B 31 DC DD 01 02 6E 03 04 33 00 1F 79 9F 5C 79 31 A8 16 02 1B
              22 92 00 73 9F 5C 5C 0C 00 01 16 02 1B 15 9E 5C 20 5B 94 01 A4 22
              6A 9E 5C 79 9F F9 6A 01 9E 21 6D 16 02 16 01 15 19 03
             )
         NIL #.#'GETF ERROR "REMF: property list with an odd length"
         SYSTEM::LANGUAGE
        )
      :WIDTH :HEIGHT :DEPTH 1. :LEFT-PAD "Not a BITMAP file" 24. 32. 16. 4.
      CARD8 #\x
      #Y(READ-BITMAP-FILE-PARSE-HEX
         #21Y(00 00 00 00 01 00 00 00 00 02 AD DA DB 38 02 31 B9 5C 5B 19 02)
         ((#\0 0.) (#\1 1.) (#\2 2.) (#\3 3.) (#\4 4.) (#\5 5.) (#\6 6.)
           (#\7 7.) (#\8 8.) (#\9 9.) (#\a 10.) (#\b 11.) (#\c 12.) (#\d 13.)
           (#\e 14.) (#\f 15.)
         )
         #.#'CHAR-EQUAL
        )
      :X-HOT :BITS-PER-PIXEL :DATA :PLIST :FORMAT :Z-PIXMAP :BYTES-PER-LINE
      :UNIT :PAD :BYTE-LSB-FIRST-P :BIT-LSB-FIRST-P CREATE-IMAGE CLOSE :ABORT
  )  )
#Y(#:TOP-LEVEL-FORM-175
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   ENCODE-EVENT-MASK SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(ENCODE-EVENT-MASK #16Y(00 00 00 00 01 00 00 00 00 02 99 00 9F 9B 00 02)
      MAKE-EVENT-MASK
  )  )
#Y(#:TOP-LEVEL-FORM-176
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 7F C5 19 01)
   DEFAULT-ERROR-HANDLER SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(DEFAULT-ERROR-HANDLER
      #71Y(00 00 00 00 02 00 00 00 80 1D 07 00 00 00 3D 07 3D 06 3D 05 3D 04 3D
           03 3D 02 3D 01 E1 E2 B6 B8 B6 B6 B6 BA 92 0B 0F 92 09 11 93 0A 13 63
           E6 A9 14 2D 03 0A 1B 0B 63 E3 AA 1B 75 63 E5 A8 1B 70 D2 14 2D 09 0E
           19 0A
          )
      :CURRENT-SEQUENCE :SEQUENCE :MAJOR :MINOR :RESOURCE-ID :ATOM-ID :VALUE
      "Just ignore this error and proceed."
      "Asynchronous ~A on display ~S, sequence ~D.~%Opcode is ~D.~D. Current sequence is ~D. ~A"
      #Y(DEFAULT-ERROR-HANDLER-1
         #34Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 02 DB DC 01
              02 B5 2D 08 03 DE B0 31 87 9E 19 04
             )
         "Resource ID is #x" 8. #\0 SYSTEM::DO-FORMAT-HEXADECIMAL #\.
        )
      FORMAT
      #Y(DEFAULT-ERROR-HANDLER-2
         #26Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 06 B5 2D 08
              01 9E 19 04
             )
         "Bad value is " SYSTEM::DO-FORMAT-DECIMAL
        )
      #Y(DEFAULT-ERROR-HANDLER-3
         #34Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 02 DB DC 01
              02 B5 2D 08 03 DE B0 31 87 9E 19 04
             )
         "Bad atom ID is #x" 8. #\0 SYSTEM::DO-FORMAT-HEXADECIMAL #\.
        )
      "" CERROR
  )  )
