File: typescript

package info (click to toggle)
clue 19970309-4
links: PTS
area: main
in suites: slink
size: 6,376 kB
ctags: 2,652
sloc: lisp: 32,306; makefile: 101
file content (8289 lines) | stat: -rw-r--r-- 405,613 bytes
Script started on Wed Oct 14 20:42:38 1998
(pvaneynd@slartibartfast:/usr/local/fakeroot/work/clue-19970309) $]0;/usr/local/fakeroot/work/clue-19970309lisp -load build.lis
sp 
bash: /usr/bin/lisp: Permission denied
(pvaneynd@slartibartfast:/usr/local/fakeroot/work/clue-19970309) $]0;/usr/local/fakeroot/work/clue-19970309[Ksudo chmod a+x /mnt/
/b  [A
(pvaneynd@slartibartfast:/usr/local/fakeroot/work/clue-19970309) $]0;/usr/local/fakeroot/work/clue-19970309sudo chmod a+x /mnt 
[K[A
(pvaneynd@slartibartfast:/usr/local/fakeroot/work/clue-19970309) $]0;/usr/local/fakeroot/work/clue-19970309sudo chmod a+x /mn[K

[K[A
(pvaneynd@slartibartfast:/usr/local/fakeroot/work/clue-19970309) $]0;/usr/local/fakeroot/work/clue-19970309sudo chmod a+x /mn  usr/
/bin/lispp \ 
(pvaneynd@slartibartfast:/usr/local/fakeroot/work/clue-19970309) $]0;/usr/local/fakeroot/work/clue-19970309[Ksudo chmod a+x /usr/
/bin/lisp[Aue-19970309) $]0;/usr/local/fakeroot/work/clue-19970309lisp -load build.lisp [K
;;; *** Don't forget to edit /var/lib/cmucl/site-init.lisp! ***
; Loading #p"/usr/local/fakeroot/work/clue-19970309/build.lisp".
;; Loading #p"/usr/lib/cmucl/subsystems/clx-library.x86f".
[GC threshold exceeded with 2,004,776 bytes in use.  Commencing GC.]
[GC completed with 942,976 bytes retained and 1,061,800 bytes freed.]
[GC will next occur when at least 2,942,976 bytes are in use.]
[GC threshold exceeded with 2,958,408 bytes in use.  Commencing GC.]
[GC completed with 1,733,184 bytes retained and 1,225,224 bytes freed.]
[GC will next occur when at least 3,733,184 bytes are in use.]
[GC threshold exceeded with 3,759,848 bytes in use.  Commencing GC.]
[GC completed with 2,629,792 bytes retained and 1,130,056 bytes freed.]
[GC will next occur when at least 4,629,792 bytes are in use.]
[GC threshold exceeded with 4,636,128 bytes in use.  Commencing GC.]
[GC completed with 2,808,200 bytes retained and 1,827,928 bytes freed.]
[GC will next occur when at least 4,808,200 bytes are in use.]
;; Loading #p"/usr/lib/cmucl/subsystems/defsystem-library.x86f".
[GC threshold exceeded with 4,810,824 bytes in use.  Commencing GC.]
[GC completed with 3,190,904 bytes retained and 1,619,920 bytes freed.]
[GC will next occur when at least 5,190,904 bytes are in use.]
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/sysdef.lisp".
;;; Loading #p"/usr/local/fakeroot/work/clue-19970309/patch.lisp".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:43:27 pm.
Compiling: /usr/local/fakeroot/work/cmucl-2.4.6/src/clx/macros.lisp 14 OCT 98 06:54:37 pm

Comment: $Header$

Converted REQUIRED-ARG.
Compiling DEFMACRO REQUIRED-ARG: 
Converted LROUND.
Compiling DEFMACRO LROUND: 
Converted WROUND.
Compiling DEFMACRO WROUND: 
Converted INDEX-INCREMENT.
Compiling DEFUN INDEX-INCREMENT: 
Converted GETIFY.
Compiling DEFUN GETIFY: 
Converted PUTIFY.
Compiling DEFUN PUTIFY: 
Converted DEFINE-ACCESSOR.
Compiling DEFMACRO DEFINE-ACCESSOR: 

File: /usr/local/fakeroot/work/cmucl-2.4.6/src/clx/macros.lisp

In: DEFMACRO DEFINE-ACCESSOR
  (LET ((PREDICATING-PUT #))
    (WHEN PREDICATING-PUT `(# #)))
Note: Deleting unreachable code.
[Last message occurs 2 times]

  'SETF
Note: Deleting unreachable code.

Converted CARD32-GET.
Compiling DEFINE-ACCESSOR CARD32: 
Byte Compiling Top-Level Form: 
Converted CARD32-PUT.
Compiling DEFINE-ACCESSOR CARD32: 
Converted CARD29-GET.
Compiling DEFINE-ACCESSOR CARD29: 
Converted CARD29-PUT.
Compiling DEFINE-ACCESSOR CARD29: 
Converted CARD16-GET.
Compiling DEFINE-ACCESSOR CARD16: 
Converted CARD16-PUT.
Compiling DEFINE-ACCESSOR CARD16: 
Converted CARD8-GET.
Compiling DEFINE-ACCESSOR CARD8: 
Converted CARD8-PUT.
Compiling DEFINE-ACCESSOR CARD8: 
Byte Compiling Top-Level Form: 
Converted INTEGER-GET.
Compiling DEFINE-ACCESSOR INTEGER: 
Converted INTEGER-PUT.
Compiling DEFINE-ACCESSOR INTEGER: 
Converted INT16-GET.
Compiling DEFINE-ACCESSOR INT16: 
Converted INT16-PUT.
Compiling DEFINE-ACCESSOR INT16: 
[GC threshold exceeded with 5,246,328 bytes in use.  Commencing GC.]
[GC completed with 3,395,616 bytes retained and 1,850,712 bytes freed.]
[GC will next occur when at least 5,395,616 bytes are in use.]
Converted RGB-VAL-GET.
Compiling DEFINE-ACCESSOR RGB-VAL: 
Converted RGB-VAL-PUT.
Compiling DEFINE-ACCESSOR RGB-VAL: 
Converted ANGLE-GET.
Compiling DEFINE-ACCESSOR ANGLE: 
Converted ANGLE-PUT.
Compiling DEFINE-ACCESSOR ANGLE: 
Byte Compiling Top-Level Form: 
Converted BIT-GET.
Compiling DEFINE-ACCESSOR BIT: 
Converted BIT-PUT.
Compiling DEFINE-ACCESSOR BIT: 
Converted BOOLEAN-GET.
Compiling DEFINE-ACCESSOR BOOLEAN: 
Converted BOOLEAN-PUT.
Compiling DEFINE-ACCESSOR BOOLEAN: 
Converted DRAWABLE-GET.
Compiling DEFINE-ACCESSOR DRAWABLE: 
Converted DRAWABLE-PUT.
Compiling DEFINE-ACCESSOR DRAWABLE: 
Converted WINDOW-GET.
Compiling DEFINE-ACCESSOR WINDOW: 
Byte Compiling Top-Level Form: 
Converted WINDOW-PUT.
Compiling DEFINE-ACCESSOR WINDOW: 
Converted PIXMAP-GET.
Compiling DEFINE-ACCESSOR PIXMAP: 
Converted PIXMAP-PUT.
Compiling DEFINE-ACCESSOR PIXMAP: 
Converted GCONTEXT-GET.
Compiling DEFINE-ACCESSOR GCONTEXT: 
Converted GCONTEXT-PUT.
Compiling DEFINE-ACCESSOR GCONTEXT: 
Converted CURSOR-GET.
Compiling DEFINE-ACCESSOR CURSOR: 
Converted CURSOR-PUT.
Compiling DEFINE-ACCESSOR CURSOR: 
Byte Compiling Top-Level Form: 
Converted COLORMAP-GET.
Compiling DEFINE-ACCESSOR COLORMAP: 
Converted COLORMAP-PUT.
Compiling DEFINE-ACCESSOR COLORMAP: 
Converted FONT-GET.
Compiling DEFINE-ACCESSOR FONT: 
Converted FONT-PUT.
Compiling DEFINE-ACCESSOR FONT: 
Converted KEYWORD-GET.
Compiling DEFINE-ACCESSOR KEYWORD: 
Converted KEYWORD-PUT.
Compiling DEFINE-ACCESSOR KEYWORD: 
Converted RESOURCE-ID-GET.
Compiling DEFINE-ACCESSOR RESOURCE-ID: 
Converted RESOURCE-ID-PUT.
Compiling DEFINE-ACCESSOR RESOURCE-ID: 
Byte Compiling Top-Level Form: 
Converted RESOURCE-ID-OR-NIL-GET.
Compiling DEFINE-ACCESSOR RESOURCE-ID-OR-NIL: 
[GC threshold exceeded with 5,449,688 bytes in use.  Commencing GC.]
[GC completed with 3,705,928 bytes retained and 1,743,760 bytes freed.]
[GC will next occur when at least 5,705,928 bytes are in use.]
Converted RESOURCE-ID-OR-NIL-PUT.
Compiling DEFINE-ACCESSOR RESOURCE-ID-OR-NIL: 
Converted CHAR-INFO-GET.
Compiling DEFMACRO CHAR-INFO-GET: 
Converted MEMBER8-GET.
Compiling DEFINE-ACCESSOR MEMBER8: 
Converted MEMBER8-PUT.
Compiling DEFINE-ACCESSOR MEMBER8: 
Converted MEMBER16-GET.
Compiling DEFINE-ACCESSOR MEMBER16: 
Converted MEMBER16-PUT.
Compiling DEFINE-ACCESSOR MEMBER16: 
Byte Compiling Top-Level Form: 
Converted MEMBER-GET.
Compiling DEFINE-ACCESSOR MEMBER: 
Converted MEMBER-PUT.
Compiling DEFINE-ACCESSOR MEMBER: 
Compiling DEFTYPE MEMBER-VECTOR: 
Converted MEMBER-VECTOR-GET.
Compiling DEFINE-ACCESSOR MEMBER-VECTOR: 
Converted MEMBER-VECTOR-PUT.
Compiling DEFINE-ACCESSOR MEMBER-VECTOR: 
Converted MEMBER16-VECTOR-GET.
Compiling DEFINE-ACCESSOR MEMBER16-VECTOR: 
Converted MEMBER16-VECTOR-PUT.
Compiling DEFINE-ACCESSOR MEMBER16-VECTOR: 
Converted MEMBER8-VECTOR-GET.
Compiling DEFINE-ACCESSOR MEMBER8-VECTOR: 
Byte Compiling Top-Level Form: 
Converted MEMBER8-VECTOR-PUT.
Compiling DEFINE-ACCESSOR MEMBER8-VECTOR: 
Converted BOOLE-CONSTANT-GET.
Compiling DEFINE-ACCESSOR BOOLE-CONSTANT: 
Converted BOOLE-CONSTANT-PUT.
Compiling DEFINE-ACCESSOR BOOLE-CONSTANT: 
Converted NULL-GET.
Compiling DEFINE-ACCESSOR NULL: 
Converted NULL-PUT.
Compiling DEFINE-ACCESSOR NULL: 
Converted PAD8-GET.
Compiling DEFINE-ACCESSOR PAD8: 
Converted PAD8-PUT.
Compiling DEFINE-ACCESSOR PAD8: 
Byte Compiling Top-Level Form: 
Converted PAD16-GET.
Compiling DEFINE-ACCESSOR PAD16: 
Converted PAD16-PUT.
Compiling DEFINE-ACCESSOR PAD16: 
Converted BIT-VECTOR256-GET.
Compiling DEFINE-ACCESSOR BIT-VECTOR256: 
Converted BIT-VECTOR256-PUT.
Compiling DEFINE-ACCESSOR BIT-VECTOR256: 
[GC threshold exceeded with 5,706,240 bytes in use.  Commencing GC.]
[GC completed with 3,775,584 bytes retained and 1,930,656 bytes freed.]
[GC will next occur when at least 5,775,584 bytes are in use.]
Converted STRING-GET.
Compiling DEFINE-ACCESSOR STRING: 
Converted STRING-PUT.
Compiling DEFINE-ACCESSOR STRING: 
Converted SEQUENCE-GET.
Compiling DEFINE-ACCESSOR SEQUENCE: 
Converted SEQUENCE-PUT.
Compiling DEFINE-ACCESSOR SEQUENCE: 
Byte Compiling Top-Level Form: 
Converted CLIENT-MESSAGE-EVENT-GET-SEQUENCE.
Compiling DEFMACRO CLIENT-MESSAGE-EVENT-GET-SEQUENCE: 
Converted CLIENT-MESSAGE-EVENT-PUT-SEQUENCE.
Compiling DEFMACRO CLIENT-MESSAGE-EVENT-PUT-SEQUENCE: 
Converted CLIENT-MESSAGE-SEQUENCE-GET.
Compiling DEFINE-ACCESSOR CLIENT-MESSAGE-SEQUENCE: 
Converted CLIENT-MESSAGE-SEQUENCE-PUT.
Compiling DEFINE-ACCESSOR CLIENT-MESSAGE-SEQUENCE: 
Converted CODE-GET.
Compiling DEFINE-ACCESSOR CODE: 
Converted CODE-PUT.
Compiling DEFINE-ACCESSOR CODE: 
Converted LENGTH-GET.
Compiling DEFINE-ACCESSOR LENGTH: 
Converted LENGTH-PUT.
Compiling DEFINE-ACCESSOR LENGTH: 
Byte Compiling Top-Level Form: 
Compiling DEFTYPE DATA: 
Converted DATA-GET.
Compiling DEFINE-ACCESSOR DATA: 
Converted DATA-PUT.
Compiling DEFINE-ACCESSOR DATA: 
Converted OR-EXPAND.
Compiling DEFMACRO OR-EXPAND: 
Converted OR-GET.
Compiling DEFINE-ACCESSOR OR: 
[GC threshold exceeded with 5,897,976 bytes in use.  Commencing GC.]
[GC completed with 4,032,840 bytes retained and 1,865,136 bytes freed.]
[GC will next occur when at least 6,032,840 bytes are in use.]
Converted OR-PUT.
Compiling DEFINE-ACCESSOR OR: 

File: /usr/local/fakeroot/work/cmucl-2.4.6/src/clx/macros.lisp

In: DEFINE-ACCESSOR OR
  'X-TYPE-ERROR
Note: Deleting unreachable code.

Converted MASK-GET.
Compiling DEFUN MASK-GET: 
Converted MASK-PUT.
Compiling DEFUN MASK-PUT: 
Byte Compiling Top-Level Form: 
Converted PROGN-GET.
Compiling DEFINE-ACCESSOR PROGN: 
Converted PROGN-PUT.
Compiling DEFINE-ACCESSOR PROGN: 
Converted TYPE-CHECK.
Compiling DEFMACRO TYPE-CHECK: 

File: /usr/local/fakeroot/work/cmucl-2.4.6/src/clx/macros.lisp

In: DEFMACRO TYPE-CHECK
  'UNLESS
Note: Deleting unreachable code.

Converted CHECK-PUT.
Compiling DEFMACRO CHECK-PUT: 
Converted GET-PUT-ITEMS.
Compiling DEFUN GET-PUT-ITEMS: 
Converted WITH-BUFFER-REQUEST-INTERNAL.
Compiling DEFMACRO WITH-BUFFER-REQUEST-INTERNAL: 
Converted WITH-BUFFER-REQUEST.
Compiling DEFMACRO WITH-BUFFER-REQUEST: 
[GC threshold exceeded with 6,048,280 bytes in use.  Commencing GC.]
[GC completed with 4,246,512 bytes retained and 1,801,768 bytes freed.]
[GC will next occur when at least 6,246,512 bytes are in use.]
Converted WITH-BUFFER-REQUEST-AND-REPLY.
Compiling DEFMACRO WITH-BUFFER-REQUEST-AND-REPLY: 
Converted COMPARE-REQUEST.
Compiling DEFMACRO COMPARE-REQUEST: 
Converted PUT-ITEMS.
Compiling DEFMACRO PUT-ITEMS: 
Byte Compiling Top-Level Form: 
Converted DECODE-TYPE.
Compiling DEFMACRO DECODE-TYPE: 
Converted ENCODE-TYPE.
Compiling DEFMACRO ENCODE-TYPE: 
Converted SET-DECODE-TYPE.
Compiling DEFMACRO SET-DECODE-TYPE: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted THREADED-ATOMIC-PUSH.
Compiling DEFMACRO THREADED-ATOMIC-PUSH: 
Converted THREADED-ATOMIC-POP.
Compiling DEFMACRO THREADED-ATOMIC-POP: 
Converted THREADED-NCONC.
Compiling DEFMACRO THREADED-NCONC: 
Converted THREADED-PUSH.
Compiling DEFMACRO THREADED-PUSH: 
[GC threshold exceeded with 6,276,104 bytes in use.  Commencing GC.]
[GC completed with 4,462,016 bytes retained and 1,814,088 bytes freed.]
[GC will next occur when at least 6,462,016 bytes are in use.]
Converted THREADED-POP.
Compiling DEFMACRO THREADED-POP: 
Converted THREADED-ENQUEUE.
Compiling DEFMACRO THREADED-ENQUEUE: 
Converted THREADED-DEQUEUE.
Compiling DEFMACRO THREADED-DEQUEUE: 
Converted THREADED-REQUEUE.
Compiling DEFMACRO THREADED-REQUEUE: 
Byte Compiling Top-Level Form: 
Converted THREADED-DOLIST.
Compiling DEFMACRO THREADED-DOLIST: 
Converted THREADED-DELETE.
Compiling DEFMACRO THREADED-DELETE: 
Converted THREADED-LENGTH.
Compiling DEFMACRO THREADED-LENGTH: 
Byte Compiling Top-Level Form: 

Compilation unit finished.
  5 notes


target:clx/macros.x86f written.
Compilation finished in 0:00:23.
;; Loading #p"/usr/local/fakeroot/work/cmucl-2.4.6/x86/clx/macros.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:43:52 pm.
Compiling: /usr/local/fakeroot/work/cmucl-2.4.6/src/clx/bufmac.lisp 14 OCT 98 06:54:35 pm

Comment: $Header$

Converted WRITE-CARD8.
Compiling DEFMACRO WRITE-CARD8: 
Converted WRITE-INT8.
Compiling DEFMACRO WRITE-INT8: 
Converted WRITE-CARD16.
Compiling DEFMACRO WRITE-CARD16: 
Converted WRITE-INT16.
Compiling DEFMACRO WRITE-INT16: 
Converted WRITE-CARD32.
Compiling DEFMACRO WRITE-CARD32: 
Converted WRITE-INT32.
Compiling DEFMACRO WRITE-INT32: 
Converted WRITE-CARD29.
Compiling DEFMACRO WRITE-CARD29: 
[GC threshold exceeded with 6,526,344 bytes in use.  Commencing GC.]
[GC completed with 4,811,136 bytes retained and 1,715,208 bytes freed.]
[GC will next occur when at least 6,811,136 bytes are in use.]
Converted WRITE-CHAR2B.
Compiling DEFMACRO WRITE-CHAR2B: 
Converted SET-BUFFER-OFFSET.
Compiling DEFMACRO SET-BUFFER-OFFSET: 
Converted ADVANCE-BUFFER-OFFSET.
Compiling DEFMACRO ADVANCE-BUFFER-OFFSET: 
Converted WITH-BUFFER-OUTPUT.
Compiling DEFMACRO WITH-BUFFER-OUTPUT: 
Byte Compiling Top-Level Form: 
Converted WRITING-BUFFER-CHUNKS.
Compiling DEFMACRO WRITING-BUFFER-CHUNKS: 
Byte Compiling Top-Level Form: 

target:clx/bufmac.x86f written.
Compilation finished in 0:00:02.
;; Loading #p"/usr/local/fakeroot/work/cmucl-2.4.6/x86/clx/bufmac.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:43:54 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/clue.lisp 07 MAR 97 02:32:58 pm

Compiling ASSERT (FIND-PACKAGE "COMMON-LISP"): 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:clue/clue.x86f written.
Compilation finished in 0:00:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/clue.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:43:55 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/defgeneric.lisp 07 MAR 97 03:45:08 pm

Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 6,816,176 bytes in use.  Commencing GC.]
[GC completed with 5,078,864 bytes retained and 1,737,312 bytes freed.]
[GC will next occur when at least 7,078,864 bytes are in use.]
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:clue/defgeneric.x86f written.
Compilation finished in 0:00:02.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/defgeneric.x86f".
[GC threshold exceeded with 7,082,560 bytes in use.  Commencing GC.]
[GC completed with 5,091,112 bytes retained and 1,991,448 bytes freed.]
[GC will next occur when at least 7,091,112 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:43:58 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/event-parse.lisp 19 JUL 90 08:33:12 pm

Converted CHECK-FUNCTION.
Compiling DEFMACRO CHECK-FUNCTION: 
Converted PARSE-EVENT-TRANSLATION.
Compiling DEFUN PARSE-EVENT-TRANSLATION: 
Converted EVENT-TRANSLATIONS-MASK.
Compiling DEFUN EVENT-TRANSLATIONS-MASK: 
Converted EVENT-TRANSLATION-MASK.
Compiling DEFUN EVENT-TRANSLATION-MASK: 
Converted CLUE-RESOURCES.
Compiling DEFMACRO CLUE-RESOURCES: 
Converted CLASS-NAME-EVENT-TRANSLATIONS.
Compiling DEFUN CLASS-NAME-EVENT-TRANSLATIONS: 
Byte Compiling Top-Level Form: 
Compiling DEFSETF CLASS-NAME-EVENT-TRANSLATIONS: 
Compiling DEFSETF CLASS-NAME-EVENT-MASK: 
Converted CLASS-NAME-EVENT-MASK.
Compiling DEFUN CLASS-NAME-EVENT-MASK: 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clue/event-parse.lisp

In: DEFUN CLASS-NAME-EVENT-MASK
  (CLASS-NAME-EVENT-PRECEDENCE-LIST CLASS-NAME)
Warning: Undefined function: CLASS-NAME-EVENT-PRECEDENCE-LIST

  (CLASS-NAME-PRECEDENCE-LIST CLASS-NAME)
Warning: Undefined function: CLASS-NAME-PRECEDENCE-LIST


In: DEFUN PARSE-EVENT-TRANSLATION
  (KEY-CHECK :KEY-PRESS EVENT-SPEC)
Warning: Undefined function: KEY-CHECK


Warning: These functions are undefined:
  CLASS-NAME-EVENT-PRECEDENCE-LIST CLASS-NAME-PRECEDENCE-LIST KEY-CHECK


Compilation unit finished.
  4 warnings


clue:clue/event-parse.x86f written.
Compilation finished in 0:00:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/event-parse.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:44:00 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/defcontact.lisp 19 JUL 90 08:17:27 pm

Converted CLASS-NAME-OF.
Compiling DEFUN CLASS-NAME-OF: 
Converted CLASS-NAME-DIRECT-SUPERCLASSES.
Compiling DEFUN CLASS-NAME-DIRECT-SUPERCLASSES: 
Compiling DEFSETF CLASS-NAME-DIRECT-SUPERCLASSES: 
Converted CLASS-NAME-PRECEDENCE-LIST.
Compiling DEFUN CLASS-NAME-PRECEDENCE-LIST: 
Compiling DEFSETF CLASS-NAME-EVENT-PRECEDENCE-LIST: 
Converted CLASS-NAME-EVENT-PRECEDENCE-LIST.
Compiling DEFUN CLASS-NAME-EVENT-PRECEDENCE-LIST: 
Converted CLUE-CONSTRAINTS.
Compiling DEFMACRO CLUE-CONSTRAINTS: 
Converted DEFCONTACT.
Compiling DEFMACRO DEFCONTACT: 
[GC threshold exceeded with 7,759,184 bytes in use.  Commencing GC.]
[GC completed with 5,476,360 bytes retained and 2,282,824 bytes freed.]
[GC will next occur when at least 7,476,360 bytes are in use.]
Converted LOOKUP-RESOURCE.
Compiling DEFMACRO LOOKUP-RESOURCE: 
Byte Compiling Top-Level Form: 
Converted FIND-RESOURCE.
Compiling DEFUN FIND-RESOURCE: 
Converted CONVERT-RESOURCE.
Compiling DEFUN CONVERT-RESOURCE: 
Converted DO-CONVERT.
Compiling DEFUN DO-CONVERT: 
Converted DEFINE-CONTACT-RESOURCES.
Compiling DEFUN DEFINE-CONTACT-RESOURCES: 
Converted DEFINE-CONSTRAINTS.
Compiling DEFUN DEFINE-CONSTRAINTS: 
Converted RECONCILE-CONTACT-RESOURCE-WITH-SLOTS.
Compiling DEFUN RECONCILE-CONTACT-RESOURCE-WITH-SLOTS: 
Converted DEFINE-INITIALIZE-RESOURCE-SLOTS.
Compiling DEFUN DEFINE-INITIALIZE-RESOURCE-SLOTS: 
Converted DEFINE-INITIALIZE-CONSTRAINTS.
Compiling DEFUN DEFINE-INITIALIZE-CONSTRAINTS: 
Converted |(PCL::FAST-METHOD INITIALIZE-CONSTRAINTS (T T T))|.
Compiling DEFMETHOD INITIALIZE-CONSTRAINTS (T T T): 
Byte Compiling Top-Level Form: 
Converted DEFINE-CLUE-DEFAULT-OPTIONS.
Compiling DEFUN DEFINE-CLUE-DEFAULT-OPTIONS: 
Converted PUSH-RESOURCE.
Compiling DEFUN PUSH-RESOURCE: 
Converted PUSH-CONSTRAINT.
Compiling DEFUN PUSH-CONSTRAINT: 
[GC threshold exceeded with 7,527,232 bytes in use.  Commencing GC.]
[GC completed with 3,847,424 bytes retained and 3,679,808 bytes freed.]
[GC will next occur when at least 5,847,424 bytes are in use.]
Converted SET-RESOURCE-SLOT.
Compiling DEFUN SET-RESOURCE-SLOT: 
Byte Compiling Top-Level Form: 

clue:clue/defcontact.x86f written.
Compilation finished in 0:00:06.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/defcontact.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:44:07 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/intrinsics.lisp 01 AUG 90 01:29:36 am

Converted DISPLAY-ROOT-LIST.
Compiling DEFMACRO DISPLAY-ROOT-LIST: 
Converted DISPLAY-ROOT.
Compiling DEFUN DISPLAY-ROOT: 
Compiling DEFSETF DISPLAY-ROOT: 
Converted BEFORE-ACTIONS.
Compiling DEFMACRO BEFORE-ACTIONS: 
Converted TIMER-QUEUE.
Compiling DEFMACRO TIMER-QUEUE: 
Converted DISPLAY-KEYBOARD-BUFFER.
Compiling DEFMACRO DISPLAY-KEYBOARD-BUFFER: 
Converted DISPLAY-MODIFIER-TRANSLATE.
Compiling DEFMACRO DISPLAY-MODIFIER-TRANSLATE: 
Converted DISPLAY-UPDATE-FLAG.
Compiling DEFMACRO DISPLAY-UPDATE-FLAG: 
Converted DISPLAY-MODE-STACK.
Compiling DEFUN DISPLAY-MODE-STACK: 
Compiling DEFSETF DISPLAY-MODE-STACK: 
Byte Compiling Top-Level Form: 
Converted DISPLAY-MULTIPRESS-DELAY-LIMIT.
Compiling DEFUN DISPLAY-MULTIPRESS-DELAY-LIMIT: 
Compiling DEFSETF DISPLAY-MULTIPRESS-DELAY-LIMIT: 
Converted DISPLAY-MULTIPRESS-VERIFY-P.
Compiling DEFUN DISPLAY-MULTIPRESS-VERIFY-P: 
Compiling DEFSETF DISPLAY-MULTIPRESS-VERIFY-P: 
Converted DISPLAY-NAME.
Compiling DEFUN DISPLAY-NAME: 
Compiling DEFSETF DISPLAY-NAME: 
Converted DISPLAY-CLASS.
Compiling DEFUN DISPLAY-CLASS: 
Compiling DEFSETF DISPLAY-CLASS: 
[GC threshold exceeded with 5,873,080 bytes in use.  Commencing GC.]
[GC completed with 4,237,640 bytes retained and 1,635,440 bytes freed.]
[GC will next occur when at least 6,237,640 bytes are in use.]
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted OPEN-CONTACT-DISPLAY.
Compiling DEFUN OPEN-CONTACT-DISPLAY: 
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT BASIC-CONTACT: 
Compiling DEFCONTACT BASIC-CONTACT: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL BASIC-CONTACT) T))|.
Compiling DEFCONTACT BASIC-CONTACT: 
[GC threshold exceeded with 6,244,832 bytes in use.  Commencing GC.]
[GC completed with 4,650,200 bytes retained and 1,594,632 bytes freed.]
[GC will next occur when at least 6,650,200 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (BASIC-CONTACT T T))|.
Compiling DEFCONTACT BASIC-CONTACT: 
[GC threshold exceeded with 6,888,336 bytes in use.  Commencing GC.]
[GC completed with 5,134,024 bytes retained and 1,754,312 bytes freed.]
[GC will next occur when at least 7,134,024 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL CONTACT) T))|.
Compiling DEFCONTACT CONTACT: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PIXMAP>: 
[GC threshold exceeded with 7,138,864 bytes in use.  Commencing GC.]
[GC completed with 5,105,648 bytes retained and 2,033,216 bytes freed.]
[GC will next occur when at least 7,105,648 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (CONTACT T T))|.
Compiling DEFCONTACT CONTACT: 
[GC threshold exceeded with 7,676,000 bytes in use.  Commencing GC.]
[GC completed with 5,650,032 bytes retained and 2,025,968 bytes freed.]
[GC will next occur when at least 7,650,032 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL COMPOSITE) T))|.
Compiling DEFCONTACT COMPOSITE: 
[GC threshold exceeded with 7,661,800 bytes in use.  Commencing GC.]
[GC completed with 5,562,952 bytes retained and 2,098,848 bytes freed.]
[GC will next occur when at least 7,562,952 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (COMPOSITE T T))|.
Compiling DEFCONTACT COMPOSITE: 
[GC threshold exceeded with 8,222,168 bytes in use.  Commencing GC.]
[GC completed with 6,126,752 bytes retained and 2,095,416 bytes freed.]
[GC will next occur when at least 8,126,752 bytes are in use.]
Converted |(PCL::FAST-METHOD PRINT-OBJECT (CONTACT T))|.
Compiling DEFMETHOD PRINT-OBJECT (CONTACT T): 
Converted CONTACT-COMPLETE-NAME.
Compiling DEFUN CONTACT-COMPLETE-NAME: 
Converted CONTACT-COMPLETE-CLASS.
Compiling DEFUN CONTACT-COMPLETE-CLASS: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CONTACT-RESOURCE-PARENT (CONTACT))|.
Compiling DEFMETHOD CONTACT-RESOURCE-PARENT (CONTACT): 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted |(PCL::FAST-METHOD FIND-CONTACT (DISPLAY))|.
Converted |(PCL::FAST-METHOD FIND-CONTACT (CONTACT))|.
Converted |(PCL::FAST-METHOD FIND-CONTACT (COMPOSITE))|.
Compiling DEFMETHOD FIND-CONTACT (COMPOSITE): 
Compiling DEFMETHOD FIND-CONTACT (DISPLAY): 
Converted ANCESTOR-P.
Compiling DEFUN ANCESTOR-P: 
Converted REALIZED-P.
Compiling DEFUN REALIZED-P: 
Converted DESTROYED-P.
Compiling DEFUN DESTROYED-P: 
Compiling DEFSETF DESTROYED-P: 
Byte Compiling Top-Level Form: 
Converted MANAGED-P.
Compiling DEFUN MANAGED-P: 
Converted MAPPED-P.
Compiling DEFUN MAPPED-P: 
Converted VIEWABLE-P.
Compiling DEFUN VIEWABLE-P: 
Converted TOP-LEVEL-P.
Compiling DEFUN TOP-LEVEL-P: 
Converted |(PCL::FAST-METHOD (SETF CONTACT-CALLBACKS) (T BASIC-CONTACT))|.
Compiling DEFMETHOD (SETF CONTACT-CALLBACKS) (T BASIC-CONTACT): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-SENSITIVE) (T CONTACT))|.
Compiling DEFMETHOD (SETF CONTACT-SENSITIVE) (T CONTACT): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 8,639,224 bytes in use.  Commencing GC.]
[GC completed with 5,277,000 bytes retained and 3,362,224 bytes freed.]
[GC will next occur when at least 7,277,000 bytes are in use.]
Converted REFRESH.
Compiling DEFUN REFRESH: 
Converted |(PCL::FAST-METHOD OWNS-FOCUS-P (CONTACT))|.
Compiling DEFMETHOD OWNS-FOCUS-P (CONTACT): 
Converted |(PCL::FAST-METHOD OWNS-FOCUS-P (COMPOSITE))|.
Compiling DEFMETHOD OWNS-FOCUS-P (COMPOSITE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL BASIC-CONTACT>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL COMPOSITE>: 
Converted SENSITIVE-P.
Compiling DEFUN SENSITIVE-P: 
Converted |(PCL::FAST-METHOD INSIDE-CONTACT-P (CONTACT T T))|.
Compiling DEFMETHOD INSIDE-CONTACT-P (CONTACT T T): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-EVENT-MASK) (T CONTACT))|.
Compiling DEFMETHOD (SETF CONTACT-EVENT-MASK) (T CONTACT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CONTACT-BACKGROUND) (T CONTACT))|.
Compiling DEFMETHOD (SETF CONTACT-BACKGROUND) (T CONTACT): 
Converted CONTACT-CONSTRAINTS.
Compiling DEFMACRO CONTACT-CONSTRAINTS: 
Converted CONTACT-CONSTRAINT.
Compiling DEFMACRO CONTACT-CONSTRAINT: 
Converted CLASS-CONSTRAINTS.
Compiling DEFUN CLASS-CONSTRAINTS: 
Converted MAKE-CONTACT.
Compiling DEFUN MAKE-CONTACT: 
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS (T T))|.
Compiling DEFMETHOD DEFAULT-OPTIONS (T T): 
Byte Compiling Top-Level Form: 
Converted GET-CONTACT-RESOURCE-TABLE.
Compiling DEFUN GET-CONTACT-RESOURCE-TABLE: 
[GC threshold exceeded with 7,284,936 bytes in use.  Commencing GC.]
[GC completed with 5,684,944 bytes retained and 1,599,992 bytes freed.]
[GC will next occur when at least 7,684,944 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (BASIC-CONTACT))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (BASIC-CONTACT): 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (CONTACT))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (CONTACT): 
Converted CALLBACK-P.
Compiling DEFUN CALLBACK-P: 
Byte Compiling Top-Level Form: 
Converted FUNCTION-EQUAL-P.
Compiling DEFUN FUNCTION-EQUAL-P: 
[GC threshold exceeded with 7,715,832 bytes in use.  Commencing GC.]
[GC completed with 5,987,392 bytes retained and 1,728,440 bytes freed.]
[GC will next occur when at least 7,987,392 bytes are in use.]
Converted ADD-CALLBACK.
Compiling DEFUN ADD-CALLBACK: 
Converted DELETE-CALLBACK.
Compiling DEFUN DELETE-CALLBACK: 
Converted APPLY-CALLBACK-ELSE.
Compiling DEFMACRO APPLY-CALLBACK-ELSE: 
Converted APPLY-CALLBACK.
Compiling DEFMACRO APPLY-CALLBACK: 
Converted |(PCL::FAST-METHOD ADD-TO-PARENT (BASIC-CONTACT))|.
Compiling DEFMETHOD ADD-TO-PARENT (BASIC-CONTACT): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-STATE) (T CONTACT))|.
Compiling DEFMETHOD (SETF CONTACT-STATE) (T CONTACT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CONTACT-PARENT) (T CONTACT))|.
Compiling DEFMETHOD (SETF CONTACT-PARENT) (T CONTACT): 
Converted PRESENT.
Compiling DEFUN PRESENT: 
Converted DISMISS.
Compiling DEFUN DISMISS: 
Converted UPDATE-STATE.
Compiling DEFUN UPDATE-STATE: 
Converted |(PCL::FAST-METHOD UPDATE-TREE (COMPOSITE))|.
Compiling DEFMETHOD UPDATE-TREE (COMPOSITE): 
[GC threshold exceeded with 7,996,488 bytes in use.  Commencing GC.]
[GC completed with 6,298,144 bytes retained and 1,698,344 bytes freed.]
[GC will next occur when at least 8,298,144 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD UPDATE-TREE (CONTACT))|.
Compiling DEFMETHOD UPDATE-TREE (CONTACT): 
Converted |(PCL::FAST-METHOD DISPLAY (BASIC-CONTACT))|.
Compiling DEFMETHOD DISPLAY (BASIC-CONTACT): 
Converted CONTACT-EVENT-TRANSLATIONS-MASK.
Compiling DEFUN CONTACT-EVENT-TRANSLATIONS-MASK: 
Converted |(PCL::FAST-METHOD REALIZE (CONTACT))|.
Compiling DEFMETHOD REALIZE (CONTACT): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 8,301,800 bytes in use.  Commencing GC.]
[GC completed with 6,453,520 bytes retained and 1,848,280 bytes freed.]
[GC will next occur when at least 8,453,520 bytes are in use.]
Converted |(PCL::FAST-METHOD REALIZE :AFTER (COMPOSITE))|.
Compiling DEFMETHOD REALIZE :AFTER (COMPOSITE): 
Converted |(PCL::FAST-METHOD INITIALIZE-GEOMETRY (COMPOSITE))|.
Compiling DEFMETHOD INITIALIZE-GEOMETRY (COMPOSITE): 
Converted |(PCL::FAST-METHOD INITIALIZE-GEOMETRY (CONTACT))|.
Compiling DEFMETHOD INITIALIZE-GEOMETRY (CONTACT): 
Byte Compiling Top-Level Form: 
Converted REALIZE-STATE.
Compiling DEFUN REALIZE-STATE: 
Converted |(PCL::FAST-METHOD INITIAL-STATE-TRANSITION (BASIC-CONTACT))|.
Compiling DEFMETHOD INITIAL-STATE-TRANSITION (BASIC-CONTACT): 
Converted MAP-OVER-CHILDREN.
Compiling DEFUN MAP-OVER-CHILDREN: 
Converted |(PCL::FAST-METHOD DESTROY (CONTACT))|.
Compiling DEFMETHOD DESTROY (CONTACT): 
Converted DESTROY-CLEANUP.
Compiling DEFUN DESTROY-CLEANUP: 
Converted DESTROY-FINISH.
Compiling DEFUN DESTROY-FINISH: 
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT ROOT: 
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL ROOT) T))|.
Compiling DEFCONTACT ROOT: 
[GC threshold exceeded with 8,614,072 bytes in use.  Commencing GC.]
[GC completed with 6,873,224 bytes retained and 1,740,848 bytes freed.]
[GC will next occur when at least 8,873,224 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (ROOT T T))|.
Compiling DEFCONTACT ROOT: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (ROOT))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (ROOT): 
[GC threshold exceeded with 8,993,176 bytes in use.  Commencing GC.]
[GC completed with 7,104,904 bytes retained and 1,888,272 bytes freed.]
[GC will next occur when at least 9,104,904 bytes are in use.]
Converted |(PCL::FAST-METHOD CONTACT-ROOT (CONTACT))|.
Compiling DEFMETHOD CONTACT-ROOT (CONTACT): 
Byte Compiling Top-Level Form: 
Converted CONTACT-SCREEN.
Compiling DEFUN CONTACT-SCREEN: 
Converted CONTACT-TOP-LEVEL.
Compiling DEFUN CONTACT-TOP-LEVEL: 
Converted CONTACT-TRANSLATE.
Compiling DEFUN CONTACT-TRANSLATE: 
Converted READ-CHARACTER.
Compiling DEFUN READ-CHARACTER: 
Converted UNREAD-CHARACTER.
Compiling DEFUN UNREAD-CHARACTER: 
Converted LISTEN-CHARACTER.
Compiling DEFUN LISTEN-CHARACTER: 
Converted APPEND-CHARACTERS.
Compiling DEFUN APPEND-CHARACTERS: 
Converted CLEAR-CHARACTERS.
Compiling DEFUN CLEAR-CHARACTERS: 
Converted |(PCL::FAST-METHOD ADD-CHILD (COMPOSITE T))|.
Compiling DEFMETHOD ADD-CHILD (COMPOSITE T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DELETE-CHILD (COMPOSITE T))|.
Compiling DEFMETHOD DELETE-CHILD (COMPOSITE T): 
Converted PREVIOUS-SIBLING.
Compiling DEFUN PREVIOUS-SIBLING: 
Converted NEXT-SIBLING.
Compiling DEFUN NEXT-SIBLING: 
[GC threshold exceeded with 9,110,192 bytes in use.  Commencing GC.]
[GC completed with 7,557,440 bytes retained and 1,552,752 bytes freed.]
[GC will next occur when at least 9,557,440 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (COMPOSITE CONTACT T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (COMPOSITE CONTACT T T T T T): 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY :AROUND (COMPOSITE BASIC-CONTACT T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY :AROUND (COMPOSITE BASIC-CONTACT T T T T T): 
[GC threshold exceeded with 9,632,064 bytes in use.  Commencing GC.]
[GC completed with 5,528,248 bytes retained and 4,103,816 bytes freed.]
[GC will next occur when at least 7,528,248 bytes are in use.]
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (COMPOSITE))|.
Compiling DEFMETHOD CHANGE-LAYOUT (COMPOSITE): 
Converted COMPOSITE-CHANGING-LAYOUT-P.
Compiling DEFMACRO COMPOSITE-CHANGING-LAYOUT-P: 
Converted WHILE-CHANGING-LAYOUT.
Compiling DEFMACRO WHILE-CHANGING-LAYOUT: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT :AROUND (COMPOSITE))|.
Compiling DEFMETHOD CHANGE-LAYOUT :AROUND (COMPOSITE): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-PRIORITY) (T CONTACT))|.
Compiling DEFMETHOD (SETF CONTACT-PRIORITY) (T CONTACT): 
Converted CHANGE-PRIORITY.
Compiling DEFUN CHANGE-PRIORITY: 
Converted |(PCL::FAST-METHOD MANAGE-PRIORITY (COMPOSITE T T T))|.
Compiling DEFMETHOD MANAGE-PRIORITY (COMPOSITE T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD ACCEPT-FOCUS-P (CONTACT))|.
Compiling DEFMETHOD ACCEPT-FOCUS-P (CONTACT): 
Converted |(PCL::FAST-METHOD MOVE-FOCUS (COMPOSITE))|.
Compiling DEFMETHOD MOVE-FOCUS (COMPOSITE): 
[GC threshold exceeded with 7,981,408 bytes in use.  Commencing GC.]
[GC completed with 5,969,312 bytes retained and 2,012,096 bytes freed.]
[GC will next occur when at least 7,969,312 bytes are in use.]
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (CONTACT))|.
Compiling DEFMETHOD PREFERRED-SIZE (CONTACT): 
Converted CHANGE-GEOMETRY.
Compiling DEFUN CHANGE-GEOMETRY: 
Byte Compiling Top-Level Form: 
Converted WITHOUT-REQUESTS.
Compiling DEFMACRO WITHOUT-REQUESTS: 
Converted |(PCL::FAST-METHOD MOVE (CONTACT T T))|.
Compiling DEFMETHOD MOVE (CONTACT T T): 
Converted |(PCL::FAST-METHOD MOVE :AROUND (CONTACT T T))|.
Compiling DEFMETHOD MOVE :AROUND (CONTACT T T): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 8,383,904 bytes in use.  Commencing GC.]
[GC completed with 6,283,456 bytes retained and 2,100,448 bytes freed.]
[GC will next occur when at least 8,283,456 bytes are in use.]
Converted |(PCL::FAST-METHOD RESIZE (CONTACT T T T))|.
Compiling DEFMETHOD RESIZE (CONTACT T T T): 
Converted |(PCL::FAST-METHOD RESIZE :AROUND (CONTACT T T T))|.
Compiling DEFMETHOD RESIZE :AROUND (CONTACT T T T): 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clue/intrinsics.lisp

In: DEFMETHOD REALIZE (CONTACT)
  (SETF (WINDOW-DOCUMENTATION CONTACT) DOCUMENTATION)
--> LET* MULTIPLE-VALUE-BIND LET FUNCALL C::%FUNCALL 
==>
  #'(SETF WINDOW-DOCUMENTATION)
Warning: Undefined function: (SETF WINDOW-DOCUMENTATION)


In: DEFUN DESTROY-CLEANUP
  (DELETE-MODE CONTACT)
Warning: Undefined function: DELETE-MODE

  (DELETE-TIMER CONTACT)
Warning: Undefined function: DELETE-TIMER


In: DEFUN READ-CHARACTER
  (PROCESS-NEXT-EVENT DISPLAY TIMEOUT)
Warning: Undefined function: PROCESS-NEXT-EVENT


Warning: These functions are undefined:
  (SETF WINDOW-DOCUMENTATION) DELETE-MODE DELETE-TIMER PROCESS-NEXT-EVENT


Compilation unit finished.
  5 warnings


clue:clue/intrinsics.x86f written.
Compilation finished in 0:00:49.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/intrinsics.x86f".
[GC threshold exceeded with 8,284,344 bytes in use.  Commencing GC.]
[GC completed with 6,689,264 bytes retained and 1,595,080 bytes freed.]
[GC will next occur when at least 8,689,264 bytes are in use.]
Compiling LAMBDA (#:G886 #:G887 #:G899 #:G900): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G914 #:G915 #:G927 #:G928): 
Compiling Top-Level Form: 
[GC threshold exceeded with 8,689,680 bytes in use.  Commencing GC.]
[GC completed with 6,655,776 bytes retained and 2,033,904 bytes freed.]
[GC will next occur when at least 8,655,776 bytes are in use.]
Compiling LAMBDA (PCL::EFFECTIVE-METHOD-GENSYM-0 PCL::EFFECTIVE-METHOD-GENSYM-1 PCL::EFFECTIVE-METHOD-GENSYM-2): 
Compiling Top-Level Form: 
[GC threshold exceeded with 8,663,064 bytes in use.  Commencing GC.]
[GC completed with 7,360,752 bytes retained and 1,302,312 bytes freed.]
[GC will next occur when at least 9,360,752 bytes are in use.]
Compiling LAMBDA (#:G1110 #:G1111): 
Compiling Top-Level Form: 

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:45:02 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/caches.lisp 03 NOV 96 09:08:51 pm

Converted |(PCL::FAST-METHOD CONTACT-DEPTH (DRAWABLE))|.
Compiling DEFMETHOD CONTACT-DEPTH (DRAWABLE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL DRAWABLE>: 
Converted |(PCL::FAST-METHOD CONTACT-ROOT (DRAWABLE))|.
Compiling DEFMETHOD CONTACT-ROOT (DRAWABLE): 
Converted DEFAULT-GCONTEXT.
Compiling DEFUN DEFAULT-GCONTEXT: 
Compiling Top-Level Form: 
Converted USING-GCONTEXT.
Compiling DEFMACRO USING-GCONTEXT: 
[GC threshold exceeded with 9,612,208 bytes in use.  Commencing GC.]
[GC completed with 7,162,264 bytes retained and 2,449,944 bytes freed.]
[GC will next occur when at least 9,162,264 bytes are in use.]
Compiling DEFCONSTANT *GCONTEXT-TEST-SEQUENCE*: 
Byte Compiling Top-Level Form: 
Converted FIND-GCONTEXT.
Compiling DEFUN FIND-GCONTEXT: 
Converted DISPLAY-PIXMAP.
Compiling DEFUN DISPLAY-PIXMAP: 
Converted SETF-DISPLAY-PIXMAP.
Compiling DEFUN SETF-DISPLAY-PIXMAP: 
Converted CONTACT-PIXMAP.
Compiling DEFMACRO CONTACT-PIXMAP: 
Converted CONTACT-IMAGE-PIXMAP.
Compiling DEFUN CONTACT-IMAGE-PIXMAP: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted DISPLAY-MASK.
Compiling DEFUN DISPLAY-MASK: 
Converted DISPLAY-MASK-ENTRY.
Compiling DEFUN DISPLAY-MASK-ENTRY: 
Converted SETF-DISPLAY-MASK.
Compiling DEFUN SETF-DISPLAY-MASK: 
Converted CONTACT-MASK.
Compiling DEFMACRO CONTACT-MASK: 
Converted CONTACT-IMAGE-MASK.
Compiling DEFUN CONTACT-IMAGE-MASK: 
[GC threshold exceeded with 9,372,088 bytes in use.  Commencing GC.]
[GC completed with 7,628,840 bytes retained and 1,743,248 bytes freed.]
[GC will next occur when at least 9,628,840 bytes are in use.]
Converted DISPLAY-CURSOR.
Compiling DEFUN DISPLAY-CURSOR: 
Converted SETF-DISPLAY-CURSOR.
Compiling DEFUN SETF-DISPLAY-CURSOR: 
Byte Compiling Top-Level Form: 
Converted CONTACT-IMAGE-CURSOR.
Compiling DEFUN CONTACT-IMAGE-CURSOR: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PIXMAP>: 
Converted CONTACT-GLYPH-CURSOR.
Compiling DEFUN CONTACT-GLYPH-CURSOR: 
Byte Compiling Top-Level Form: 

clue:clue/caches.x86f written.
Compilation finished in 0:00:08.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/caches.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:45:10 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/resource.lisp 03 NOV 96 07:41:03 pm

Converted DESCRIBE-RESOURCE.
Compiling DEFUN DESCRIBE-RESOURCE: 
[GC threshold exceeded with 10,100,592 bytes in use.  Commencing GC.]
[GC completed with 7,939,560 bytes retained and 2,161,032 bytes freed.]
[GC will next occur when at least 9,939,560 bytes are in use.]
Converted DEFAULT-RESOURCES.
Compiling DEFUN DEFAULT-RESOURCES: 
Converted CLASS-RESOURCES.
Compiling DEFUN CLASS-RESOURCES: 
Converted GET-RESOURCES.
Compiling DEFUN GET-RESOURCES: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted RESOURCE.
Compiling DEFUN RESOURCE: 
Converted GET-CLUE-RESOURCE-INTERNAL.
Compiling DEFUN GET-CLUE-RESOURCE-INTERNAL: 
Converted |(PCL::FAST-METHOD CONVERT (T T T))|.
Compiling DEFMETHOD CONVERT (T T T): 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL KEYWORD)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL PIXEL)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL COLOR)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
[GC threshold exceeded with 10,104,432 bytes in use.  Commencing GC.]
[GC completed with 8,319,336 bytes retained and 1,785,096 bytes freed.]
[GC will next occur when at least 10,319,336 bytes are in use.]
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL FONT)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL PIXMAP)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PIXMAP>: 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL IMAGE)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Converted STRINGABLE-VALUE.
Compiling DEFUN STRINGABLE-VALUE: 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL CURSOR)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL BOOLEAN)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL STRINGABLE)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL STRING)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL MASK32)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Converted DEFINE-RESOURCES.
Compiling DEFMACRO DEFINE-RESOURCES: 
Byte Compiling Top-Level Form: 
Converted UNDEFINE-RESOURCES.
Compiling DEFMACRO UNDEFINE-RESOURCES: 
Byte Compiling Top-Level Form: 

clue:clue/resource.x86f written.
Compilation finished in 0:00:07.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/resource.x86f".
[GC threshold exceeded with 10,324,440 bytes in use.  Commencing GC.]
[GC completed with 8,477,728 bytes retained and 1,846,712 bytes freed.]
[GC will next occur when at least 10,477,728 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:45:18 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/gray.lisp 09 NOV 96 05:38:23 pm

Converted DEFIMAGE.
Compiling DEFMACRO DEFIMAGE: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:clue/gray.x86f written.
Compilation finished in 0:00:00.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/gray.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:45:18 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/cursor.lisp 19 JUL 90 08:17:18 pm

Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:clue/cursor.x86f written.
Compilation finished in 0:00:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/cursor.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:45:19 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/events.lisp 07 MAR 97 10:12:23 pm

[GC threshold exceeded with 10,483,160 bytes in use.  Commencing GC.]
[GC completed with 8,991,512 bytes retained and 1,491,648 bytes freed.]
[GC will next occur when at least 10,991,512 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted EVENT-KEYSYM.
Compiling DEFSTRUCT EVENT: 
Converted (SETF EVENT-KEYSYM).
Compiling DEFSTRUCT EVENT: 
Converted MAKE-EVENT.
Compiling DEFSTRUCT EVENT: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL WINDOW>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL DRAWABLE>: 
[GC threshold exceeded with 14,011,416 bytes in use.  Commencing GC.]
[GC completed with 5,052,320 bytes retained and 8,959,096 bytes freed.]
[GC will next occur when at least 7,052,320 bytes are in use.]
Converted %PRINT-EVENT.
Compiling DEFUN %PRINT-EVENT: 
Converted |(PCL::FAST-METHOD PRINT-OBJECT (EVENT T))|.
Compiling DEFMETHOD PRINT-OBJECT (EVENT T): 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL EVENT>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted ALLOCATE-EVENT.
Compiling DEFUN ALLOCATE-EVENT: 
Converted |(PCL::FAST-METHOD DEALLOCATE-EVENT (EVENT))|.
Compiling DEFMETHOD DEALLOCATE-EVENT (EVENT): 
Compiling DEFTYPE MODE-TYPE: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted ADD-MODE.
Compiling DEFUN ADD-MODE: 
[GC threshold exceeded with 7,097,904 bytes in use.  Commencing GC.]
[GC completed with 5,459,296 bytes retained and 1,638,608 bytes freed.]
[GC will next occur when at least 7,459,296 bytes are in use.]
Converted DELETE-MODE.
Compiling DEFUN DELETE-MODE: 
Converted WITH-MODE.
Compiling DEFMACRO WITH-MODE: 
Converted CONTACT-MODE.
Compiling DEFUN CONTACT-MODE: 
Converted CONTACT-SUPER-MODE.
Compiling DEFUN CONTACT-SUPER-MODE: 
Converted WITH-EVENT-MODE.
Compiling DEFMACRO WITH-EVENT-MODE: 
Converted DEFACTION.
Compiling DEFMACRO DEFACTION: 
Converted USING-EVENT.
Compiling DEFMACRO USING-EVENT: 
Converted PROCESSING-EVENT-P.
Compiling DEFMACRO PROCESSING-EVENT-P: 
Converted WITH-EVENT.
Compiling DEFMACRO WITH-EVENT: 
Converted CALL-ACTION.
Compiling DEFMACRO CALL-ACTION: 
Byte Compiling Top-Level Form: 
Converted CALL-ACTION-INTERNAL.
Compiling DEFUN CALL-ACTION-INTERNAL: 
Converted ADD-BEFORE-ACTION.
Compiling DEFUN ADD-BEFORE-ACTION: 
Converted DELETE-BEFORE-ACTION.
Compiling DEFUN DELETE-BEFORE-ACTION: 
Converted |(PCL::FAST-METHOD PERFORM-CALLBACK (BASIC-CONTACT T))|.
Compiling DEFMETHOD PERFORM-CALLBACK (BASIC-CONTACT T): 
Converted |(PCL::FAST-METHOD APPLY-ACTION (BASIC-CONTACT T))|.
Compiling DEFMETHOD APPLY-ACTION (BASIC-CONTACT T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD EVAL-ACTION (BASIC-CONTACT))|.
Compiling DEFMETHOD EVAL-ACTION (BASIC-CONTACT): 
Converted |(PCL::FAST-METHOD TRACE-ACTION (BASIC-CONTACT))|.
Compiling DEFMETHOD TRACE-ACTION (BASIC-CONTACT): 
[GC threshold exceeded with 7,585,280 bytes in use.  Commencing GC.]
[GC completed with 5,643,584 bytes retained and 1,941,696 bytes freed.]
[GC will next occur when at least 7,643,584 bytes are in use.]
Converted |(PCL::FAST-METHOD DESCRIBE-ACTION (BASIC-CONTACT))|.
Compiling DEFMETHOD DESCRIBE-ACTION (BASIC-CONTACT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD IGNORE-ACTION (BASIC-CONTACT))|.
Compiling DEFMETHOD IGNORE-ACTION (BASIC-CONTACT): 
Converted |(PCL::FAST-METHOD THROW-ACTION (BASIC-CONTACT T))|.
Compiling DEFMETHOD THROW-ACTION (BASIC-CONTACT T): 
Converted DEFEVENT.
Compiling DEFMACRO DEFEVENT: 
Converted UNDEFEVENT.
Compiling DEFMACRO UNDEFEVENT: 
Converted |(PCL::FAST-METHOD EVENT-ACTIONS (BASIC-CONTACT T))|.
Compiling DEFMETHOD EVENT-ACTIONS (BASIC-CONTACT T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD ADD-EVENT (BASIC-CONTACT T))|.
Compiling DEFMETHOD ADD-EVENT (BASIC-CONTACT T): 
Converted |(PCL::FAST-METHOD DELETE-EVENT (BASIC-CONTACT T))|.
Compiling DEFMETHOD DELETE-EVENT (BASIC-CONTACT T): 
Converted ENCODE-BUTTON-NUMBER.
Compiling DEFUN ENCODE-BUTTON-NUMBER: 
[GC threshold exceeded with 7,689,600 bytes in use.  Commencing GC.]
[GC completed with 6,085,064 bytes retained and 1,604,536 bytes freed.]
[GC will next occur when at least 8,085,064 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted GET-DISPLAY-MODIFIER-TRANSLATE.
Compiling DEFUN GET-DISPLAY-MODIFIER-TRANSLATE: 
Converted TRANSLATE-META-MODIFIERS.
Compiling DEFUN TRANSLATE-META-MODIFIERS: 
Converted ENCODE-CLUE-MODIFIER-MASK.
Compiling DEFUN ENCODE-CLUE-MODIFIER-MASK: 
Converted EVENT-SPEC-MATCH.
Compiling DEFUN EVENT-SPEC-MATCH: 
Byte Compiling Top-Level Form: 
Converted KEY-CHECK.
Compiling DEFUN KEY-CHECK: 
Converted KEY-MATCH.
Compiling DEFUN KEY-MATCH: 
Converted BUTTON-CHECK.
Compiling DEFUN BUTTON-CHECK: 
Converted BUTTON-PRESS-MASK.
Compiling DEFUN BUTTON-PRESS-MASK: 
Converted BUTTON-RELEASE-MASK.
Compiling DEFUN BUTTON-RELEASE-MASK: 
Converted BUTTON-PRESS-MATCH.
Compiling DEFUN BUTTON-PRESS-MATCH: 
[GC threshold exceeded with 8,640,792 bytes in use.  Commencing GC.]
[GC completed with 6,251,328 bytes retained and 2,389,464 bytes freed.]
[GC will next occur when at least 8,251,328 bytes are in use.]
Converted BUTTON-RELEASE-MATCH.
Compiling DEFUN BUTTON-RELEASE-MATCH: 
Converted MOTION-CHECK.
Compiling DEFUN MOTION-CHECK: 
Converted MOTION-MATCH.
Compiling DEFUN MOTION-MATCH: 
Converted MOTION-EVENT-MASK.
Compiling DEFUN MOTION-EVENT-MASK: 
Byte Compiling Top-Level Form: 
Converted ENTER-LEAVE-CHECK.
Compiling DEFUN ENTER-LEAVE-CHECK: 
Converted ENTER-LEAVE-MATCH.
Compiling DEFUN ENTER-LEAVE-MATCH: 
Converted KEY-UP-CHECK.
Compiling DEFUN KEY-UP-CHECK: 
Byte Compiling Top-Level Form: 
Converted CLIENT-MESSAGE-CHECK.
Compiling DEFUN CLIENT-MESSAGE-CHECK: 
Converted CLIENT-MESSAGE-MATCH.
Compiling DEFUN CLIENT-MESSAGE-MATCH: 
Converted WM-PROTOCOL-CHECK.
Compiling DEFUN WM-PROTOCOL-CHECK: 
Converted TIMER-CHECK.
Compiling DEFUN TIMER-CHECK: 
Converted TIMER-MATCH.
Compiling DEFUN TIMER-MATCH: 
Byte Compiling Top-Level Form: 
Converted PROPERTY-CHECK.
Compiling DEFUN PROPERTY-CHECK: 
Converted PROPERTY-MATCH.
Compiling DEFUN PROPERTY-MATCH: 
[GC threshold exceeded with 8,280,888 bytes in use.  Commencing GC.]
[GC completed with 6,611,304 bytes retained and 1,669,584 bytes freed.]
[GC will next occur when at least 8,611,304 bytes are in use.]
Converted CLICK-LOOKAHEAD.
Compiling DEFUN CLICK-LOOKAHEAD: 
[GC threshold exceeded with 9,080,632 bytes in use.  Commencing GC.]
[GC completed with 6,748,256 bytes retained and 2,332,376 bytes freed.]
[GC will next occur when at least 8,748,256 bytes are in use.]
Converted PROCESS-ALL-EVENTS.
Compiling DEFUN PROCESS-ALL-EVENTS: 
Converted PROCESS-NEXT-EVENT.
Compiling DEFUN PROCESS-NEXT-EVENT: [GC threshold exceeded with 14,748,680 bytes in use.  Commencing GC.]
[GC completed with 9,837,720 bytes retained and 4,910,960 bytes freed.]
[GC will next occur when at least 17,837,720 bytes are in use.]

[GC threshold exceeded with 15,726,976 bytes in use.  Commencing GC.]
[GC completed with 7,325,280 bytes retained and 8,401,696 bytes freed.]
[GC will next occur when at least 9,325,280 bytes are in use.]
Converted DISPATCH-EVENT.
Compiling DEFUN DISPATCH-EVENT: 
[GC threshold exceeded with 12,157,856 bytes in use.  Commencing GC.]
[GC completed with 8,001,376 bytes retained and 4,156,480 bytes freed.]
[GC will next occur when at least 10,001,376 bytes are in use.]
Converted |(PCL::FAST-METHOD HANDLE-EVENT (BASIC-CONTACT EVENT))|.
Compiling DEFMETHOD HANDLE-EVENT (BASIC-CONTACT EVENT): 
Converted TRANSLATE-EVENT.
Compiling DEFUN TRANSLATE-EVENT: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL BASIC-CONTACT>: 
Converted |(PCL::FAST-METHOD TRANSLATE-KEY (CONTACT T))|.
Compiling DEFMETHOD TRANSLATE-KEY (CONTACT T): 
Byte Compiling Top-Level Form: 
Converted MAKE-TIMER.
Compiling DEFSTRUCT TIMER: 
Converted ADD-TIMER.
Compiling DEFUN ADD-TIMER: 
Converted INSERT-TIMER.
Compiling DEFUN INSERT-TIMER: 
Converted DELETE-TIMER.
Compiling DEFUN DELETE-TIMER: 
Converted EXECUTE-TIMERS.
Compiling DEFUN EXECUTE-TIMERS: 
[GC threshold exceeded with 10,080,232 bytes in use.  Commencing GC.]
[GC completed with 7,832,216 bytes retained and 2,248,016 bytes freed.]
[GC will next occur when at least 9,832,216 bytes are in use.]
Converted DESCRIBE-EVENT-TRANSLATIONS.
Compiling DEFUN DESCRIBE-EVENT-TRANSLATIONS: 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL TIMER>: 

clue:clue/events.x86f written.
Compilation finished in 0:01:06.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/events.x86f".
[GC threshold exceeded with 9,835,832 bytes in use.  Commencing GC.]
[GC completed with 8,261,344 bytes retained and 1,574,488 bytes freed.]
[GC will next occur when at least 10,261,344 bytes are in use.]
[GC threshold exceeded with 10,268,928 bytes in use.  Commencing GC.]
[GC completed with 8,553,744 bytes retained and 1,715,184 bytes freed.]
[GC will next occur when at least 10,553,744 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:46:34 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/virtual.lisp 28 NOV 96 06:30:38 pm

Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL VIRTUAL) T))|.
Compiling DEFCONTACT VIRTUAL: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (VIRTUAL T T))|.
Compiling DEFCONTACT VIRTUAL: 
[GC threshold exceeded with 12,285,304 bytes in use.  Commencing GC.]
[GC completed with 9,200,504 bytes retained and 3,084,800 bytes freed.]
[GC will next occur when at least 11,200,504 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF CONTACT-STATE) (T VIRTUAL))|.
Compiling DEFMETHOD (SETF CONTACT-STATE) (T VIRTUAL): 
Converted |(PCL::FAST-METHOD REALIZE (VIRTUAL))|.
Compiling DEFMETHOD REALIZE (VIRTUAL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DESTROY (VIRTUAL))|.
Compiling DEFMETHOD DESTROY (VIRTUAL): 
Converted |(PCL::FAST-METHOD ACCEPT-FOCUS-P (VIRTUAL))|.
Compiling DEFMETHOD ACCEPT-FOCUS-P (VIRTUAL): 
Converted |(PCL::FAST-METHOD MOVE (VIRTUAL T T))|.
Compiling DEFMETHOD MOVE (VIRTUAL T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD RESIZE (VIRTUAL T T T))|.
Compiling DEFMETHOD RESIZE (VIRTUAL T T T): 
Converted |(PCL::FAST-METHOD INSIDE-CONTACT-P (VIRTUAL T T))|.
Compiling DEFMETHOD INSIDE-CONTACT-P (VIRTUAL T T): 
Converted |(PCL::FAST-METHOD RECTANGLE (VIRTUAL T T T T T))|.
Compiling DEFMETHOD RECTANGLE (VIRTUAL T T T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GLYPHS (VIRTUAL T T T T))|.
Compiling DEFMETHOD GLYPHS (VIRTUAL T T T T): 
[GC threshold exceeded with 11,373,176 bytes in use.  Commencing GC.]
[GC completed with 9,192,168 bytes retained and 2,181,008 bytes freed.]
[GC will next occur when at least 11,192,168 bytes are in use.]
Converted |(PCL::FAST-METHOD CLEAR (VIRTUAL))|.
Compiling DEFMETHOD CLEAR (VIRTUAL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL VIRTUAL-COMPOSITE) T))|.
Compiling DEFCONTACT VIRTUAL-COMPOSITE: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PIXMAP>: 
[GC threshold exceeded with 11,578,816 bytes in use.  Commencing GC.]
[GC completed with 9,593,992 bytes retained and 1,984,824 bytes freed.]
[GC will next occur when at least 11,593,992 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (VIRTUAL-COMPOSITE T T))|.
Compiling DEFCONTACT VIRTUAL-COMPOSITE: 
[GC threshold exceeded with 12,253,368 bytes in use.  Commencing GC.]
[GC completed with 7,583,824 bytes retained and 4,669,544 bytes freed.]
[GC will next occur when at least 9,583,824 bytes are in use.]
Converted |(PCL::FAST-METHOD REALIZE :BEFORE (VIRTUAL-COMPOSITE))|.
Compiling DEFMETHOD REALIZE :BEFORE (VIRTUAL-COMPOSITE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIRTUAL>: 
Converted |(PCL::FAST-METHOD HANDLE-EVENT (VIRTUAL-COMPOSITE EVENT))|.
Compiling DEFMETHOD HANDLE-EVENT (VIRTUAL-COMPOSITE EVENT): 
[GC threshold exceeded with 10,554,904 bytes in use.  Commencing GC.]
[GC completed with 8,100,512 bytes retained and 2,454,392 bytes freed.]
[GC will next occur when at least 10,100,512 bytes are in use.]
Byte Compiling Top-Level Form: 

clue:clue/virtual.x86f written.
Compilation finished in 0:00:15.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/virtual.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:46:49 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/shells.lisp 28 NOV 96 06:42:18 pm

Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL SHELL) T))|.
Compiling DEFCONTACT SHELL: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PIXMAP>: 
[GC threshold exceeded with 11,030,960 bytes in use.  Commencing GC.]
[GC completed with 8,439,256 bytes retained and 2,591,704 bytes freed.]
[GC will next occur when at least 10,439,256 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (SHELL T T))|.
Compiling DEFCONTACT SHELL: 
[GC threshold exceeded with 11,099,408 bytes in use.  Commencing GC.]
[GC completed with 9,015,840 bytes retained and 2,083,568 bytes freed.]
[GC will next occur when at least 11,015,840 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (SHELL))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AROUND (SHELL): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL SHELL>: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (SHELL))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL OVERRIDE-SHELL) T))|.
Compiling DEFCONTACT OVERRIDE-SHELL: 
[GC threshold exceeded with 11,604,432 bytes in use.  Commencing GC.]
[GC completed with 9,239,928 bytes retained and 2,364,504 bytes freed.]
[GC will next occur when at least 11,239,928 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (OVERRIDE-SHELL T T))|.
Compiling DEFCONTACT OVERRIDE-SHELL: 
[GC threshold exceeded with 11,904,144 bytes in use.  Commencing GC.]
[GC completed with 9,708,992 bytes retained and 2,195,152 bytes freed.]
[GC will next occur when at least 11,708,992 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CONTACT-STATE) :AROUND (T OVERRIDE-SHELL))|.
Compiling DEFMETHOD (SETF CONTACT-STATE) :AROUND (T OVERRIDE-SHELL): 
Converted WM-PROPERTIES-CHANGED.
Compiling DEFMACRO WM-PROPERTIES-CHANGED: 
Converted WM-CHANGING-PROPERTIES-P.
Compiling DEFMACRO WM-CHANGING-PROPERTIES-P: 
Compiling DEFSETF WM-CHANGING-PROPERTIES-P: 
Converted WITH-WM-PROPERTIES.
Compiling DEFMACRO WITH-WM-PROPERTIES: 
Converted DEFINE-WM-BATCH-CHANGE-PROPERTIES.
Compiling DEFMACRO DEFINE-WM-BATCH-CHANGE-PROPERTIES: 
Converted WM-BATCH-CHANGE-PROPERTIES.
Compiling DEFINE-WM-BATCH-CHANGE-PROPERTIES: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 11,714,152 bytes in use.  Commencing GC.]
[GC completed with 8,682,944 bytes retained and 3,031,208 bytes freed.]
[GC will next occur when at least 10,682,944 bytes are in use.]
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL WM-SHELL) T))|.
Compiling DEFCONTACT WM-SHELL: 
[GC threshold exceeded with 12,446,648 bytes in use.  Commencing GC.]
[GC completed with 9,373,312 bytes retained and 3,073,336 bytes freed.]
[GC will next occur when at least 11,373,312 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (WM-SHELL T T))|.
Compiling DEFCONTACT WM-SHELL: 
[GC threshold exceeded with 12,041,152 bytes in use.  Commencing GC.]
[GC completed with 9,472,768 bytes retained and 2,568,384 bytes freed.]
[GC will next occur when at least 11,472,768 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-CHANGE-PROTOCOLS (WM-SHELL))|.
Compiling DEFMETHOD WM-CHANGE-PROTOCOLS (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-PROTOCOLS-USED) :AFTER (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-PROTOCOLS-USED) :AFTER (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-CHANGE-NAME (WM-SHELL))|.
Compiling DEFMETHOD WM-CHANGE-NAME (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-TITLE) :AFTER (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-TITLE) :AFTER (T WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-CHANGE-CLASS (WM-SHELL))|.
Compiling DEFMETHOD WM-CHANGE-CLASS (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF SHELL-NORMAL-HINTS) :AFTER (T WM-SHELL))|.
Compiling DEFMETHOD (SETF SHELL-NORMAL-HINTS) :AFTER (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-CHANGE-NORMAL-HINTS (WM-SHELL))|.
Compiling DEFMETHOD WM-CHANGE-NORMAL-HINTS (WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted WM-UPDATE-NORMAL-HINTS.
Compiling DEFUN WM-UPDATE-NORMAL-HINTS: 
Converted |(PCL::FAST-METHOD WM-USER-SPECIFIED-SIZE-P (WM-SHELL))|.
Compiling DEFMETHOD WM-USER-SPECIFIED-SIZE-P (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-USER-SPECIFIED-SIZE-P) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-USER-SPECIFIED-SIZE-P) (T WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-USER-SPECIFIED-POSITION-P (WM-SHELL))|.
Compiling DEFMETHOD WM-USER-SPECIFIED-POSITION-P (WM-SHELL): 
[GC threshold exceeded with 11,694,424 bytes in use.  Commencing GC.]
[GC completed with 9,951,680 bytes retained and 1,742,744 bytes freed.]
[GC will next occur when at least 11,951,680 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF WM-USER-SPECIFIED-POSITION-P) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-USER-SPECIFIED-POSITION-P) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-MIN-WIDTH (WM-SHELL))|.
Compiling DEFMETHOD WM-MIN-WIDTH (WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF WM-MIN-WIDTH) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-MIN-WIDTH) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-MIN-HEIGHT (WM-SHELL))|.
Compiling DEFMETHOD WM-MIN-HEIGHT (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-MIN-HEIGHT) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-MIN-HEIGHT) (T WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-MIN-ASPECT (WM-SHELL))|.
Compiling DEFMETHOD WM-MIN-ASPECT (WM-SHELL): 
[GC threshold exceeded with 12,116,200 bytes in use.  Commencing GC.]
[GC completed with 10,146,536 bytes retained and 1,969,664 bytes freed.]
[GC will next occur when at least 12,146,536 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF WM-MIN-ASPECT) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-MIN-ASPECT) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-MAX-WIDTH (WM-SHELL))|.
Compiling DEFMETHOD WM-MAX-WIDTH (WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF WM-MAX-WIDTH) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-MAX-WIDTH) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-MAX-HEIGHT (WM-SHELL))|.
Compiling DEFMETHOD WM-MAX-HEIGHT (WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF WM-MAX-HEIGHT) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-MAX-HEIGHT) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-MAX-ASPECT (WM-SHELL))|.
Compiling DEFMETHOD WM-MAX-ASPECT (WM-SHELL): 
[GC threshold exceeded with 12,360,144 bytes in use.  Commencing GC.]
[GC completed with 10,577,176 bytes retained and 1,782,968 bytes freed.]
[GC will next occur when at least 12,577,176 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF WM-MAX-ASPECT) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-MAX-ASPECT) (T WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-GRAVITY (WM-SHELL))|.
Compiling DEFMETHOD WM-GRAVITY (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-GRAVITY) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-GRAVITY) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-DELTA-WIDTH (WM-SHELL))|.
Compiling DEFMETHOD WM-DELTA-WIDTH (WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF WM-DELTA-WIDTH) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-DELTA-WIDTH) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-DELTA-HEIGHT (WM-SHELL))|.
Compiling DEFMETHOD WM-DELTA-HEIGHT (WM-SHELL): 
[GC threshold exceeded with 12,747,192 bytes in use.  Commencing GC.]
[GC completed with 5,761,472 bytes retained and 6,985,720 bytes freed.]
[GC will next occur when at least 7,761,472 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF WM-DELTA-HEIGHT) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-DELTA-HEIGHT) (T WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-BASE-WIDTH (WM-SHELL))|.
Compiling DEFMETHOD WM-BASE-WIDTH (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-BASE-WIDTH) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-BASE-WIDTH) (T WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-BASE-HEIGHT (WM-SHELL))|.
Compiling DEFMETHOD WM-BASE-HEIGHT (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-BASE-HEIGHT) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-BASE-HEIGHT) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF SHELL-HINTS) :AFTER (T WM-SHELL))|.
Compiling DEFMETHOD (SETF SHELL-HINTS) :AFTER (T WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-CHANGE-HINTS (WM-SHELL))|.
Compiling DEFMETHOD WM-CHANGE-HINTS (WM-SHELL): 
[GC threshold exceeded with 7,905,752 bytes in use.  Commencing GC.]
[GC completed with 6,193,104 bytes retained and 1,712,648 bytes freed.]
[GC will next occur when at least 8,193,104 bytes are in use.]
Converted WM-UPDATE-HINTS.
Compiling DEFUN WM-UPDATE-HINTS: 
Converted |(PCL::FAST-METHOD WM-GROUP (WM-SHELL))|.
Compiling DEFMETHOD WM-GROUP (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-GROUP) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-GROUP) (T WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-KEYBOARD-INPUT (WM-SHELL))|.
Compiling DEFMETHOD WM-KEYBOARD-INPUT (WM-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-KEYBOARD-INPUT) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-KEYBOARD-INPUT) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-INITIAL-STATE (WM-SHELL))|.
Compiling DEFMETHOD WM-INITIAL-STATE (WM-SHELL): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 8,198,504 bytes in use.  Commencing GC.]
[GC completed with 6,435,880 bytes retained and 1,762,624 bytes freed.]
[GC will next occur when at least 8,435,880 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF WM-INITIAL-STATE) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF WM-INITIAL-STATE) (T WM-SHELL): 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (WM-SHELL))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (WM-SHELL): 
Converted |(PCL::FAST-METHOD REALIZE :AFTER (WM-SHELL))|.
Compiling DEFMETHOD REALIZE :AFTER (WM-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CONTACT-STATE) (T WM-SHELL))|.
Compiling DEFMETHOD (SETF CONTACT-STATE) (T WM-SHELL): 
[GC threshold exceeded with 8,629,064 bytes in use.  Commencing GC.]
[GC completed with 6,863,256 bytes retained and 1,765,808 bytes freed.]
[GC will next occur when at least 8,863,256 bytes are in use.]
Converted |(PCL::FAST-METHOD HANDLE-EVENT :BEFORE (WM-SHELL EVENT))|.
Compiling DEFMETHOD HANDLE-EVENT :BEFORE (WM-SHELL EVENT): 
Compiling DEFSTRUCT WM-MESSAGE: 
Byte Compiling Top-Level Form: 
Converted MAKE-WM-MESSAGE.
Compiling DEFSTRUCT WM-MESSAGE: 
Converted WM-MESSAGE-PROTOCOL.
Compiling DEFSTRUCT WM-MESSAGE: 
Converted (SETF WM-MESSAGE-PROTOCOL).
Compiling DEFSTRUCT WM-MESSAGE: 
Converted WM-MESSAGE-TIMESTAMP.
Compiling DEFSTRUCT WM-MESSAGE: 
Converted (SETF WM-MESSAGE-TIMESTAMP).
Compiling DEFSTRUCT WM-MESSAGE: 
Converted WM-MESSAGE-PROTOCOL-ATOM.
Compiling DEFUN WM-MESSAGE-PROTOCOL-ATOM: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT WM-SHELL: 
Compiling DEFEVENT WM-SHELL: 
Converted |(PCL::FAST-METHOD WM-TAKE-FOCUS (WM-SHELL))|.
Compiling DEFMETHOD WM-TAKE-FOCUS (WM-SHELL): 
Converted |(PCL::FAST-METHOD WM-TAKE-FOCUS (COMPOSITE))|.
Compiling DEFMETHOD WM-TAKE-FOCUS (COMPOSITE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL COMPOSITE>: 
Converted |(PCL::FAST-METHOD WM-TAKE-FOCUS (CONTACT))|.
Compiling DEFMETHOD WM-TAKE-FOCUS (CONTACT): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
[GC threshold exceeded with 8,980,328 bytes in use.  Commencing GC.]
[GC completed with 7,006,744 bytes retained and 1,973,584 bytes freed.]
[GC will next occur when at least 9,006,744 bytes are in use.]
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL TRANSIENT-SHELL) T))|.
Compiling DEFCONTACT TRANSIENT-SHELL: 
[GC threshold exceeded with 11,212,728 bytes in use.  Commencing GC.]
[GC completed with 7,632,928 bytes retained and 3,579,800 bytes freed.]
[GC will next occur when at least 9,632,928 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (TRANSIENT-SHELL T T))|.
Compiling DEFCONTACT TRANSIENT-SHELL: 
[GC threshold exceeded with 10,293,112 bytes in use.  Commencing GC.]
[GC completed with 6,915,488 bytes retained and 3,377,624 bytes freed.]
[GC will next occur when at least 8,915,488 bytes are in use.]
Converted |(PCL::FAST-METHOD REALIZE :AFTER (TRANSIENT-SHELL))|.
Compiling DEFMETHOD REALIZE :AFTER (TRANSIENT-SHELL): 
Converted CONTACT-ROOT-SHELL.
Compiling DEFUN CONTACT-ROOT-SHELL: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL TOP-LEVEL-SHELL) T))|.
Compiling DEFCONTACT TOP-LEVEL-SHELL: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL DRAWABLE>: 
[GC threshold exceeded with 12,017,656 bytes in use.  Commencing GC.]
[GC completed with 7,861,896 bytes retained and 4,155,760 bytes freed.]
[GC will next occur when at least 9,861,896 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (TOP-LEVEL-SHELL T T))|.
Compiling DEFCONTACT TOP-LEVEL-SHELL: 
[GC threshold exceeded with 10,525,696 bytes in use.  Commencing GC.]
[GC completed with 7,880,368 bytes retained and 2,645,328 bytes freed.]
[GC will next occur when at least 9,880,368 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF WM-COLORMAP-OWNERS) :AFTER (T TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD (SETF WM-COLORMAP-OWNERS) :AFTER (T TOP-LEVEL-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-CHANGE-COLORMAP-WINDOWS (TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD WM-CHANGE-COLORMAP-WINDOWS (TOP-LEVEL-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-ICON-TITLE) :AFTER (T TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD (SETF WM-ICON-TITLE) :AFTER (T TOP-LEVEL-SHELL): 
Converted |(PCL::FAST-METHOD WM-CHANGE-ICON-NAME (TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD WM-CHANGE-ICON-NAME (TOP-LEVEL-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-ICON (TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD WM-ICON (TOP-LEVEL-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-ICON) (PIXMAP TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD (SETF WM-ICON) (PIXMAP TOP-LEVEL-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-ICON) (WINDOW TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD (SETF WM-ICON) (WINDOW TOP-LEVEL-SHELL): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 10,139,304 bytes in use.  Commencing GC.]
[GC completed with 8,370,944 bytes retained and 1,768,360 bytes freed.]
[GC will next occur when at least 10,370,944 bytes are in use.]
Converted |(PCL::FAST-METHOD WM-ICON-MASK (TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD WM-ICON-MASK (TOP-LEVEL-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-ICON-MASK) (T TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD (SETF WM-ICON-MASK) (T TOP-LEVEL-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-ICON-X (TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD WM-ICON-X (TOP-LEVEL-SHELL): 
Converted |(PCL::FAST-METHOD (SETF WM-ICON-X) (T TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD (SETF WM-ICON-X) (T TOP-LEVEL-SHELL): 
Converted |(PCL::FAST-METHOD WM-ICON-Y (TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD WM-ICON-Y (TOP-LEVEL-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF WM-ICON-Y) (T TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD (SETF WM-ICON-Y) (T TOP-LEVEL-SHELL): 
[GC threshold exceeded with 10,562,432 bytes in use.  Commencing GC.]
[GC completed with 8,568,344 bytes retained and 1,994,088 bytes freed.]
[GC will next occur when at least 10,568,344 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (TOP-LEVEL-SHELL): 
Converted |(PCL::FAST-METHOD REALIZE :AFTER (TOP-LEVEL-SHELL))|.
Compiling DEFMETHOD REALIZE :AFTER (TOP-LEVEL-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DEFAULT-OPTIONS ((EQL TOP-LEVEL-SESSION) T))|.
Compiling DEFCONTACT TOP-LEVEL-SESSION: 
[GC threshold exceeded with 13,797,840 bytes in use.  Commencing GC.]
[GC completed with 9,326,408 bytes retained and 4,471,432 bytes freed.]
[GC will next occur when at least 11,326,408 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INITIALIZE-RESOURCE-SLOTS (TOP-LEVEL-SESSION T T))|.
Compiling DEFCONTACT TOP-LEVEL-SESSION: 
[GC threshold exceeded with 11,990,168 bytes in use.  Commencing GC.]
[GC completed with 7,109,168 bytes retained and 4,881,000 bytes freed.]
[GC will next occur when at least 9,109,168 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (TOP-LEVEL-SESSION))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (TOP-LEVEL-SESSION): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD REALIZE :AFTER (TOP-LEVEL-SESSION))|.
Compiling DEFMETHOD REALIZE :AFTER (TOP-LEVEL-SESSION): 
Converted |(PCL::FAST-METHOD (SETF SM-CLIENT-HOST) :AFTER (T TOP-LEVEL-SESSION))|.
Compiling DEFMETHOD (SETF SM-CLIENT-HOST) :AFTER (T TOP-LEVEL-SESSION): 
Converted |(PCL::FAST-METHOD WM-CHANGE-CLIENT-MACHINE (TOP-LEVEL-SESSION))|.
Compiling DEFMETHOD WM-CHANGE-CLIENT-MACHINE (TOP-LEVEL-SESSION): 
Converted |(PCL::FAST-METHOD (SETF SM-COMMAND) :AFTER (T TOP-LEVEL-SESSION))|.
Compiling DEFMETHOD (SETF SM-COMMAND) :AFTER (T TOP-LEVEL-SESSION): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD WM-CHANGE-COMMAND (TOP-LEVEL-SESSION))|.
Compiling DEFMETHOD WM-CHANGE-COMMAND (TOP-LEVEL-SESSION): 
Converted SHELL-DEFAULT-STATE.
Compiling DEFUN SHELL-DEFAULT-STATE: 
Converted |(PCL::FAST-METHOD INITIAL-STATE-TRANSITION (SHELL))|.
Compiling DEFMETHOD INITIAL-STATE-TRANSITION (SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SHELL-MAPPED (SHELL))|.
Compiling DEFMETHOD SHELL-MAPPED (SHELL): 
Converted |(PCL::FAST-METHOD SHELL-UNMAPPED (SHELL))|.
Compiling DEFMETHOD SHELL-UNMAPPED (SHELL): 
Converted |(PCL::FAST-METHOD SHELL-MAPPED :BEFORE (SHELL))|.
Compiling DEFMETHOD SHELL-MAPPED :BEFORE (SHELL): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-STATE) (T SHELL))|.
Compiling DEFMETHOD (SETF CONTACT-STATE) (T SHELL): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 9,435,232 bytes in use.  Commencing GC.]
[GC completed with 7,745,656 bytes retained and 1,689,576 bytes freed.]
[GC will next occur when at least 9,745,656 bytes are in use.]
Converted |(PCL::FAST-METHOD ADD-TO-PARENT (SHELL))|.
Compiling DEFMETHOD ADD-TO-PARENT (SHELL): 
Converted |(PCL::FAST-METHOD CONTACT-RESOURCE-PARENT (SHELL))|.
Compiling DEFMETHOD CONTACT-RESOURCE-PARENT (SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD ADD-CHILD :BEFORE (SHELL T))|.
Compiling DEFMETHOD ADD-CHILD :BEFORE (SHELL T): 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (SHELL CONTACT T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (SHELL CONTACT T T T T T): 
Converted |(PCL::FAST-METHOD MANAGE-PRIORITY (SHELL T T T))|.
Compiling DEFMETHOD MANAGE-PRIORITY (SHELL T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (SHELL))|.
Compiling DEFMETHOD CHANGE-LAYOUT (SHELL): 
[GC threshold exceeded with 10,054,440 bytes in use.  Commencing GC.]
[GC completed with 7,910,808 bytes retained and 2,143,632 bytes freed.]
[GC will next occur when at least 9,910,808 bytes are in use.]
Converted |(PCL::FAST-METHOD RESIZE :AFTER (SHELL T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (SHELL T T T): 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (SHELL))|.
Compiling DEFMETHOD PREFERRED-SIZE (SHELL): 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clue/shells.lisp

In: DEFMETHOD (SETF SM-CLIENT-HOST) :AFTER (T TOP-LEVEL-SESSION)
  (WM-CHANGE-CLIENT-MACHINE SHELL)
Warning: Undefined function: WM-CHANGE-CLIENT-MACHINE


In: DEFMETHOD REALIZE :AFTER (TOP-LEVEL-SESSION)
  (WM-CHANGE-CLIENT-MACHINE SHELL)
Warning: Undefined function: WM-CHANGE-CLIENT-MACHINE


In: DEFINE-WM-BATCH-CHANGE-PROPERTIES
  (DEFINE-WM-BATCH-CHANGE-PROPERTIES)
--> BLOCK WHEN COND IF PROGN 
==>
  (WM-CHANGE-CLIENT-MACHINE SHELL)
Warning: Undefined function: WM-CHANGE-CLIENT-MACHINE


Warning: This function is undefined:
  WM-CHANGE-CLIENT-MACHINE


Compilation unit finished.
  4 warnings


clue:clue/shells.x86f written.
Compilation finished in 0:01:25.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/shells.x86f".
[GC threshold exceeded with 9,912,064 bytes in use.  Commencing GC.]
[GC completed with 8,188,800 bytes retained and 1,723,264 bytes freed.]
[GC will next occur when at least 10,188,800 bytes are in use.]
Compiling LAMBDA (PCL::EFFECTIVE-METHOD-GENSYM-0 PCL::EFFECTIVE-METHOD-GENSYM-1 PCL::EFFECTIVE-METHOD-GENSYM-2): 
Compiling Top-Level Form: 
[GC threshold exceeded with 10,190,888 bytes in use.  Commencing GC.]
[GC completed with 8,292,896 bytes retained and 1,897,992 bytes freed.]
[GC will next occur when at least 10,292,896 bytes are in use.]
[GC threshold exceeded with 10,294,496 bytes in use.  Commencing GC.]
[GC completed with 8,579,864 bytes retained and 1,714,632 bytes freed.]
[GC will next occur when at least 10,579,864 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:48:21 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/root-gmgmt.lisp 19 JUL 90 08:39:32 pm

Converted |(PCL::FAST-METHOD ADD-CHILD (ROOT SHELL))|.
Compiling DEFMETHOD ADD-CHILD (ROOT SHELL): 
Converted |(PCL::FAST-METHOD ADD-CHILD (ROOT T))|.
Compiling DEFMETHOD ADD-CHILD (ROOT T): 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (ROOT WM-SHELL T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (ROOT WM-SHELL T T T T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
[GC threshold exceeded with 12,133,664 bytes in use.  Commencing GC.]
[GC completed with 8,737,648 bytes retained and 3,396,016 bytes freed.]
[GC will next occur when at least 10,737,648 bytes are in use.]
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY :AROUND (ROOT OVERRIDE-SHELL T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY :AROUND (ROOT OVERRIDE-SHELL T T T T T): 
Converted |(PCL::FAST-METHOD MANAGE-PRIORITY (ROOT WM-SHELL T T))|.
Compiling DEFMETHOD MANAGE-PRIORITY (ROOT WM-SHELL T T): 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (ROOT))|.
Compiling DEFMETHOD CHANGE-LAYOUT (ROOT): 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:clue/root-gmgmt.x86f written.
Compilation finished in 0:00:05.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/root-gmgmt.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:48:26 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/package.lisp 19 JUL 90 08:34:10 pm

Compiling DO-EXTERNAL-SYMBOLS (SYM (FIND-PACKAGE #)): 

clue:clue/package.x86f written.
Compilation finished in 0:00:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clue/package.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:48:27 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clue/precom.lisp 28 NOV 96 03:27:55 pm

Compiling LAMBDA (#:G0 #:G2 #:G3): 
Compiling Top-Level Form: 
[GC threshold exceeded with 10,742,848 bytes in use.  Commencing GC.]
[GC completed with 9,176,864 bytes retained and 1,565,984 bytes freed.]
[GC will next occur when at least 11,176,864 bytes are in use.]
Compiling LAMBDA (#:G5 #:G6 #:G8 #:G9): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G11 #:G12 #:G24 #:G25): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G49 #:G50 #:G53 #:G54): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G57 #:G58 #:G61 #:G62): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G65 #:G66 #:G69 #:G70): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G73 #:G74 #:G77 #:G78): [GC threshold exceeded with 11,177,512 bytes in use.  Commencing GC.]
[GC completed with 9,909,232 bytes retained and 1,268,280 bytes freed.]
[GC will next occur when at least 11,909,232 bytes are in use.]

Compiling Top-Level Form: 
Compiling LAMBDA (#:G81 #:G82 #:G85 #:G86): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G95 #:G96 #:G99 #:G100): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G103 #:G104 #:G107 #:G108): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G111 #:G112 #:G115 #:G116): 
Compiling Top-Level Form: 
[GC threshold exceeded with 11,910,520 bytes in use.  Commencing GC.]
[GC completed with 10,396,488 bytes retained and 1,514,032 bytes freed.]
[GC will next occur when at least 12,396,488 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
[GC threshold exceeded with 12,630,800 bytes in use.  Commencing GC.]
[GC completed with 10,450,640 bytes retained and 2,180,160 bytes freed.]
[GC will next occur when at least 12,450,640 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Byte Compiling Top-Level Form: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
[GC threshold exceeded with 12,566,504 bytes in use.  Commencing GC.]
[GC completed with 10,661,856 bytes retained and 1,904,648 bytes freed.]
[GC will next occur when at least 12,661,856 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
[GC threshold exceeded with 12,761,952 bytes in use.  Commencing GC.]
[GC completed with 9,484,992 bytes retained and 3,276,960 bytes freed.]
[GC will next occur when at least 11,484,992 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Byte Compiling Top-Level Form: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
[GC threshold exceeded with 11,502,392 bytes in use.  Commencing GC.]
[GC completed with 9,890,032 bytes retained and 1,612,360 bytes freed.]
[GC will next occur when at least 11,890,032 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
[GC threshold exceeded with 11,978,224 bytes in use.  Commencing GC.]
[GC completed with 9,967,984 bytes retained and 2,010,240 bytes freed.]
[GC will next occur when at least 11,967,984 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Byte Compiling Top-Level Form: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLUE: 
[GC threshold exceeded with 11,972,936 bytes in use.  Commencing GC.]
[GC completed with 10,173,816 bytes retained and 1,799,120 bytes freed.]
[GC will next occur when at least 12,173,816 bytes are in use.]
Byte Compiling Top-Level Form: 

clue:clue/precom.x86f written.
Compilation finished in 0:00:23.

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:48:51 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/clio.lisp 19 JUL 90 08:00:02 pm

Compiling ASSERT (FIND-PACKAGE "COMMON-LISP"): 
Compiling ASSERT (FIND-PACKAGE "CLUE"): 
Compiling UNLESS (FIND-PACKAGE "CLIO-OPEN"): 

clue:clio/clio.x86f written.
Compilation finished in 0:00:00.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/clio.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:48:51 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/defgeneric.lisp 08 MAR 97 10:57:41 pm

Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 12,175,712 bytes in use.  Commencing GC.]
[GC completed with 10,281,904 bytes retained and 1,893,808 bytes freed.]
[GC will next occur when at least 12,281,904 bytes are in use.]
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 12,286,760 bytes in use.  Commencing GC.]
[GC completed with 10,423,088 bytes retained and 1,863,672 bytes freed.]
[GC will next occur when at least 12,423,088 bytes are in use.]
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:clio/defgeneric.x86f written.
Compilation finished in 0:00:04.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/defgeneric.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:48:55 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/ol-defs.lisp 19 JUL 90 08:09:19 pm

Compiling DEFSTRUCT SCROLLBAR: 
Converted MAKE-SCROLLBAR.
Compiling DEFSTRUCT SCROLLBAR: 
Converted SCROLLBAR-ANCHOR-HEIGHT.
Compiling DEFSTRUCT SCROLLBAR: 
[GC threshold exceeded with 12,424,368 bytes in use.  Commencing GC.]
[GC completed with 10,669,728 bytes retained and 1,754,640 bytes freed.]
[GC will next occur when at least 12,669,728 bytes are in use.]
Converted (SETF SCROLLBAR-ANCHOR-HEIGHT).
Compiling DEFSTRUCT SCROLLBAR: 
Converted SCROLLBAR-ANCHOR-WIDTH.
Compiling DEFSTRUCT SCROLLBAR: 
Converted (SETF SCROLLBAR-ANCHOR-WIDTH).
Compiling DEFSTRUCT SCROLLBAR: 
Converted SCROLLBAR-ARROW-HEIGHT.
Compiling DEFSTRUCT SCROLLBAR: 
Converted (SETF SCROLLBAR-ARROW-HEIGHT).
Compiling DEFSTRUCT SCROLLBAR: 
Byte Compiling Top-Level Form: 
Converted SCROLLBAR-ARROW-WIDTH.
Compiling DEFSTRUCT SCROLLBAR: 
Converted (SETF SCROLLBAR-ARROW-WIDTH).
Compiling DEFSTRUCT SCROLLBAR: 
Converted SCROLLBAR-CABLE-MARGIN.
Compiling DEFSTRUCT SCROLLBAR: 
Converted (SETF SCROLLBAR-CABLE-MARGIN).
Compiling DEFSTRUCT SCROLLBAR: 
Converted SCROLLBAR-CABLE-WIDTH.
Compiling DEFSTRUCT SCROLLBAR: 
Converted (SETF SCROLLBAR-CABLE-WIDTH).
Compiling DEFSTRUCT SCROLLBAR: 
Converted SCROLLBAR-MARGIN.
Compiling DEFSTRUCT SCROLLBAR: 
Converted (SETF SCROLLBAR-MARGIN).
Compiling DEFSTRUCT SCROLLBAR: 
Byte Compiling Top-Level Form: 
Compiling DEFSTRUCT TEXT-CARET: 
Byte Compiling Top-Level Form: 
Converted MAKE-TEXT-CARET.
Compiling DEFSTRUCT TEXT-CARET: 
Converted TEXT-CARET-HEIGHT.
Compiling DEFSTRUCT TEXT-CARET: 
Converted (SETF TEXT-CARET-HEIGHT).
Compiling DEFSTRUCT TEXT-CARET: 
Converted TEXT-CARET-WIDTH.
Compiling DEFSTRUCT TEXT-CARET: 
Converted (SETF TEXT-CARET-WIDTH).
Compiling DEFSTRUCT TEXT-CARET: 
Converted TEXT-CARET-INACTIVE-HEIGHT.
Compiling DEFSTRUCT TEXT-CARET: 
Converted (SETF TEXT-CARET-INACTIVE-HEIGHT).
Compiling DEFSTRUCT TEXT-CARET: 
Byte Compiling Top-Level Form: 
Converted TEXT-CARET-BASELINE-OFFSET.
Compiling DEFSTRUCT TEXT-CARET: 
Converted (SETF TEXT-CARET-BASELINE-OFFSET).
Compiling DEFSTRUCT TEXT-CARET: 
Compiling DEFSTRUCT SLIDEBAR: 
Byte Compiling Top-Level Form: 
Converted MAKE-SLIDEBAR.
Compiling DEFSTRUCT SLIDEBAR: 
Converted SLIDEBAR-DRAG-BOX-WIDTH.
Compiling DEFSTRUCT SLIDEBAR: 
Converted (SETF SLIDEBAR-DRAG-BOX-WIDTH).
Compiling DEFSTRUCT SLIDEBAR: 
Converted SLIDEBAR-GAP.
Compiling DEFSTRUCT SLIDEBAR: 
Converted (SETF SLIDEBAR-GAP).
Compiling DEFSTRUCT SLIDEBAR: 
Converted SLIDEBAR-BAR-THICKNESS.
Compiling DEFSTRUCT SLIDEBAR: 
[GC threshold exceeded with 12,671,912 bytes in use.  Commencing GC.]
[GC completed with 11,016,824 bytes retained and 1,655,088 bytes freed.]
[GC will next occur when at least 13,016,824 bytes are in use.]
Converted (SETF SLIDEBAR-BAR-THICKNESS).
Compiling DEFSTRUCT SLIDEBAR: 
Byte Compiling Top-Level Form: 
Converted SLIDEBAR-BAR-DRAG-OFFSET.
Compiling DEFSTRUCT SLIDEBAR: 
Converted (SETF SLIDEBAR-BAR-DRAG-OFFSET).
Compiling DEFSTRUCT SLIDEBAR: 
Converted SLIDEBAR-TICK-MARK-LENGTH.
Compiling DEFSTRUCT SLIDEBAR: 
Converted (SETF SLIDEBAR-TICK-MARK-LENGTH).
Compiling DEFSTRUCT SLIDEBAR: 
Converted SLIDEBAR-TICK-MARK-OFFSET.
Compiling DEFSTRUCT SLIDEBAR: 
Converted (SETF SLIDEBAR-TICK-MARK-OFFSET).
Compiling DEFSTRUCT SLIDEBAR: 
Converted SLIDEBAR-BAR-TEXT-OFFSET.
Compiling DEFSTRUCT SLIDEBAR: 
Converted (SETF SLIDEBAR-BAR-TEXT-OFFSET).
Compiling DEFSTRUCT SLIDEBAR: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted MAKE-OL-MENU-SPEC.
Compiling DEFSTRUCT OL-MENU-SPEC: 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL OL-MENU-SPEC>: 
Converted MAKE-PUSHPIN-SPEC.
Compiling DEFSTRUCT PUSHPIN-SPEC: 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL PUSHPIN-SPEC>: 
Converted MAKE-MORE-TEXT-ARROW.
Compiling DEFSTRUCT MORE-TEXT-ARROW: 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL MORE-TEXT-ARROW>: 

clue:clio/ol-defs.x86f written.
Compilation finished in 0:00:06.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/ol-defs.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:49:01 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/utility.lisp 19 JUL 90 08:16:11 pm

Converted CONTACT-CURRENT-BACKGROUND.
Compiling DEFUN CONTACT-CURRENT-BACKGROUND: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted |(PCL::FAST-METHOD CONTACT-ANCESTOR (CONTACT))|.
Compiling DEFMETHOD CONTACT-ANCESTOR (CONTACT): 
Converted |(PCL::FAST-METHOD CONTACT-ANCESTOR (SHELL))|.
Compiling DEFMETHOD CONTACT-ANCESTOR (SHELL): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL SHELL>: 
Converted CONTACT-CURRENT-BACKGROUND-PIXEL.
Compiling DEFUN CONTACT-CURRENT-BACKGROUND-PIXEL: 
[GC threshold exceeded with 13,020,968 bytes in use.  Commencing GC.]
[GC completed with 11,316,520 bytes retained and 1,704,448 bytes freed.]
[GC will next occur when at least 13,316,520 bytes are in use.]
Converted PIXEL-POINTS.
Compiling DEFUN PIXEL-POINTS: 
Converted POINT-PIXELS.
Compiling DEFUN POINT-PIXELS: 
Converted PIXEL-INCHES.
Compiling DEFUN PIXEL-INCHES: 
Converted INCH-PIXELS.
Compiling DEFUN INCH-PIXELS: 
Converted PIXEL-MILLIMETERS.
Compiling DEFUN PIXEL-MILLIMETERS: 
Converted MILLIMETER-PIXELS.
Compiling DEFUN MILLIMETER-PIXELS: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD FIND-FONT (T T))|.
Compiling DEFMETHOD FIND-FONT (T T): 
[GC threshold exceeded with 13,317,400 bytes in use.  Commencing GC.]
[GC completed with 11,669,816 bytes retained and 1,647,584 bytes freed.]
[GC will next occur when at least 13,669,816 bytes are in use.]
Converted AREA-OVERLAPS-P.
Compiling DEFUN AREA-OVERLAPS-P: 
Converted STRINGABLE-KEYWORD.
Compiling DEFUN STRINGABLE-KEYWORD: 
Converted STRINGABLE-LABEL.
Compiling DEFUN STRINGABLE-LABEL: 
Converted PIXEL-ROUND.
Compiling DEFMACRO PIXEL-ROUND: 
Byte Compiling Top-Level Form: 

clue:clio/utility.x86f written.
Compilation finished in 0:00:04.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/utility.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:49:05 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/core-mixins.lisp 20 JUL 90 06:04:24 pm

Compiling DEFTYPE SWITCH: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (CORE-SHELL T T))|.
Compiling DEFCONTACT CORE-SHELL: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (CORE-SHELL))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (CORE-SHELL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CONTACT-SCALE (CONTACT))|.
Compiling DEFMETHOD CONTACT-SCALE (CONTACT): 
Converted |(PCL::FAST-METHOD CONTACT-SCALE (ROOT))|.
Compiling DEFMETHOD CONTACT-SCALE (ROOT): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-SCALE) (T ROOT))|.
Compiling DEFMETHOD (SETF CONTACT-SCALE) (T ROOT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CONTACT-SCALE) (T CONTACT))|.
Compiling DEFMETHOD (SETF CONTACT-SCALE) (T CONTACT): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-SCALE) :AFTER (T CORE-SHELL))|.
Compiling DEFMETHOD (SETF CONTACT-SCALE) :AFTER (T CORE-SHELL): 
[GC threshold exceeded with 13,700,848 bytes in use.  Commencing GC.]
[GC completed with 10,534,496 bytes retained and 3,166,352 bytes freed.]
[GC will next occur when at least 12,534,496 bytes are in use.]
Converted |(PCL::FAST-METHOD RESCALE (COMPOSITE))|.
Compiling DEFMETHOD RESCALE (COMPOSITE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD RESCALE (CONTACT))|.
Compiling DEFMETHOD RESCALE (CONTACT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (CORE-WM-SHELL T T))|.
Compiling DEFCONTACT CORE-WM-SHELL: 
Compiling DEFEVENT CORE-WM-SHELL: 
Byte Compiling Top-Level Form: 
Converted UPDATE-PIN-STATE.
Compiling DEFUN UPDATE-PIN-STATE: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CORE-WM-SHELL>: 
Converted |(PCL::FAST-METHOD ANY-ACCEPT-FOCUS-P (CONTACT))|.
Compiling DEFMETHOD ANY-ACCEPT-FOCUS-P (CONTACT): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted |(PCL::FAST-METHOD ANY-ACCEPT-FOCUS-P (COMPOSITE))|.
Compiling DEFMETHOD ANY-ACCEPT-FOCUS-P (COMPOSITE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL COMPOSITE>: 
[GC threshold exceeded with 12,655,904 bytes in use.  Commencing GC.]
[GC completed with 11,065,904 bytes retained and 1,590,000 bytes freed.]
[GC will next occur when at least 13,065,904 bytes are in use.]
Converted |(PCL::FAST-METHOD REALIZE :BEFORE (CORE-WM-SHELL))|.
Compiling DEFMETHOD REALIZE :BEFORE (CORE-WM-SHELL): 
Converted |(PCL::FAST-METHOD REALIZE :AFTER (CORE-WM-SHELL))|.
Compiling DEFMETHOD REALIZE :AFTER (CORE-WM-SHELL): 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (CORE T T))|.
Compiling DEFCONTACT CORE: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (CORE))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (CORE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INHERITED-FOREGROUND (CONTACT))|.
Compiling DEFMETHOD INHERITED-FOREGROUND (CONTACT): 
Converted |(PCL::FAST-METHOD INHERITED-FOREGROUND (SHELL))|.
Compiling DEFMETHOD INHERITED-FOREGROUND (SHELL): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-BORDER) (T CORE))|.
Compiling DEFMETHOD (SETF CONTACT-BORDER) (T CORE): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 13,066,552 bytes in use.  Commencing GC.]
[GC completed with 11,194,144 bytes retained and 1,872,408 bytes freed.]
[GC will next occur when at least 13,194,144 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF CONTACT-FOREGROUND) (T CORE))|.
Compiling DEFMETHOD (SETF CONTACT-FOREGROUND) (T CORE): 
Converted |(PCL::FAST-METHOD CONTACT-FOREGROUND (T))|.
Compiling DEFMETHOD CONTACT-FOREGROUND (T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD FIND-FONT (CORE T))|.
Compiling DEFMETHOD FIND-FONT (CORE T): 
Byte Compiling Top-Level Form: 
Compiling DEFTYPE DEFAULT-HORIZONTAL-SPACE: 
Compiling DEFTYPE DEFAULT-VERTICAL-SPACE: 
Converted |(PCL::FAST-METHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL DEFAULT-HORIZONTAL-SPACE)))|.
Compiling DEFMETHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL #)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL DEFAULT-VERTICAL-SPACE)))|.
Compiling DEFMETHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL #)): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 13,199,648 bytes in use.  Commencing GC.]
[GC completed with 11,642,200 bytes retained and 1,557,448 bytes freed.]
[GC will next occur when at least 13,642,200 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (SPACING-MIXIN T T))|.
Compiling DEFCONTACT SPACING-MIXIN: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-HORIZONTAL-SPACE) (T SPACING-MIXIN))|.
Compiling DEFMETHOD (SETF DISPLAY-HORIZONTAL-SPACE) (T SPACING-MIXIN): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-VERTICAL-SPACE) (T SPACING-MIXIN))|.
Compiling DEFMETHOD (SETF DISPLAY-VERTICAL-SPACE) (T SPACING-MIXIN): 
Byte Compiling Top-Level Form: 

clue:clio/core-mixins.x86f written.
Compilation finished in 0:00:11.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/core-mixins.x86f".
Compiling LAMBDA (#:G1235 #:G1236): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G1239 #:G1240 #:G1241 #:G1242 #:G1244 #:G1245): 
Compiling Top-Level Form: 
[GC threshold exceeded with 13,646,392 bytes in use.  Commencing GC.]
[GC completed with 11,855,056 bytes retained and 1,791,336 bytes freed.]
[GC will next occur when at least 13,855,056 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:49:18 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/gravity.lisp 01 AUG 90 01:20:23 am

Compiling DEFTYPE GRAVITY: 
Byte Compiling Top-Level Form: 
Compiling DEFTYPE DEFAULT-BOTTOM-MARGIN: 
Compiling DEFTYPE DEFAULT-LEFT-MARGIN: 
Compiling DEFTYPE DEFAULT-RIGHT-MARGIN: 
Compiling DEFTYPE DEFAULT-TOP-MARGIN: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL DEFAULT-BOTTOM-MARGIN)))|.
Compiling DEFMETHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL #)): 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted |(PCL::FAST-METHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL DEFAULT-LEFT-MARGIN)))|.
Compiling DEFMETHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL #)): 
Converted |(PCL::FAST-METHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL DEFAULT-RIGHT-MARGIN)))|.
Compiling DEFMETHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL #)): 
Converted |(PCL::FAST-METHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL DEFAULT-TOP-MARGIN)))|.
Compiling DEFMETHOD CONVERT (CONTACT (EQL :DEFAULT) (EQL #)): 
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT GRAVITY-MIXIN: 
Compiling DEFCONTACT GRAVITY-MIXIN: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL GRAVITY-MIXIN) T))|.
Compiling DEFCONTACT GRAVITY-MIXIN: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (GRAVITY-MIXIN T T))|.
Compiling DEFCONTACT GRAVITY-MIXIN: 
[GC threshold exceeded with 13,949,928 bytes in use.  Commencing GC.]
[GC completed with 12,297,256 bytes retained and 1,652,672 bytes freed.]
[GC will next occur when at least 14,297,256 bytes are in use.]
Converted DISPLAY-CLIP-X.
Compiling DEFMACRO DISPLAY-CLIP-X: 
Converted DISPLAY-CLIP-Y.
Compiling DEFMACRO DISPLAY-CLIP-Y: 
Converted DISPLAY-CLIP-WIDTH.
Compiling DEFMACRO DISPLAY-CLIP-WIDTH: 
Converted DISPLAY-CLIP-HEIGHT.
Compiling DEFMACRO DISPLAY-CLIP-HEIGHT: 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clio/gravity.lisp

In:
    FLET ((UPDATE-CLIP-RECTANGLE (CONTACT) (WITH-SLOTS # # #))
       (UPDATE-BIT-GRAVITY (CONTACT) (WITH-SLOTS # # #)))
  (WITH-SLOTS (CLIP-RECTANGLE RIGHT-MARGIN BOTTOM-MARGIN WIDTH HEIGHT)
              (THE GRAVITY-MIXIN CONTACT)
              (SETF (DISPLAY-CLIP-WIDTH CONTACT)
                      (MAX 0 #)
                    (DISPLAY-CLIP-HEIGHT CONTACT) ..))
Warning: Slot WIDTH not defined in class GRAVITY-MIXIN.
Warning: Slot HEIGHT not defined in class GRAVITY-MIXIN.

Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (GRAVITY-MIXIN))|.
Converted |(PCL::FAST-METHOD (SETF DISPLAY-BOTTOM-MARGIN) (T GRAVITY-MIXIN))|.
Converted |(PCL::FAST-METHOD (SETF DISPLAY-RIGHT-MARGIN) (T GRAVITY-MIXIN))|.
Converted |(PCL::FAST-METHOD (SETF DISPLAY-LEFT-MARGIN) (T GRAVITY-MIXIN))|.
Converted |(PCL::FAST-METHOD DISPLAY-LEFT-MARGIN (GRAVITY-MIXIN))|.
Converted |(PCL::FAST-METHOD (SETF DISPLAY-TOP-MARGIN) (T GRAVITY-MIXIN))|.
Converted |(PCL::FAST-METHOD DISPLAY-TOP-MARGIN (GRAVITY-MIXIN))|.
Converted |(PCL::FAST-METHOD RESIZE :AFTER (GRAVITY-MIXIN T T T))|.
Converted |(PCL::FAST-METHOD (SETF DISPLAY-GRAVITY) :AFTER (T GRAVITY-MIXIN))|.
Converted |(PCL::FAST-METHOD REALIZE :AFTER (GRAVITY-MIXIN))|.
Compiling DEFMETHOD REALIZE :AFTER (GRAVITY-MIXIN): 
Compiling DEFMETHOD DISPLAY-LEFT-MARGIN (GRAVITY-MIXIN): 
Compiling DEFMETHOD DISPLAY-TOP-MARGIN (GRAVITY-MIXIN): 
[GC threshold exceeded with 15,257,288 bytes in use.  Commencing GC.]
[GC completed with 8,281,416 bytes retained and 6,975,872 bytes freed.]
[GC will next occur when at least 10,281,416 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF DISPLAY-GRAVITY) (T GRAVITY-MIXIN))|.
Compiling DEFMETHOD (SETF DISPLAY-GRAVITY) (T GRAVITY-MIXIN): 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE :AROUND (GRAVITY-MIXIN))|.
Compiling DEFMETHOD PREFERRED-SIZE :AROUND (GRAVITY-MIXIN): 
Byte Compiling Top-Level Form: 

Compilation unit finished.
  2 warnings


clue:clio/gravity.x86f written.
Compilation finished in 0:00:09.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/gravity.x86f".
Compiling LAMBDA (#:G1254 #:G1255 #:G1256 #:G1257 #:G1259 #:G1260): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G1277 #:G1278): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G1279 #:G1280): 
Compiling Top-Level Form: [GC threshold exceeded with 10,294,696 bytes in use.  Commencing GC.]
[GC completed with 8,799,216 bytes retained and 1,495,480 bytes freed.]
[GC will next occur when at least 10,799,216 bytes are in use.]

Compiling LAMBDA (#:G1281 #:G1282): 
Compiling Top-Level Form: 

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:49:28 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/ol-images.lisp 19 JUL 90 08:09:55 pm

Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 10,805,936 bytes in use.  Commencing GC.]
[GC completed with 8,936,496 bytes retained and 1,869,440 bytes freed.]
[GC will next occur when at least 10,936,496 bytes are in use.]
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:clio/ol-images.x86f written.
Compilation finished in 0:00:03.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/ol-images.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:49:31 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/buttons.lisp 20 JUL 90 06:04:42 pm

Byte Compiling Top-Level Form: 
Converted CREATE-FILLED-IN-CIRCLE-IMAGE.
Compiling DEFUN CREATE-FILLED-IN-CIRCLE-IMAGE: 
[GC threshold exceeded with 11,411,600 bytes in use.  Commencing GC.]
[GC completed with 9,425,616 bytes retained and 1,985,984 bytes freed.]
[GC will next occur when at least 11,425,616 bytes are in use.]
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Byte Compiling Top-Level Form: 
Converted MAKE-BUTTON-DESCRIPTOR.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-BUTTON-ENDS-IMAGE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-BUTTON-ENDS-IMAGE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-CLEARING-STENCIL-IMAGE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-CLEARING-STENCIL-IMAGE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-DEFAULT-RING-IMAGE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-DEFAULT-RING-IMAGE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Byte Compiling Top-Level Form: 
Converted AB-BODY-CLEARING-STENCIL-IMAGE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-BODY-CLEARING-STENCIL-IMAGE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-HORIZONTAL-MENU-MARK-IMAGE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-HORIZONTAL-MENU-MARK-IMAGE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-VERTICAL-MENU-MARK-IMAGE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-VERTICAL-MENU-MARK-IMAGE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-HEIGHT.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-HEIGHT).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Byte Compiling Top-Level Form: 
Converted AB-DEFAULT-RING-HEIGHT.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-DEFAULT-RING-HEIGHT).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-LEFT-BUTTON-END-WIDTH.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-LEFT-BUTTON-END-WIDTH).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-RIGHT-BUTTON-END-WIDTH.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-RIGHT-BUTTON-END-WIDTH).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-TEXT-BASELINE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Byte Compiling Top-Level Form: 
Converted (SETF AB-TEXT-BASELINE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted TB-MIN-RIGHT-MARGIN.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF TB-MIN-RIGHT-MARGIN).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-MENU-MARK-BOTTOM-REL-TO-BASELINE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
[GC threshold exceeded with 11,463,808 bytes in use.  Commencing GC.]
[GC completed with 9,648,896 bytes retained and 1,814,912 bytes freed.]
[GC will next occur when at least 11,648,896 bytes are in use.]
Converted (SETF AB-MENU-MARK-BOTTOM-REL-TO-BASELINE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AB-CLEARING-STENCIL-ARRAY.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AB-CLEARING-STENCIL-ARRAY).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Byte Compiling Top-Level Form: 
Converted AI-DEFAULT-RING-IMAGE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AI-DEFAULT-RING-IMAGE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AI-BODY-CLEARING-STENCIL-IMAGE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AI-BODY-CLEARING-STENCIL-IMAGE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AI-HEIGHT.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AI-HEIGHT).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AI-DEFAULT-RING-HEIGHT.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AI-DEFAULT-RING-HEIGHT).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Byte Compiling Top-Level Form: 
Converted AI-BUTTON-END-WIDTH.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AI-BUTTON-END-WIDTH).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted AI-TEXT-BASELINE.
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Converted (SETF AI-TEXT-BASELINE).
Compiling DEFSTRUCT BUTTON-DESCRIPTOR: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted MAKE-BUTTON-PIXMAPS.
Compiling DEFSTRUCT BUTTON-PIXMAPS: 
Compiling EVAL-WHEN (LOAD EVAL): 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL BUTTON-PIXMAPS>: 
Compiling DEFTYPE LABEL-STRING: 
Converted |(PCL::FAST-METHOD CONVERT (T T (EQL LABEL-STRING)))|.
Compiling DEFMETHOD CONVERT (T T (EQL #)): 
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT BUTTON: 
Compiling DEFCONTACT BUTTON: 
Compiling DEFCONTACT BUTTON: 
[GC threshold exceeded with 11,654,088 bytes in use.  Commencing GC.]
[GC completed with 10,082,104 bytes retained and 1,571,984 bytes freed.]
[GC will next occur when at least 12,082,104 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL BUTTON) T))|.
Compiling DEFCONTACT BUTTON: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (BUTTON T T))|.
Compiling DEFCONTACT BUTTON: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 14,560,520 bytes in use.  Commencing GC.]
[GC completed with 9,992,032 bytes retained and 4,568,488 bytes freed.]
[GC will next occur when at least 11,992,032 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF BUTTON-LABEL) (T BUTTON))|.
Compiling DEFMETHOD (SETF BUTTON-LABEL) (T BUTTON): 
Compiling Creation Form for #<KERNEL::CLASS-CELL BUTTON>: 
Converted |(PCL::FAST-METHOD (SETF BUTTON-FONT) (T BUTTON))|.
Compiling DEFMETHOD (SETF BUTTON-FONT) (T BUTTON): 
Converted |(PCL::FAST-METHOD (SETF BUTTON-LABEL-ALIGNMENT) :BEFORE (T BUTTON))|.
Compiling DEFMETHOD (SETF BUTTON-LABEL-ALIGNMENT) :BEFORE (T BUTTON): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (BUTTON))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (BUTTON): 
Converted |(PCL::FAST-METHOD RESCALE :BEFORE (BUTTON))|.
Compiling DEFMETHOD RESCALE :BEFORE (BUTTON): 
Converted |(PCL::FAST-METHOD (SETF CHOICE-ITEM-HIGHLIGHT-DEFAULT-P) (T BUTTON))|.
Compiling DEFMETHOD (SETF CHOICE-ITEM-HIGHLIGHT-DEFAULT-P) (T BUTTON): 
[GC threshold exceeded with 12,062,432 bytes in use.  Commencing GC.]
[GC completed with 10,336,304 bytes retained and 1,726,128 bytes freed.]
[GC will next occur when at least 12,336,304 bytes are in use.]
Converted |(PCL::FAST-METHOD CHOICE-ITEM-FONT (BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-FONT (BUTTON): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CHOICE-ITEM-FONT) (T BUTTON))|.
Compiling DEFMETHOD (SETF CHOICE-ITEM-FONT) (T BUTTON): 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-LABEL (BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-LABEL (BUTTON): 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-HIGHLIGHT-SELECTED-P (BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-HIGHLIGHT-SELECTED-P (BUTTON): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CHOICE-ITEM-HIGHLIGHT-SELECTED-P) (T BUTTON))|.
Compiling DEFMETHOD (SETF CHOICE-ITEM-HIGHLIGHT-SELECTED-P) (T BUTTON): 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-SELECTED-P (BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-SELECTED-P (BUTTON): 
Converted |(PCL::FAST-METHOD (SETF CHOICE-ITEM-SELECTED-P) (T BUTTON))|.
Compiling DEFMETHOD (SETF CHOICE-ITEM-SELECTED-P) (T BUTTON): 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT BUTTON: 
Compiling DEFEVENT BUTTON: 
Converted |(PCL::FAST-METHOD REDISPLAY-BUTTON (BUTTON))|.
Compiling DEFMETHOD REDISPLAY-BUTTON (BUTTON): 
Converted |(PCL::FAST-METHOD DISPLAY (BUTTON))|.
Compiling DEFMETHOD DISPLAY (BUTTON): 
Converted GET-BUTTON-PIXMAPS.
Compiling DEFUN GET-BUTTON-PIXMAPS: 
[GC threshold exceeded with 12,362,552 bytes in use.  Commencing GC.]
[GC completed with 10,505,808 bytes retained and 1,856,744 bytes freed.]
[GC will next occur when at least 12,505,808 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL TOGGLE-BUTTON) T))|.
Compiling DEFCONTACT TOGGLE-BUTTON: 
[GC threshold exceeded with 12,506,456 bytes in use.  Commencing GC.]
[GC completed with 10,903,384 bytes retained and 1,603,072 bytes freed.]
[GC will next occur when at least 12,903,384 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (TOGGLE-BUTTON T T))|.
Compiling DEFCONTACT TOGGLE-BUTTON: 
[GC threshold exceeded with 14,372,680 bytes in use.  Commencing GC.]
[GC completed with 11,233,040 bytes retained and 3,139,640 bytes freed.]
[GC will next occur when at least 13,233,040 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted TOGGLE-BUTTON-RELEASE-MENU.
Compiling DEFUN TOGGLE-BUTTON-RELEASE-MENU: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL TOGGLE-BUTTON>: 
Converted TOGGLE-BUTTON-LEAVE-WITH-MENU-PRESSED.
Compiling DEFUN TOGGLE-BUTTON-LEAVE-WITH-MENU-PRESSED: 
Converted |(PCL::FAST-METHOD TOGGLE-BUTTON-ENTER-WITH-MENU-PRESSED (TOGGLE-BUTTON))|.
Compiling DEFMETHOD TOGGLE-BUTTON-ENTER-WITH-MENU-PRESSED (TOGGLE-BUTTON): 
Compiling DEFEVENT TOGGLE-BUTTON: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT TOGGLE-BUTTON: 
Compiling DEFEVENT TOGGLE-BUTTON: 
Compiling DEFEVENT TOGGLE-BUTTON: 
Compiling DEFEVENT TOGGLE-BUTTON: 
Converted TB-MAYBE-RELEASE-SELECT.
Compiling DEFUN TB-MAYBE-RELEASE-SELECT: 
Converted MAKE-TOGGLE-BUTTON.
Compiling DEFUN MAKE-TOGGLE-BUTTON: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (TOGGLE-BUTTON))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (TOGGLE-BUTTON): 
Converted |(PCL::FAST-METHOD BUTTON-SWITCH (TOGGLE-BUTTON))|.
Compiling DEFMETHOD BUTTON-SWITCH (TOGGLE-BUTTON): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF BUTTON-SWITCH) (T TOGGLE-BUTTON))|.
Compiling DEFMETHOD (SETF BUTTON-SWITCH) (T TOGGLE-BUTTON): 
Converted |(PCL::FAST-METHOD LEAVE (TOGGLE-BUTTON))|.
Compiling DEFMETHOD LEAVE (TOGGLE-BUTTON): 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (TOGGLE-BUTTON))|.
Compiling DEFMETHOD PREFERRED-SIZE (TOGGLE-BUTTON): 
[GC threshold exceeded with 13,557,328 bytes in use.  Commencing GC.]
[GC completed with 11,734,640 bytes retained and 1,822,688 bytes freed.]
[GC will next occur when at least 13,734,640 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-PRESS (TOGGLE-BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-PRESS (TOGGLE-BUTTON): 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-RELEASE (TOGGLE-BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-RELEASE (TOGGLE-BUTTON): 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-LEAVE (TOGGLE-BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-LEAVE (TOGGLE-BUTTON): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PRESS-SELECT (TOGGLE-BUTTON))|.
Compiling DEFMETHOD PRESS-SELECT (TOGGLE-BUTTON): 
Converted |(PCL::FAST-METHOD RELEASE-SELECT (TOGGLE-BUTTON))|.
Compiling DEFMETHOD RELEASE-SELECT (TOGGLE-BUTTON): 
[GC threshold exceeded with 13,878,800 bytes in use.  Commencing GC.]
[GC completed with 11,972,720 bytes retained and 1,906,080 bytes freed.]
[GC will next occur when at least 13,972,720 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF CHOICE-ITEM-SELECTED-P) (T TOGGLE-BUTTON))|.
Compiling DEFMETHOD (SETF CHOICE-ITEM-SELECTED-P) (T TOGGLE-BUTTON): 
Byte Compiling Top-Level Form: 
Converted DISPLAY-TOGGLE-BUTTON.
Compiling DEFUN DISPLAY-TOGGLE-BUTTON: 
[GC threshold exceeded with 14,611,960 bytes in use.  Commencing GC.]
[GC completed with 12,300,976 bytes retained and 2,310,984 bytes freed.]
[GC will next occur when at least 14,300,976 bytes are in use.]
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-HIGHLIGHTED (TOGGLE-BUTTON))|.
Compiling DEFMETHOD DISPLAY-BUTTON-HIGHLIGHTED (TOGGLE-BUTTON): 
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-UNHIGHLIGHTED (TOGGLE-BUTTON))|.
Compiling DEFMETHOD DISPLAY-BUTTON-UNHIGHLIGHTED (TOGGLE-BUTTON): 
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-LABEL (TOGGLE-BUTTON T))|.
Compiling DEFMETHOD DISPLAY-BUTTON-LABEL (TOGGLE-BUTTON T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD LABEL-WIDTH (BUTTON STRING))|.
Compiling DEFMETHOD LABEL-WIDTH (BUTTON STRING): 
Converted |(PCL::FAST-METHOD LABEL-WIDTH (BUTTON PIXMAP))|.
Compiling DEFMETHOD LABEL-WIDTH (BUTTON PIXMAP): 
Byte Compiling Top-Level Form: 
Converted DISPLAY-ANY-BUTTONS-LABEL.
Compiling DEFUN DISPLAY-ANY-BUTTONS-LABEL: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PIXMAP>: 
[GC threshold exceeded with 14,723,456 bytes in use.  Commencing GC.]
[GC completed with 9,980,720 bytes retained and 4,742,736 bytes freed.]
[GC will next occur when at least 11,980,720 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL ACTION-BUTTON) T))|.
Compiling DEFCONTACT ACTION-BUTTON: 
[GC threshold exceeded with 11,985,592 bytes in use.  Commencing GC.]
[GC completed with 10,434,448 bytes retained and 1,551,144 bytes freed.]
[GC will next occur when at least 12,434,448 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (ACTION-BUTTON T T))|.
Compiling DEFCONTACT ACTION-BUTTON: 
[GC threshold exceeded with 13,705,344 bytes in use.  Commencing GC.]
[GC completed with 10,689,976 bytes retained and 3,015,368 bytes freed.]
[GC will next occur when at least 12,689,976 bytes are in use.]
Converted MAKE-ACTION-BUTTON.
Compiling DEFUN MAKE-ACTION-BUTTON: 
Converted CIRCULAR-LIST-OF-ONE-ITEM.
Compiling DEFUN CIRCULAR-LIST-OF-ONE-ITEM: 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-PRESS (ACTION-BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-PRESS (ACTION-BUTTON): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL ACTION-BUTTON>: 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-RELEASE (ACTION-BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-RELEASE (ACTION-BUTTON): 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-LEAVE (ACTION-BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-LEAVE (ACTION-BUTTON): 
[GC threshold exceeded with 12,696,392 bytes in use.  Commencing GC.]
[GC completed with 11,079,592 bytes retained and 1,616,800 bytes freed.]
[GC will next occur when at least 13,079,592 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PRESS-SELECT (ACTION-BUTTON))|.
Compiling DEFMETHOD PRESS-SELECT (ACTION-BUTTON): 
Converted |(PCL::FAST-METHOD RELEASE-SELECT (ACTION-BUTTON))|.
Compiling DEFMETHOD RELEASE-SELECT (ACTION-BUTTON): 
Converted |(PCL::FAST-METHOD (SETF CHOICE-ITEM-SELECTED-P) (T ACTION-BUTTON))|.
Compiling DEFMETHOD (SETF CHOICE-ITEM-SELECTED-P) (T ACTION-BUTTON): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD LEAVE (ACTION-BUTTON))|.
Compiling DEFMETHOD LEAVE (ACTION-BUTTON): 
Compiling DEFEVENT ACTION-BUTTON: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD REDISPLAY-BUTTON (ACTION-BUTTON))|.
Compiling DEFMETHOD REDISPLAY-BUTTON (ACTION-BUTTON): 
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-UNHIGHLIGHTED (ACTION-BUTTON))|.
Compiling DEFMETHOD DISPLAY-BUTTON-UNHIGHLIGHTED (ACTION-BUTTON): 
[GC threshold exceeded with 13,717,160 bytes in use.  Commencing GC.]
[GC completed with 11,350,376 bytes retained and 2,366,784 bytes freed.]
[GC will next occur when at least 13,350,376 bytes are in use.]
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-HIGHLIGHTED (ACTION-BUTTON))|.
Compiling DEFMETHOD DISPLAY-BUTTON-HIGHLIGHTED (ACTION-BUTTON): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISPLAY-ACTION-BUTTON-BUSY (ACTION-BUTTON))|.
Compiling DEFMETHOD DISPLAY-ACTION-BUTTON-BUSY (ACTION-BUTTON): 
Converted |(PCL::FAST-METHOD DISPLAY-DEFAULT-INDICATOR (ACTION-BUTTON T))|.
Compiling DEFMETHOD DISPLAY-DEFAULT-INDICATOR (ACTION-BUTTON T): 
[GC threshold exceeded with 15,013,048 bytes in use.  Commencing GC.]
[GC completed with 11,892,208 bytes retained and 3,120,840 bytes freed.]
[GC will next occur when at least 13,892,208 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD JUST-CLEAR-BODY-OF-BUTTON (ACTION-BUTTON T))|.
Compiling DEFMETHOD JUST-CLEAR-BODY-OF-BUTTON (ACTION-BUTTON T): 
[GC threshold exceeded with 15,071,760 bytes in use.  Commencing GC.]
[GC completed with 11,293,824 bytes retained and 3,777,936 bytes freed.]
[GC will next occur when at least 13,293,824 bytes are in use.]
Converted |(PCL::FAST-METHOD CLEAR-BUTTON-AND-DISPLAY-BORDER (ACTION-BUTTON T))|.
Compiling DEFMETHOD CLEAR-BUTTON-AND-DISPLAY-BORDER (ACTION-BUTTON T): 
[GC threshold exceeded with 19,268,848 bytes in use.  Commencing GC.]
[GC completed with 11,995,616 bytes retained and 7,273,232 bytes freed.]
[GC will next occur when at least 13,995,616 bytes are in use.]
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-LABEL (ACTION-BUTTON T))|.
Compiling DEFMETHOD DISPLAY-BUTTON-LABEL (ACTION-BUTTON T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (ACTION-BUTTON))|.
Compiling DEFMETHOD PREFERRED-SIZE (ACTION-BUTTON): 
Converted |(PCL::FAST-METHOD INSIDE-CONTACT-P (ACTION-BUTTON T T))|.
Compiling DEFMETHOD INSIDE-CONTACT-P (ACTION-BUTTON T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL ACTION-ITEM) T))|.
Compiling DEFCONTACT ACTION-ITEM: 
[GC threshold exceeded with 14,844,144 bytes in use.  Commencing GC.]
[GC completed with 12,031,232 bytes retained and 2,812,912 bytes freed.]
[GC will next occur when at least 14,031,232 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (ACTION-ITEM T T))|.
Compiling DEFCONTACT ACTION-ITEM: 
[GC threshold exceeded with 15,684,848 bytes in use.  Commencing GC.]
[GC completed with 12,659,472 bytes retained and 3,025,376 bytes freed.]
[GC will next occur when at least 14,659,472 bytes are in use.]
Converted ACTION-ITEM-RELEASE-MENU.
Compiling DEFUN ACTION-ITEM-RELEASE-MENU: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL ACTION-ITEM>: 
Converted ACTION-ITEM-LEAVE-WITH-MENU-PRESSED.
Compiling DEFUN ACTION-ITEM-LEAVE-WITH-MENU-PRESSED: 
Converted ACTION-ITEM-ENTER-WITH-MENU-PRESSED.
Compiling DEFUN ACTION-ITEM-ENTER-WITH-MENU-PRESSED: 
Compiling DEFEVENT ACTION-ITEM: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT ACTION-ITEM: 
Compiling DEFEVENT ACTION-ITEM: 
Compiling DEFEVENT ACTION-ITEM: 
Converted MAKE-ACTION-ITEM.
Compiling DEFUN MAKE-ACTION-ITEM: 
Converted |(PCL::FAST-METHOD INSIDE-CONTACT-P (ACTION-ITEM T T))|.
Compiling DEFMETHOD INSIDE-CONTACT-P (ACTION-ITEM T T): 
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-LABEL (ACTION-ITEM T))|.
Compiling DEFMETHOD DISPLAY-BUTTON-LABEL (ACTION-ITEM T): 
[GC threshold exceeded with 15,306,632 bytes in use.  Commencing GC.]
[GC completed with 12,682,040 bytes retained and 2,624,592 bytes freed.]
[GC will next occur when at least 14,682,040 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISPLAY-DEFAULT-INDICATOR (ACTION-ITEM T))|.
Compiling DEFMETHOD DISPLAY-DEFAULT-INDICATOR (ACTION-ITEM T) => DEFAULT-RING-HEIGHT (AI-DEFAULT-RING-HEIGHT DIMS): 
[GC threshold exceeded with 14,687,208 bytes in use.  Commencing GC.]
[GC completed with 12,928,472 bytes retained and 1,758,736 bytes freed.]
[GC will next occur when at least 14,928,472 bytes are in use.]
Converted |(PCL::FAST-METHOD JUST-CLEAR-BODY-OF-BUTTON (ACTION-ITEM T))|.
Compiling DEFMETHOD JUST-CLEAR-BODY-OF-BUTTON (ACTION-ITEM T) => DEFAULT-RING-HEIGHT (AI-DEFAULT-RING-HEIGHT DIMS): 
[GC threshold exceeded with 15,808,496 bytes in use.  Commencing GC.]
[GC completed with 13,082,880 bytes retained and 2,725,616 bytes freed.]
[GC will next occur when at least 15,082,880 bytes are in use.]
Converted |(PCL::FAST-METHOD CLEAR-BUTTON-AND-DISPLAY-BORDER (ACTION-ITEM T))|.
Compiling DEFMETHOD CLEAR-BUTTON-AND-DISPLAY-BORDER (ACTION-ITEM T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (ACTION-ITEM))|.
Compiling DEFMETHOD PREFERRED-SIZE (ACTION-ITEM): 
Byte Compiling Top-Level Form: 

clue:clio/buttons.x86f written.
Compilation finished in 0:01:22.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/buttons.x86f".
[GC threshold exceeded with 15,084,160 bytes in use.  Commencing GC.]
[GC completed with 13,430,160 bytes retained and 1,654,000 bytes freed.]
[GC will next occur when at least 15,430,160 bytes are in use.]
Compiling LAMBDA (#:G1314 #:G1315 #:G1327 #:G1328): 
Compiling Top-Level Form: 
[GC threshold exceeded with 15,430,784 bytes in use.  Commencing GC.]
[GC completed with 8,227,920 bytes retained and 7,202,864 bytes freed.]
[GC will next occur when at least 10,227,920 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:50:59 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/form.lisp 20 JUL 90 06:04:09 pm

Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL FORM) T))|.
Compiling DEFCONTACT FORM: 
[GC threshold exceeded with 10,878,568 bytes in use.  Commencing GC.]
[GC completed with 8,717,720 bytes retained and 2,160,848 bytes freed.]
[GC will next occur when at least 10,717,720 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (FORM T T))|.
Compiling DEFCONTACT FORM: 
[GC threshold exceeded with 11,766,456 bytes in use.  Commencing GC.]
[GC completed with 9,003,216 bytes retained and 2,763,240 bytes freed.]
[GC will next occur when at least 11,003,216 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-CONSTRAINTS (FORM T T))|.
Compiling DEFCONTACT FORM: 
Converted MAKE-FORM.
Compiling DEFUN MAKE-FORM: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD LINK-FROM (LINK))|.
Compiling DEFMETHOD LINK-FROM (LINK): 
Compiling Creation Form for #<KERNEL::CLASS-CELL LINK>: 
Converted |(PCL::FAST-METHOD LINK-TO (LINK))|.
Compiling DEFMETHOD LINK-TO (LINK): 
Converted |(PCL::FAST-METHOD (SETF LINK-ATTACH-FROM) (T LINK))|.
Compiling DEFMETHOD (SETF LINK-ATTACH-FROM) (T LINK): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF LINK-ATTACH-TO) (T LINK))|.
Compiling DEFMETHOD (SETF LINK-ATTACH-TO) (T LINK): 
Converted |(PCL::FAST-METHOD (SETF LINK-LENGTH) (T LINK))|.
Compiling DEFMETHOD (SETF LINK-LENGTH) (T LINK): 
[GC threshold exceeded with 11,099,064 bytes in use.  Commencing GC.]
[GC completed with 9,474,392 bytes retained and 1,624,672 bytes freed.]
[GC will next occur when at least 11,474,392 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF LINK-MAXIMUM) (T LINK))|.
Compiling DEFMETHOD (SETF LINK-MAXIMUM) (T LINK): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF LINK-MINIMUM) (T LINK))|.
Compiling DEFMETHOD (SETF LINK-MINIMUM) (T LINK): 
Converted LINK-TENTATIVE-LENGTH.
Compiling DEFMACRO LINK-TENTATIVE-LENGTH: 
Compiling DEFSETF LINK-TENTATIVE-LENGTH: 
Converted LINK-UPDATE.
Compiling DEFUN LINK-UPDATE: 
Converted LINK-UPDATE-CHANGE-LAYOUT.
Compiling DEFUN LINK-UPDATE-CHANGE-LAYOUT: 
Converted FIND-LINK.
Compiling DEFUN FIND-LINK: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
[GC threshold exceeded with 11,480,136 bytes in use.  Commencing GC.]
[GC completed with 9,538,672 bytes retained and 1,941,464 bytes freed.]
[GC will next occur when at least 11,538,672 bytes are in use.]
Converted |(PCL::FAST-METHOD DESTROY (LINK))|.
Compiling DEFMETHOD DESTROY (LINK): 
Converted LINK-EQUAL.
Compiling DEFUN LINK-EQUAL: 
Compiling Load Time Value of (PCL::GET-MAKE-INSTANCE-FUNCTION-SYMBOL '(LINK # NIL)): 
Converted MAKE-HORIZONTAL-LINK.
Compiling DEFUN MAKE-HORIZONTAL-LINK: 
[GC threshold exceeded with 11,916,528 bytes in use.  Commencing GC.]
[GC completed with 10,024,472 bytes retained and 1,892,056 bytes freed.]
[GC will next occur when at least 12,024,472 bytes are in use.]
Compiling Load Time Value of (PCL::GET-MAKE-INSTANCE-FUNCTION-SYMBOL '(LINK # NIL)): 
Converted MAKE-VERTICAL-LINK.
Compiling DEFUN MAKE-VERTICAL-LINK: 
Converted FORM-MAX-HEIGHT.
Compiling DEFUN FORM-MAX-HEIGHT: 
Converted SETF-FORM-MAX-HEIGHT.
Compiling DEFUN SETF-FORM-MAX-HEIGHT: 
Byte Compiling Top-Level Form: 
Converted FORM-MAX-WIDTH.
Compiling DEFUN FORM-MAX-WIDTH: 
Converted SETF-FORM-MAX-WIDTH.
Compiling DEFUN SETF-FORM-MAX-WIDTH: 
Converted FORM-MIN-HEIGHT.
Compiling DEFUN FORM-MIN-HEIGHT: 
Converted SETF-FORM-MIN-HEIGHT.
Compiling DEFUN SETF-FORM-MIN-HEIGHT: 
Converted FORM-MIN-WIDTH.
Compiling DEFUN FORM-MIN-WIDTH: 
Converted SETF-FORM-MIN-WIDTH.
Compiling DEFUN SETF-FORM-MIN-WIDTH: 
Converted FORM-TICK.
Compiling DEFMACRO FORM-TICK: 
[GC threshold exceeded with 12,074,696 bytes in use.  Commencing GC.]
[GC completed with 10,017,520 bytes retained and 2,057,176 bytes freed.]
[GC will next occur when at least 12,017,520 bytes are in use.]
Converted CONTACT-TENTATIVE-WIDTH.
Compiling DEFMACRO CONTACT-TENTATIVE-WIDTH: 
Byte Compiling Top-Level Form: 
Compiling DEFSETF CONTACT-TENTATIVE-WIDTH: 
Converted CONTACT-TENTATIVE-HEIGHT.
Compiling DEFMACRO CONTACT-TENTATIVE-HEIGHT: 
Compiling DEFSETF CONTACT-TENTATIVE-HEIGHT: 
Converted CONTACT-TENTATIVE-X.
Compiling DEFMACRO CONTACT-TENTATIVE-X: 
Compiling DEFSETF CONTACT-TENTATIVE-X: 
Converted CONTACT-TENTATIVE-Y.
Compiling DEFMACRO CONTACT-TENTATIVE-Y: 
Compiling DEFSETF CONTACT-TENTATIVE-Y: 
Converted FORM-PROJECTED-WIDTH.
Compiling DEFMACRO FORM-PROJECTED-WIDTH: 
Compiling DEFSETF FORM-PROJECTED-WIDTH: 
Converted FORM-PROJECTED-HEIGHT.
Compiling DEFMACRO FORM-PROJECTED-HEIGHT: 
Compiling DEFSETF FORM-PROJECTED-HEIGHT: 
Byte Compiling Top-Level Form: 
Converted FIND-FORM-IDEAL-WIDTH.
Compiling DEFUN FIND-FORM-IDEAL-WIDTH: 
Converted FIND-PATH-IDEAL-WIDTH.
Compiling DEFUN FIND-PATH-IDEAL-WIDTH: 
Converted LINK-HORIZONTAL-ATTACH-TO-CORRECTION.
Compiling DEFUN LINK-HORIZONTAL-ATTACH-TO-CORRECTION: 
Converted LINK-HORIZONTAL-ATTACH-FROM-CORRECTION.
Compiling DEFUN LINK-HORIZONTAL-ATTACH-FROM-CORRECTION: 
Converted FIND-FORM-IDEAL-HEIGHT.
Compiling DEFUN FIND-FORM-IDEAL-HEIGHT: 
Converted FIND-PATH-IDEAL-HEIGHT.
Compiling DEFUN FIND-PATH-IDEAL-HEIGHT: 
[GC threshold exceeded with 12,104,704 bytes in use.  Commencing GC.]
[GC completed with 10,413,448 bytes retained and 1,691,256 bytes freed.]
[GC will next occur when at least 12,413,448 bytes are in use.]
Converted LINK-VERTICAL-ATTACH-TO-CORRECTION.
Compiling DEFUN LINK-VERTICAL-ATTACH-TO-CORRECTION: 
Converted LINK-VERTICAL-ATTACH-FROM-CORRECTION.
Compiling DEFUN LINK-VERTICAL-ATTACH-FROM-CORRECTION: 
Converted FIND-FORM-HORIZONTAL-STRETCH.
Compiling DEFUN FIND-FORM-HORIZONTAL-STRETCH: 
Converted FIND-PATH-HORIZONTAL-STRETCH.
Compiling DEFUN FIND-PATH-HORIZONTAL-STRETCH: 
Converted FIND-FORM-VERTICAL-STRETCH.
Compiling DEFUN FIND-FORM-VERTICAL-STRETCH: 
Byte Compiling Top-Level Form: 
Converted FIND-PATH-VERTICAL-STRETCH.
Compiling DEFUN FIND-PATH-VERTICAL-STRETCH: 
Converted FIND-FORM-HORIZONTAL-SHRINK.
Compiling DEFUN FIND-FORM-HORIZONTAL-SHRINK: 
Converted FIND-PATH-HORIZONTAL-SHRINK.
Compiling DEFUN FIND-PATH-HORIZONTAL-SHRINK: 
Converted FIND-FORM-VERTICAL-SHRINK.
Compiling DEFUN FIND-FORM-VERTICAL-SHRINK: 
Converted FIND-PATH-VERTICAL-SHRINK.
Compiling DEFUN FIND-PATH-VERTICAL-SHRINK: 
Converted FIND-FORM-TENTATIVE-WIDTH.
Compiling DEFUN FIND-FORM-TENTATIVE-WIDTH: 
[GC threshold exceeded with 12,457,024 bytes in use.  Commencing GC.]
[GC completed with 9,266,840 bytes retained and 3,190,184 bytes freed.]
[GC will next occur when at least 11,266,840 bytes are in use.]
Converted FIND-PATH-TENTATIVE-WIDTH.
Compiling DEFUN FIND-PATH-TENTATIVE-WIDTH: 
Converted LINK-TENTATIVE-HORIZONTAL-ATTACH-TO-CORRECTION.
Compiling DEFUN LINK-TENTATIVE-HORIZONTAL-ATTACH-TO-CORRECTION: 
Converted LINK-TENTATIVE-HORIZONTAL-ATTACH-FROM-CORRECTION.
Compiling DEFUN LINK-TENTATIVE-HORIZONTAL-ATTACH-FROM-CORRECTION: 
Converted FIND-FORM-TENTATIVE-HEIGHT.
Compiling DEFUN FIND-FORM-TENTATIVE-HEIGHT: 
Converted FIND-PATH-TENTATIVE-HEIGHT.
Compiling DEFUN FIND-PATH-TENTATIVE-HEIGHT: 
Byte Compiling Top-Level Form: 
Converted LINK-TENTATIVE-VERTICAL-ATTACH-TO-CORRECTION.
Compiling DEFUN LINK-TENTATIVE-VERTICAL-ATTACH-TO-CORRECTION: 
Converted LINK-TENTATIVE-VERTICAL-ATTACH-FROM-CORRECTION.
Compiling DEFUN LINK-TENTATIVE-VERTICAL-ATTACH-FROM-CORRECTION: 
Converted LENGTH<=.
Compiling DEFUN LENGTH<=: 
Converted LENGTH>.
Compiling DEFUN LENGTH>: 
Converted LENGTH-MIN.
Compiling DEFUN LENGTH-MIN: 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (FORM))|.
Compiling DEFMETHOD PREFERRED-SIZE (FORM): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL FORM>: 
[GC threshold exceeded with 11,267,704 bytes in use.  Commencing GC.]
[GC completed with 9,693,920 bytes retained and 1,573,784 bytes freed.]
[GC will next occur when at least 11,693,920 bytes are in use.]
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (FORM))|.
Compiling DEFMETHOD CHANGE-LAYOUT (FORM): 
Converted RESOLVE-INITIAL-LINKS.
Compiling DEFUN RESOLVE-INITIAL-LINKS: 
Converted ADD-IMPLICIT-LINKS-IF-NEEDED.
Compiling DEFUN ADD-IMPLICIT-LINKS-IF-NEEDED: 
Converted CHECK-FOR-CIRCULAR-LINKS.
Compiling DEFUN CHECK-FOR-CIRCULAR-LINKS: 
Converted SET-INITIAL-CHILD-SIZES.
Compiling DEFUN SET-INITIAL-CHILD-SIZES: 
[GC threshold exceeded with 11,849,296 bytes in use.  Commencing GC.]
[GC completed with 9,793,792 bytes retained and 2,055,504 bytes freed.]
[GC will next occur when at least 11,793,792 bytes are in use.]
Converted |(PCL::FAST-METHOD RESIZE :AROUND (FORM T T T))|.
Compiling DEFMETHOD RESIZE :AROUND (FORM T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (FORM T T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (FORM T T T T T T): 
[GC threshold exceeded with 14,274,200 bytes in use.  Commencing GC.]
[GC completed with 10,573,568 bytes retained and 3,700,632 bytes freed.]
[GC will next occur when at least 12,573,568 bytes are in use.]
Converted FIND-DISTURBED-LINKS.
Compiling DEFUN FIND-DISTURBED-LINKS: 
Converted FIND-HORIZONTAL-DISTURBED-LINKS.
Compiling DEFUN FIND-HORIZONTAL-DISTURBED-LINKS: 
Converted FIND-VERTICAL-DISTURBED-LINKS.
Compiling DEFUN FIND-VERTICAL-DISTURBED-LINKS: 
Converted PLACE-AND-SIZE-CHILDREN.
Compiling DEFUN PLACE-AND-SIZE-CHILDREN: 
Converted CLEAR-TENTATIVE-VALUES.
Compiling DEFUN CLEAR-TENTATIVE-VALUES: 
Converted PLACE-AND-SIZE-CHILDREN-INTERNAL.
Compiling DEFUN PLACE-AND-SIZE-CHILDREN-INTERNAL: 
Byte Compiling Top-Level Form: 
Converted REALLY-CHANGE-THE-CHILDREN.
Compiling DEFUN REALLY-CHANGE-THE-CHILDREN: 
[GC threshold exceeded with 12,717,784 bytes in use.  Commencing GC.]
[GC completed with 10,540,648 bytes retained and 2,177,136 bytes freed.]
[GC will next occur when at least 12,540,648 bytes are in use.]
Converted ADJUST-SIZES-TO-FIT.
Compiling DEFUN ADJUST-SIZES-TO-FIT: 
Converted RESIZE-CHILDREN-HORIZONTAL.
Compiling DEFUN RESIZE-CHILDREN-HORIZONTAL: 
Converted RESIZE-CHILDREN-VERTICAL.
Compiling DEFUN RESIZE-CHILDREN-VERTICAL: 
Converted PLACE-CHILDREN-FROM-FORM-HORIZONTAL.
Compiling DEFUN PLACE-CHILDREN-FROM-FORM-HORIZONTAL: 
[GC threshold exceeded with 12,885,312 bytes in use.  Commencing GC.]
[GC completed with 10,864,112 bytes retained and 2,021,200 bytes freed.]
[GC will next occur when at least 12,864,112 bytes are in use.]
Converted PLACE-CHILDREN-FROM-LINKS-HORIZONTAL.
Compiling DEFUN PLACE-CHILDREN-FROM-LINKS-HORIZONTAL: 
Converted PLACE-CHILDREN-FROM-FORM-VERTICAL.
Compiling DEFUN PLACE-CHILDREN-FROM-FORM-VERTICAL: 
Converted PLACE-CHILDREN-FROM-LINKS-VERTICAL.
Compiling DEFUN PLACE-CHILDREN-FROM-LINKS-VERTICAL: 
Converted RESIZE-BY-PATH-HORIZONTAL.
Compiling DEFUN RESIZE-BY-PATH-HORIZONTAL: 
[GC threshold exceeded with 12,911,232 bytes in use.  Commencing GC.]
[GC completed with 10,928,808 bytes retained and 1,982,424 bytes freed.]
[GC will next occur when at least 12,928,808 bytes are in use.]
Converted RESIZE-BY-PATH-VERTICAL.
Compiling DEFUN RESIZE-BY-PATH-VERTICAL: 
Byte Compiling Top-Level Form: 

clue:clio/form.x86f written.
Compilation finished in 0:00:47.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/form.x86f".
[GC threshold exceeded with 12,929,624 bytes in use.  Commencing GC.]
[GC completed with 11,364,712 bytes retained and 1,564,912 bytes freed.]
[GC will next occur when at least 13,364,712 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:51:50 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/table.lisp 08 MAR 97 10:50:46 pm

Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL TABLE) T))|.
Compiling DEFCONTACT TABLE: 
[GC threshold exceeded with 14,830,440 bytes in use.  Commencing GC.]
[GC completed with 9,730,592 bytes retained and 5,099,848 bytes freed.]
[GC will next occur when at least 11,730,592 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (TABLE T T))|.
Compiling DEFCONTACT TABLE: 
[GC threshold exceeded with 15,663,320 bytes in use.  Commencing GC.]
[GC completed with 10,667,592 bytes retained and 4,995,728 bytes freed.]
[GC will next occur when at least 12,667,592 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-CONSTRAINTS (TABLE T T))|.
Compiling DEFCONTACT TABLE: 
Converted MAKE-TABLE.
Compiling DEFUN MAKE-TABLE: 
Compiling DEFSTRUCT ORG-ENTRY: 
Byte Compiling Top-Level Form: 
Converted MAKE-ORG-ENTRY.
Compiling DEFSTRUCT ORG-ENTRY: 
Converted ORG-ENTRY-P.
Compiling DEFSTRUCT ORG-ENTRY: 
Converted ORG-ENTRY-KID.
Compiling DEFSTRUCT ORG-ENTRY: 
Converted (SETF ORG-ENTRY-KID).
Compiling DEFSTRUCT ORG-ENTRY: 
Converted ORG-ENTRY-ROW.
Compiling DEFSTRUCT ORG-ENTRY: 
Converted (SETF ORG-ENTRY-ROW).
Compiling DEFSTRUCT ORG-ENTRY: 
Converted ORG-ENTRY-COLUMN.
Compiling DEFSTRUCT ORG-ENTRY: 
Converted (SETF ORG-ENTRY-COLUMN).
Compiling DEFSTRUCT ORG-ENTRY: 
Byte Compiling Top-Level Form: 
Converted ORG-ENTRY-WIDTH.
Compiling DEFSTRUCT ORG-ENTRY: 
Converted (SETF ORG-ENTRY-WIDTH).
Compiling DEFSTRUCT ORG-ENTRY: 
Converted ORG-ENTRY-HEIGHT.
Compiling DEFSTRUCT ORG-ENTRY: 
Converted (SETF ORG-ENTRY-HEIGHT).
Compiling DEFSTRUCT ORG-ENTRY: 
Converted ORG-ENTRY-BORDER-WIDTH.
Compiling DEFSTRUCT ORG-ENTRY: 
Converted (SETF ORG-ENTRY-BORDER-WIDTH).
Compiling DEFSTRUCT ORG-ENTRY: 
Byte Compiling Top-Level Form: 
Converted ESTABLISH-ORG-ENTRY.
Compiling DEFUN ESTABLISH-ORG-ENTRY: 
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Byte Compiling Top-Level Form: 
Converted MAKE-WHAT-IF-STRUCTURE.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-STRUCTURE-P.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-WIDTH.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted (SETF WHAT-IF-WIDTH).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-HEIGHT.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
[GC threshold exceeded with 12,697,288 bytes in use.  Commencing GC.]
[GC completed with 10,530,416 bytes retained and 2,166,872 bytes freed.]
[GC will next occur when at least 12,530,416 bytes are in use.]
Converted (SETF WHAT-IF-HEIGHT).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-BORDER-WIDTH.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted (SETF WHAT-IF-BORDER-WIDTH).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Byte Compiling Top-Level Form: 
Converted WHAT-IF-ORGANIZATION.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted (SETF WHAT-IF-ORGANIZATION).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-COLUMN-WIDTHS.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted (SETF WHAT-IF-COLUMN-WIDTHS).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-NROWS.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted (SETF WHAT-IF-NROWS).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-NCOLUMNS.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Byte Compiling Top-Level Form: 
Converted (SETF WHAT-IF-NCOLUMNS).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-PREFERRED-WIDTH.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted (SETF WHAT-IF-PREFERRED-WIDTH).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-PREFERRED-HEIGHT.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted (SETF WHAT-IF-PREFERRED-HEIGHT).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted WHAT-IF-IN-USE.
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Converted (SETF WHAT-IF-IN-USE).
Compiling DEFSTRUCT WHAT-IF-STRUCTURE: 
Byte Compiling Top-Level Form: 
Converted CHECK-FOR-EXISTING-WIS.
Compiling DEFUN CHECK-FOR-EXISTING-WIS: 
Converted TABLE-ROW.
Compiling DEFUN TABLE-ROW: 
Converted SETF-TABLE-ROW.
Compiling DEFUN SETF-TABLE-ROW: 
Converted TABLE-COLUMN.
Compiling DEFUN TABLE-COLUMN: 
Converted SETF-TABLE-COLUMN.
Compiling DEFUN SETF-TABLE-COLUMN: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-LEFT-MARGIN) :AFTER (T TABLE))|.
Compiling DEFMETHOD (SETF DISPLAY-LEFT-MARGIN) :AFTER (T TABLE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL TABLE>: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-RIGHT-MARGIN) :AFTER (T TABLE))|.
Compiling DEFMETHOD (SETF DISPLAY-RIGHT-MARGIN) :AFTER (T TABLE): 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-TOP-MARGIN) :AFTER (T TABLE))|.
Compiling DEFMETHOD (SETF DISPLAY-TOP-MARGIN) :AFTER (T TABLE): 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-BOTTOM-MARGIN) :AFTER (T TABLE))|.
Compiling DEFMETHOD (SETF DISPLAY-BOTTOM-MARGIN) :AFTER (T TABLE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-HORIZONTAL-SPACE) :AFTER (T TABLE))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-COLUMN-ALIGNMENT) (T TABLE))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-COLUMN-WIDTH) (T TABLE))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-COLUMNS) (T TABLE))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-DELETE-POLICY) (T TABLE))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-LAYOUT-SIZE-POLICY) (T TABLE))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-ROW-HEIGHT) (T TABLE))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-ROW-ALIGNMENT) (T TABLE))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-SAME-WIDTH-IN-COLUMN) (T TABLE))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-SAME-HEIGHT-IN-ROW) (T TABLE))|.
Converted |(PCL::FAST-METHOD TABLE-SEPARATOR (TABLE T))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-SEPARATOR) (T TABLE T))|.
Converted |(PCL::FAST-METHOD TABLE-MEMBER (TABLE T T))|.
Converted |(PCL::FAST-METHOD (SETF TABLE-MEMBER) (T TABLE T T))|.
Compiling DEFMETHOD (SETF TABLE-MEMBER) (T TABLE T T): 
Compiling DEFMETHOD TABLE-SEPARATOR (TABLE T): 
Compiling DEFMETHOD TABLE-MEMBER (TABLE T T): 
[GC threshold exceeded with 15,309,520 bytes in use.  Commencing GC.]
[GC completed with 11,511,712 bytes retained and 3,797,808 bytes freed.]
[GC will next occur when at least 13,511,712 bytes are in use.]
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (TABLE))|.
Compiling DEFMETHOD PREFERRED-SIZE (TABLE): 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (TABLE))|.
Compiling DEFMETHOD CHANGE-LAYOUT (TABLE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
[GC threshold exceeded with 13,782,648 bytes in use.  Commencing GC.]
[GC completed with 11,754,448 bytes retained and 2,028,200 bytes freed.]
[GC will next occur when at least 13,754,448 bytes are in use.]
Converted |(PCL::FAST-METHOD RESIZE :AFTER (TABLE T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (TABLE T T T): 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (TABLE T T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (TABLE T T T T T T): 
Converted CALCULATE-PREFERRED-WIDTH.
Compiling DEFUN CALCULATE-PREFERRED-WIDTH: 
Converted CALCULATE-PREFERRED-HEIGHT.
Compiling DEFUN CALCULATE-PREFERRED-HEIGHT: 
Converted DETERMINE-A-ROWS-HEIGHT.
Compiling DEFUN DETERMINE-A-ROWS-HEIGHT: 
Byte Compiling Top-Level Form: 
Converted PLACE-CHILDREN-PHYSICALLY.
Compiling DEFUN PLACE-CHILDREN-PHYSICALLY: 
[GC threshold exceeded with 15,727,440 bytes in use.  Commencing GC.]
[GC completed with 12,206,744 bytes retained and 3,520,696 bytes freed.]
[GC will next occur when at least 14,206,744 bytes are in use.]
Converted SCAN-FOR-LARGEST-CHILDREN.
Compiling DEFUN SCAN-FOR-LARGEST-CHILDREN: 
Converted PUT-KIDS-INTO-SPECIFIED-NUMBER-OF-COLUMNS.
Compiling DEFUN PUT-KIDS-INTO-SPECIFIED-NUMBER-OF-COLUMNS: 
Converted FIND-FIRST-PARENTS-WIDTH.
Compiling DEFUN FIND-FIRST-PARENTS-WIDTH: 
Converted PUT-KIDS-INTO-MAXIMUM-UNALIGNED-COLUMNS.
Compiling DEFUN PUT-KIDS-INTO-MAXIMUM-UNALIGNED-COLUMNS: 
[GC threshold exceeded with 14,956,360 bytes in use.  Commencing GC.]
[GC completed with 11,566,088 bytes retained and 3,390,272 bytes freed.]
[GC will next occur when at least 13,566,088 bytes are in use.]
Converted PUT-KIDS-INTO-MAXIMUM-ALIGNED-COLUMNS.
Compiling DEFUN PUT-KIDS-INTO-MAXIMUM-ALIGNED-COLUMNS: 
[GC threshold exceeded with 13,826,264 bytes in use.  Commencing GC.]
[GC completed with 11,904,272 bytes retained and 1,921,992 bytes freed.]
[GC will next occur when at least 13,904,272 bytes are in use.]
Converted ADJUST-COLUMN-WIDTHS-SO-CHILD-FITS.
Compiling DEFUN ADJUST-COLUMN-WIDTHS-SO-CHILD-FITS: 
Converted GET-MAXIMUM-POSSIBLE-NCOLUMNS.
Compiling DEFUN GET-MAXIMUM-POSSIBLE-NCOLUMNS: 
Converted ASSIGN-KIDS-TO-ROWS-AND-COLUMNS.
Compiling DEFUN ASSIGN-KIDS-TO-ROWS-AND-COLUMNS: 
[GC threshold exceeded with 14,807,496 bytes in use.  Commencing GC.]
[GC completed with 12,082,856 bytes retained and 2,724,640 bytes freed.]
[GC will next occur when at least 14,082,856 bytes are in use.]
Converted BUILD-SORTED-LIST-OF-CHILDREN.
Compiling DEFUN BUILD-SORTED-LIST-OF-CHILDREN: 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clio/table.lisp

In: DEFMETHOD (SETF TABLE-MEMBER) (T TABLE T T)
  (TABLE-MEMBER TABLE ROW COLUMN)
Warning: Undefined function: TABLE-MEMBER


Warning: This function is undefined:
  TABLE-MEMBER


Compilation unit finished.
  2 warnings


clue:clio/table.x86f written.
Compilation finished in 0:00:38.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/table.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:52:30 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/choices.lisp 19 JUL 90 07:59:58 pm

[GC threshold exceeded with 14,083,184 bytes in use.  Commencing GC.]
[GC completed with 12,549,632 bytes retained and 1,533,552 bytes freed.]
[GC will next occur when at least 14,549,632 bytes are in use.]
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT CHOICES: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL CHOICES) T))|.
Compiling DEFCONTACT CHOICES: 
[GC threshold exceeded with 14,960,824 bytes in use.  Commencing GC.]
[GC completed with 12,707,352 bytes retained and 2,253,472 bytes freed.]
[GC will next occur when at least 14,707,352 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (CHOICES T T))|.
Compiling DEFCONTACT CHOICES: 
[GC threshold exceeded with 18,857,984 bytes in use.  Commencing GC.]
[GC completed with 13,875,128 bytes retained and 4,982,856 bytes freed.]
[GC will next occur when at least 15,875,128 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-CONSTRAINTS (CHOICES T T))|.
Compiling DEFCONTACT CHOICES: 
Converted MAKE-CHOICES.
Compiling DEFUN MAKE-CHOICES: 
Converted |(PCL::FAST-METHOD ADD-CHILD :AFTER (CHOICES T))|.
Compiling DEFMETHOD ADD-CHILD :AFTER (CHOICES T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CHOICES>: 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT :AFTER (CHOICES))|.
Compiling DEFMETHOD CHANGE-LAYOUT :AFTER (CHOICES): 
Converted |(PCL::FAST-METHOD (SETF CHOICE-DEFAULT) (T CHOICES))|.
Compiling DEFMETHOD (SETF CHOICE-DEFAULT) (T CHOICES): 
[GC threshold exceeded with 15,966,616 bytes in use.  Commencing GC.]
[GC completed with 12,062,240 bytes retained and 3,904,376 bytes freed.]
[GC will next occur when at least 14,062,240 bytes are in use.]
Converted CHANGE-CHOICES-SELECTION.
Compiling DEFUN CHANGE-CHOICES-SELECTION: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted |(PCL::FAST-METHOD (SETF CHOICE-SELECTION) (T CHOICES))|.
Compiling DEFMETHOD (SETF CHOICE-SELECTION) (T CHOICES): 
Converted |(PCL::FAST-METHOD (SETF CHOICE-FONT) (T CHOICES))|.
Compiling DEFMETHOD (SETF CHOICE-FONT) (T CHOICES): 
Converted |(PCL::FAST-METHOD (SETF CHOICE-POLICY) (T CHOICES))|.
Compiling DEFMETHOD (SETF CHOICE-POLICY) (T CHOICES): 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:clio/choices.x86f written.
Compilation finished in 0:00:16.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/choices.x86f".
[GC threshold exceeded with 14,068,192 bytes in use.  Commencing GC.]
[GC completed with 12,503,208 bytes retained and 1,564,984 bytes freed.]
[GC will next occur when at least 14,503,208 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:52:47 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/scroller.lisp 19 JUL 90 08:15:31 pm

Byte Compiling Top-Level Form: 
Compiling DEFCONTACT SCROLLER: 
Compiling DEFCONTACT SCROLLER: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL SCROLLER) T))|.
Compiling DEFCONTACT SCROLLER: 
[GC threshold exceeded with 14,892,504 bytes in use.  Commencing GC.]
[GC completed with 12,864,328 bytes retained and 2,028,176 bytes freed.]
[GC will next occur when at least 14,864,328 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (SCROLLER T T))|.
Compiling DEFCONTACT SCROLLER: 
[GC threshold exceeded with 17,321,760 bytes in use.  Commencing GC.]
[GC completed with 13,744,872 bytes retained and 3,576,888 bytes freed.]
[GC will next occur when at least 15,744,872 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted MAKE-SCROLLER.
Compiling DEFUN MAKE-SCROLLER: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (SCROLLER))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (SCROLLER): 
Converted |(PCL::FAST-METHOD REALIZE :AFTER (SCROLLER))|.
Converted |(PCL::FAST-METHOD RESCALE (SCROLLER))|.
Converted |(PCL::FAST-METHOD (SETF SCALE-ORIENTATION) (T SCROLLER))|.
Compiling DEFMETHOD RESCALE (SCROLLER): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL SCROLLER>: 
[GC threshold exceeded with 20,575,688 bytes in use.  Commencing GC.]
[GC completed with 14,143,472 bytes retained and 6,432,216 bytes freed.]
[GC will next occur when at least 16,143,472 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF SCALE-UPDATE-DELAY) (T SCROLLER))|.
Compiling DEFMETHOD (SETF SCALE-UPDATE-DELAY) (T SCROLLER): 
Converted |(PCL::FAST-METHOD (SETF SCALE-VALUE) (T SCROLLER))|.
Compiling DEFMETHOD (SETF SCALE-VALUE) (T SCROLLER): 
Converted |(PCL::FAST-METHOD (SETF SCALE-MINIMUM) (T SCROLLER))|.
Compiling DEFMETHOD (SETF SCALE-MINIMUM) (T SCROLLER): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF SCALE-MAXIMUM) (T SCROLLER))|.
Compiling DEFMETHOD (SETF SCALE-MAXIMUM) (T SCROLLER): 
Converted |(PCL::FAST-METHOD (SETF SCALE-INCREMENT) (T SCROLLER))|.
Compiling DEFMETHOD (SETF SCALE-INCREMENT) (T SCROLLER): 
Converted |(PCL::FAST-METHOD (SETF SCALE-INDICATOR-SIZE) (T SCROLLER))|.
Compiling DEFMETHOD (SETF SCALE-INDICATOR-SIZE) (T SCROLLER): 
Converted TRUE-INDICATOR-SIZE.
Compiling DEFMACRO TRUE-INDICATOR-SIZE: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCALE-UPDATE (SCROLLER))|.
Compiling DEFMETHOD SCALE-UPDATE (SCROLLER): 
[GC threshold exceeded with 17,194,656 bytes in use.  Commencing GC.]
[GC completed with 14,741,656 bytes retained and 2,453,000 bytes freed.]
[GC will next occur when at least 16,741,656 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF CONTACT-FOREGROUND) :AFTER (T SCROLLER))|.
Compiling DEFMETHOD (SETF CONTACT-FOREGROUND) :AFTER (T SCROLLER): 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (SCROLLER))|.
Compiling DEFMETHOD PREFERRED-SIZE (SCROLLER): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD RESIZE :AROUND (SCROLLER T T T))|.
Compiling DEFMETHOD RESIZE :AROUND (SCROLLER T T T): 
[GC threshold exceeded with 17,540,248 bytes in use.  Commencing GC.]
[GC completed with 13,533,592 bytes retained and 4,006,656 bytes freed.]
[GC will next occur when at least 15,533,592 bytes are in use.]
Converted SCROLLBAR-ABBREVIATED-P.
Compiling DEFUN SCROLLBAR-ABBREVIATED-P: 
Converted SCROLLBAR-ELEVATOR-SIZE.
Compiling DEFUN SCROLLBAR-ELEVATOR-SIZE: 
Converted SCROLLBAR-LESS-ARROW-GEOMETRY.
Compiling DEFUN SCROLLBAR-LESS-ARROW-GEOMETRY: 
Converted SCROLLBAR-DRAG-AREA-GEOMETRY.
Compiling DEFUN SCROLLBAR-DRAG-AREA-GEOMETRY: 
Converted SCROLLBAR-MORE-ARROW-GEOMETRY.
Compiling DEFUN SCROLLBAR-MORE-ARROW-GEOMETRY: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISPLAY (SCROLLER))|.
Compiling DEFMETHOD DISPLAY (SCROLLER): 
[GC threshold exceeded with 16,521,032 bytes in use.  Commencing GC.]
[GC completed with 14,046,616 bytes retained and 2,474,416 bytes freed.]
[GC will next occur when at least 16,046,616 bytes are in use.]
Converted SCROLLBAR-DISPLAY-ELEVATOR.
Compiling DEFUN SCROLLBAR-DISPLAY-ELEVATOR: 
Converted SCROLLBAR-UPDATE-LESS-ARROW.
Compiling DEFUN SCROLLBAR-UPDATE-LESS-ARROW: 
Converted SCROLLBAR-UPDATE-MORE-ARROW.
Compiling DEFUN SCROLLBAR-UPDATE-MORE-ARROW: 
Compiling DEFEVENT SCROLLER: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT SCROLLER: 
Compiling DEFEVENT SCROLLER: 
Compiling DEFEVENT SCROLLER: 
Compiling DEFEVENT SCROLLER: 
Converted SCROLLER-HANDLE-PRESS.
Compiling DEFUN SCROLLER-HANDLE-PRESS: 
Compiling LET ((PRESS-HANDLERS #)): 
Compiling LET ((PRESS-HANDLERS #)): 
Compiling LET ((PRESS-HANDLERS #)): 
Compiling LET ((PRESS-HANDLERS #)): 
Compiling LET ((PRESS-HANDLERS #)): 
Compiling LET ((PRESS-HANDLERS #)): 
Compiling Top-Level Form: 
[GC threshold exceeded with 20,499,808 bytes in use.  Commencing GC.]
[GC completed with 14,400,176 bytes retained and 6,099,632 bytes freed.]
[GC will next occur when at least 16,400,176 bytes are in use.]
Converted SCROLLER-HANDLE-RELEASE.
Compiling DEFUN SCROLLER-HANDLE-RELEASE: 
Converted SCROLLER-HANDLE-MOTION.
Compiling DEFUN SCROLLER-HANDLE-MOTION: 
Converted SCROLLER-REPORT-NEW-VALUE.
Compiling DEFUN SCROLLER-REPORT-NEW-VALUE: 
Converted SCROLLER-INCREMENT-VALUE.
Compiling DEFUN SCROLLER-INCREMENT-VALUE: 
Converted SCROLLBAR-CABLE-WARP.
Compiling DEFUN SCROLLBAR-CABLE-WARP: 
Converted SCROLLER-VALUE-POSITION.
Compiling DEFUN SCROLLER-VALUE-POSITION: 
[GC threshold exceeded with 16,474,688 bytes in use.  Commencing GC.]
[GC completed with 14,679,072 bytes retained and 1,795,616 bytes freed.]
[GC will next occur when at least 16,679,072 bytes are in use.]
Converted SCROLLER-PIXEL-VALUE.
Compiling DEFUN SCROLLER-PIXEL-VALUE: 
Converted SCROLLER-INDICATOR-POSITION.
Compiling DEFUN SCROLLER-INDICATOR-POSITION: 
Converted SCROLLER-INDICATOR-SIZE.
Compiling DEFUN SCROLLER-INDICATOR-SIZE: 
Byte Compiling Top-Level Form: 

clue:clio/scroller.x86f written.
Compilation finished in 0:00:40.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/scroller.x86f".
[GC threshold exceeded with 16,679,960 bytes in use.  Commencing GC.]
[GC completed with 14,736,104 bytes retained and 1,943,856 bytes freed.]
[GC will next occur when at least 16,736,104 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:53:30 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/slider.lisp 07 MAR 97 06:43:53 pm

Converted TRANSLATE-X-TO-Y.
Compiling DEFMACRO TRANSLATE-X-TO-Y: 
Converted CONFINE-TO.
Compiling DEFMACRO CONFINE-TO: 
Converted ALIGN.
Compiling DEFMACRO ALIGN: 
Converted VALUE-LENGTH.
Compiling DEFMACRO VALUE-LENGTH: 
[GC threshold exceeded with 16,740,136 bytes in use.  Commencing GC.]
[GC completed with 15,155,528 bytes retained and 1,584,608 bytes freed.]
[GC will next occur when at least 17,155,528 bytes are in use.]
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT SLIDER: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL SLIDER) T))|.
Compiling DEFCONTACT SLIDER: 
[GC threshold exceeded with 17,161,160 bytes in use.  Commencing GC.]
[GC completed with 15,461,144 bytes retained and 1,700,016 bytes freed.]
[GC will next occur when at least 17,461,144 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (SLIDER T T))|.
Compiling DEFCONTACT SLIDER: 
[GC threshold exceeded with 19,458,704 bytes in use.  Commencing GC.]
[GC completed with 16,274,616 bytes retained and 3,184,088 bytes freed.]
[GC will next occur when at least 18,274,616 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF SCALE-ORIENTATION) (T SLIDER))|.
Compiling DEFMETHOD (SETF SCALE-ORIENTATION) (T SLIDER): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL SLIDER>: 
Converted |(PCL::FAST-METHOD (SETF SCALE-UPDATE-DELAY) (T SLIDER))|.
Compiling DEFMETHOD (SETF SCALE-UPDATE-DELAY) (T SLIDER): 
Converted |(PCL::FAST-METHOD (SETF SCALE-VALUE) (T SLIDER))|.
Compiling DEFMETHOD (SETF SCALE-VALUE) (T SLIDER): 
Converted |(PCL::FAST-METHOD (SETF SCALE-MINIMUM) (T SLIDER))|.
Compiling DEFMETHOD (SETF SCALE-MINIMUM) (T SLIDER): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF SCALE-MAXIMUM) (T SLIDER))|.
Compiling DEFMETHOD (SETF SCALE-MAXIMUM) (T SLIDER): 
Converted |(PCL::FAST-METHOD (SETF SCALE-INCREMENT) (T SLIDER))|.
Compiling DEFMETHOD (SETF SCALE-INCREMENT) (T SLIDER): 
Converted |(PCL::FAST-METHOD (SETF SCALE-INDICATOR-SIZE) (T SLIDER))|.
Compiling DEFMETHOD (SETF SCALE-INDICATOR-SIZE) (T SLIDER): 
Converted SLIDER-TICK-MARK-THICKNESS.
Compiling DEFUN SLIDER-TICK-MARK-THICKNESS: 
Byte Compiling Top-Level Form: 
Converted SLIDER-BAR-TICK-GAP.
Compiling DEFUN SLIDER-BAR-TICK-GAP: 
Converted SLIDER-MARGIN.
Compiling DEFUN SLIDER-MARGIN: 
Converted FIRST-TICK-OFFSET.
Compiling DEFUN FIRST-TICK-OFFSET: 
Converted LAST-TICK-OFFSET.
Compiling DEFUN LAST-TICK-OFFSET: 
Converted UNITS-TO-PIXELS.
Compiling DEFUN UNITS-TO-PIXELS: 
Converted PIXELS-TO-UNITS.
Compiling DEFUN PIXELS-TO-UNITS: 
Converted FIRST-TICK-X.
Compiling DEFUN FIRST-TICK-X: 
[GC threshold exceeded with 18,275,136 bytes in use.  Commencing GC.]
[GC completed with 10,055,648 bytes retained and 8,219,488 bytes freed.]
[GC will next occur when at least 12,055,648 bytes are in use.]
Converted DRAG-BOX-CENTER-X.
Compiling DEFUN DRAG-BOX-CENTER-X: 
Converted DRAG-BOX-MIN-X.
Compiling DEFUN DRAG-BOX-MIN-X: 
Converted DRAG-BOX-POSITION.
Compiling DEFUN DRAG-BOX-POSITION: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCALE-UPDATE (SLIDER))|.
Compiling DEFMETHOD SCALE-UPDATE (SLIDER): 
[GC threshold exceeded with 13,693,760 bytes in use.  Commencing GC.]
[GC completed with 10,731,368 bytes retained and 2,962,392 bytes freed.]
[GC will next occur when at least 12,731,368 bytes are in use.]
Converted MAKE-SLIDER.
Compiling DEFUN MAKE-SLIDER: 
Converted BAR-BOTTOM-OFFSET.
Compiling DEFUN BAR-BOTTOM-OFFSET: 
Converted FIXED-THICKNESS.
Compiling DEFUN FIXED-THICKNESS: 
Converted SLIDER-COMPUTE-MARGINS.
Compiling DEFUN SLIDER-COMPUTE-MARGINS: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (SLIDER))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (SLIDER): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD RESCALE :BEFORE (SLIDER))|.
Compiling DEFMETHOD RESCALE :BEFORE (SLIDER): 
Converted |(PCL::FAST-METHOD RESIZE :AFTER (SLIDER T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (SLIDER T T T): 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (SLIDER))|.
Compiling DEFMETHOD PREFERRED-SIZE (SLIDER): 
[GC threshold exceeded with 13,960,080 bytes in use.  Commencing GC.]
[GC completed with 10,892,584 bytes retained and 3,067,496 bytes freed.]
[GC will next occur when at least 12,892,584 bytes are in use.]
Byte Compiling Top-Level Form: 
Compiling DEFEVENT SLIDER: 
Compiling DEFEVENT SLIDER: 
Compiling DEFEVENT SLIDER: 
Converted SLIDER-RELEASE.
Compiling DEFUN SLIDER-RELEASE: 
Converted HIGHLITE-DRAG-BOX.
Compiling DEFUN HIGHLITE-DRAG-BOX: 
Converted SLIDER-PRESS.
Compiling DEFUN SLIDER-PRESS: 
[GC threshold exceeded with 13,823,120 bytes in use.  Commencing GC.]
[GC completed with 11,309,856 bytes retained and 2,513,264 bytes freed.]
[GC will next occur when at least 13,309,856 bytes are in use.]
Converted SLIDER-INCREMENT-VALUE.
Compiling DEFUN SLIDER-INCREMENT-VALUE: 
Converted SLIDER-HANDLE-MOTION.
Compiling DEFUN SLIDER-HANDLE-MOTION: 
Converted CHOOSE-INDICATOR-SIZE.
Compiling DEFUN CHOOSE-INDICATOR-SIZE: 
Converted |(PCL::FAST-METHOD DISPLAY (SLIDER))|.
Compiling DEFMETHOD DISPLAY (SLIDER): [GC threshold exceeded with 19,310,000 bytes in use.  Commencing GC.]
[GC completed with 15,003,288 bytes retained and 4,306,712 bytes freed.]
[GC will next occur when at least 23,003,288 bytes are in use.]

Converted SPECIAL-HIGHLITE-DRAG-BOX.
Compiling DEFUN SPECIAL-HIGHLITE-DRAG-BOX: 
Byte Compiling Top-Level Form: 

clue:clio/slider.x86f written.
Compilation finished in 0:00:41.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/slider.x86f".
[GC threshold exceeded with 17,009,648 bytes in use.  Commencing GC.]
[GC completed with 15,407,792 bytes retained and 1,601,856 bytes freed.]
[GC will next occur when at least 17,407,792 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:54:14 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/scroll-frame.lisp 19 JUL 90 08:15:17 pm

Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL SCROLL-FRAME) T))|.
Compiling DEFCONTACT SCROLL-FRAME: 
[GC threshold exceeded with 18,404,592 bytes in use.  Commencing GC.]
[GC completed with 11,271,600 bytes retained and 7,132,992 bytes freed.]
[GC will next occur when at least 13,271,600 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (SCROLL-FRAME T T))|.
Compiling DEFCONTACT SCROLL-FRAME: 
[GC threshold exceeded with 15,121,816 bytes in use.  Commencing GC.]
[GC completed with 12,037,312 bytes retained and 3,084,504 bytes freed.]
[GC will next occur when at least 14,037,312 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCROLL-FRAME-CONTENT (SCROLL-FRAME))|.
Compiling DEFMETHOD SCROLL-FRAME-CONTENT (SCROLL-FRAME): 
Compiling Creation Form for #<KERNEL::CLASS-CELL SCROLL-FRAME>: 
Converted SCROLL-FRAME-HSCROLLER.
Compiling DEFUN SCROLL-FRAME-HSCROLLER: 
Converted SCROLL-FRAME-VSCROLLER.
Compiling DEFUN SCROLL-FRAME-VSCROLLER: 
Converted |(PCL::FAST-METHOD SCROLL-FRAME-AREA (SCROLL-FRAME))|.
Compiling DEFMETHOD SCROLL-FRAME-AREA (SCROLL-FRAME): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CONTACT-FOREGROUND) :AFTER (T SCROLL-FRAME))|.
Compiling DEFMETHOD (SETF CONTACT-FOREGROUND) :AFTER (T SCROLL-FRAME): 
Converted |(PCL::FAST-METHOD (SETF SCROLL-FRAME-VERTICAL) (T SCROLL-FRAME))|.
Compiling DEFMETHOD (SETF SCROLL-FRAME-VERTICAL) (T SCROLL-FRAME): 
Converted |(PCL::FAST-METHOD (SETF SCROLL-FRAME-HORIZONTAL) (T SCROLL-FRAME))|.
Compiling DEFMETHOD (SETF SCROLL-FRAME-HORIZONTAL) (T SCROLL-FRAME): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCROLL-FRAME-POSITION (SCROLL-FRAME))|.
Compiling DEFMETHOD SCROLL-FRAME-POSITION (SCROLL-FRAME): 
[GC threshold exceeded with 14,038,032 bytes in use.  Commencing GC.]
[GC completed with 11,959,832 bytes retained and 2,078,200 bytes freed.]
[GC will next occur when at least 13,959,832 bytes are in use.]
Converted |(PCL::FAST-METHOD SCROLL-FRAME-REPOSITION (SCROLL-FRAME))|.
Compiling DEFMETHOD SCROLL-FRAME-REPOSITION (SCROLL-FRAME): 
Converted SF-SCROLL-TO.
Compiling DEFUN SF-SCROLL-TO: 
Converted SF-HORIZONTAL-CALIBRATE.
Compiling DEFUN SF-HORIZONTAL-CALIBRATE: 
[GC threshold exceeded with 14,062,864 bytes in use.  Commencing GC.]
[GC completed with 12,387,752 bytes retained and 1,675,112 bytes freed.]
[GC will next occur when at least 14,387,752 bytes are in use.]
Converted SF-VERTICAL-CALIBRATE.
Compiling DEFUN SF-VERTICAL-CALIBRATE: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (SCROLL-FRAME))|.
Compiling DEFMETHOD CHANGE-LAYOUT (SCROLL-FRAME): 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (SCROLL-FRAME T T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (SCROLL-FRAME T T T T T T): 
[GC threshold exceeded with 14,547,584 bytes in use.  Commencing GC.]
[GC completed with 12,392,256 bytes retained and 2,155,328 bytes freed.]
[GC will next occur when at least 14,392,256 bytes are in use.]
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (SCROLL-FRAME))|.
Compiling DEFMETHOD PREFERRED-SIZE (SCROLL-FRAME): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD RESIZE :AFTER (SCROLL-FRAME T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (SCROLL-FRAME T T T): 
Converted |(PCL::FAST-METHOD ADD-CHILD :BEFORE (SCROLL-FRAME T))|.
Compiling DEFMETHOD ADD-CHILD :BEFORE (SCROLL-FRAME T): 
Converted MAKE-SCROLL-FRAME.
Compiling DEFUN MAKE-SCROLL-FRAME: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (SCROLL-FRAME))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (SCROLL-FRAME): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL SCROLL-AREA) T))|.
Compiling DEFCONTACT SCROLL-AREA: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PIXMAP>: 
[GC threshold exceeded with 15,530,424 bytes in use.  Commencing GC.]
[GC completed with 12,944,336 bytes retained and 2,586,088 bytes freed.]
[GC will next occur when at least 14,944,336 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (SCROLL-AREA T T))|.
Compiling DEFCONTACT SCROLL-AREA: 
[GC threshold exceeded with 15,603,808 bytes in use.  Commencing GC.]
[GC completed with 13,167,752 bytes retained and 2,436,056 bytes freed.]
[GC will next occur when at least 15,167,752 bytes are in use.]
Converted |(PCL::FAST-METHOD ADD-CHILD :BEFORE (SCROLL-AREA T))|.
Compiling DEFMETHOD ADD-CHILD :BEFORE (SCROLL-AREA T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (SCROLL-AREA))|.
Compiling DEFMETHOD CHANGE-LAYOUT (SCROLL-AREA): 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (SCROLL-AREA T T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (SCROLL-AREA T T T T T T): 
[GC threshold exceeded with 15,173,104 bytes in use.  Commencing GC.]
[GC completed with 13,589,480 bytes retained and 1,583,624 bytes freed.]
[GC will next occur when at least 15,589,480 bytes are in use.]
Converted |(PCL::FAST-METHOD RESIZE :AFTER (SCROLL-AREA T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (SCROLL-AREA T T T): 
Byte Compiling Top-Level Form: 
Converted SF-RECALIBRATE.
Compiling DEFUN SF-RECALIBRATE: 
Byte Compiling Top-Level Form: 

clue:clio/scroll-frame.x86f written.
Compilation finished in 0:00:25.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/scroll-frame.x86f".
[GC threshold exceeded with 15,594,120 bytes in use.  Commencing GC.]
[GC completed with 11,394,320 bytes retained and 4,199,800 bytes freed.]
[GC will next occur when at least 13,394,320 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:54:41 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/mchoices.lisp 19 JUL 90 08:09:05 pm

Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL MULTIPLE-CHOICES) T))|.
Compiling DEFCONTACT MULTIPLE-CHOICES: 
[GC threshold exceeded with 13,788,328 bytes in use.  Commencing GC.]
[GC completed with 11,879,336 bytes retained and 1,908,992 bytes freed.]
[GC will next occur when at least 13,879,336 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (MULTIPLE-CHOICES T T))|.
Compiling DEFCONTACT MULTIPLE-CHOICES: 
[GC threshold exceeded with 18,240,944 bytes in use.  Commencing GC.]
[GC completed with 12,450,896 bytes retained and 5,790,048 bytes freed.]
[GC will next occur when at least 14,450,896 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-CONSTRAINTS (MULTIPLE-CHOICES T T))|.
Compiling DEFCONTACT MULTIPLE-CHOICES: 
Byte Compiling Top-Level Form: 
Converted MAKE-MULTIPLE-CHOICES.
Compiling DEFUN MAKE-MULTIPLE-CHOICES: 
Converted |(PCL::FAST-METHOD ADD-CHILD :AFTER (MULTIPLE-CHOICES T))|.
Compiling DEFMETHOD ADD-CHILD :AFTER (MULTIPLE-CHOICES T): 
Converted |(PCL::FAST-METHOD (SETF CHOICE-DEFAULT) (T MULTIPLE-CHOICES))|.
Compiling DEFMETHOD (SETF CHOICE-DEFAULT) (T MULTIPLE-CHOICES): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CHOICE-SELECTION) (T MULTIPLE-CHOICES))|.
Compiling DEFMETHOD (SETF CHOICE-SELECTION) (T MULTIPLE-CHOICES): 
Converted |(PCL::FAST-METHOD (SETF CHOICE-FONT) (T MULTIPLE-CHOICES))|.
Compiling DEFMETHOD (SETF CHOICE-FONT) (T MULTIPLE-CHOICES): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL MULTIPLE-CHOICES>: 
Byte Compiling Top-Level Form: 

clue:clio/mchoices.x86f written.
Compilation finished in 0:00:14.
[GC threshold exceeded with 14,455,800 bytes in use.  Commencing GC.]
[GC completed with 12,853,872 bytes retained and 1,601,928 bytes freed.]
[GC will next occur when at least 14,853,872 bytes are in use.]
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/mchoices.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:54:56 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/menu.lisp 03 NOV 96 10:26:01 pm

Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL PUSHPIN-BUTTON) T))|.
Compiling DEFCONTACT PUSHPIN-BUTTON: 
[GC threshold exceeded with 15,714,760 bytes in use.  Commencing GC.]
[GC completed with 13,186,352 bytes retained and 2,528,408 bytes freed.]
[GC will next occur when at least 15,186,352 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (PUSHPIN-BUTTON T T))|.
Compiling DEFCONTACT PUSHPIN-BUTTON: 
[GC threshold exceeded with 16,864,360 bytes in use.  Commencing GC.]
[GC completed with 13,928,512 bytes retained and 2,935,848 bytes freed.]
[GC will next occur when at least 15,928,512 bytes are in use.]
Converted MAKE-PUSHPIN-BUTTON.
Compiling DEFUN MAKE-PUSHPIN-BUTTON: 
Converted GET-OL-MENU-SPEC.
Compiling DEFUN GET-OL-MENU-SPEC: 
Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Compiling Top-Level Form: 
Converted GET-PUSHPIN-SPEC.
Compiling DEFUN GET-PUSHPIN-SPEC: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PUSHPIN-BUTTON>: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (PUSHPIN-BUTTON): 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD PREFERRED-SIZE (PUSHPIN-BUTTON): 
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-HIGHLIGHTED (PUSHPIN-BUTTON))|.
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-UNHIGHLIGHTED (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD DISPLAY-BUTTON-UNHIGHLIGHTED (PUSHPIN-BUTTON): 
[GC threshold exceeded with 16,395,664 bytes in use.  Commencing GC.]
[GC completed with 12,401,096 bytes retained and 3,994,568 bytes freed.]
[GC will next occur when at least 14,401,096 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-PRESS (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-PRESS (PUSHPIN-BUTTON): 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-RELEASE (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-RELEASE (PUSHPIN-BUTTON): 
Converted |(PCL::FAST-METHOD CHOICE-ITEM-LEAVE (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD CHOICE-ITEM-LEAVE (PUSHPIN-BUTTON): 
Converted MENU-LEAVE-PUSHPIN-BUTTON.
Compiling DEFUN MENU-LEAVE-PUSHPIN-BUTTON: 
Byte Compiling Top-Level Form: 
Converted MENU-RELEASE-PUSHPIN-BUTTON.
Compiling DEFUN MENU-RELEASE-PUSHPIN-BUTTON: 
Converted |(PCL::FAST-METHOD PRESS-SELECT (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD PRESS-SELECT (PUSHPIN-BUTTON): 
Converted |(PCL::FAST-METHOD RELEASE-SELECT (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD RELEASE-SELECT (PUSHPIN-BUTTON): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MENU-ENTER-PUSHPIN-BUTTON (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD MENU-ENTER-PUSHPIN-BUTTON (PUSHPIN-BUTTON): 
Converted |(PCL::FAST-METHOD (SETF CHOICE-ITEM-SELECTED-P) (T PUSHPIN-BUTTON))|.
Compiling DEFMETHOD (SETF CHOICE-ITEM-SELECTED-P) (T PUSHPIN-BUTTON): 
Converted |(PCL::FAST-METHOD BUTTON-SWITCH (PUSHPIN-BUTTON))|.
Compiling DEFMETHOD BUTTON-SWITCH (PUSHPIN-BUTTON): 
Converted |(PCL::FAST-METHOD (SETF BUTTON-SWITCH) (T PUSHPIN-BUTTON))|.
Compiling DEFMETHOD (SETF BUTTON-SWITCH) (T PUSHPIN-BUTTON): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 14,501,624 bytes in use.  Commencing GC.]
[GC completed with 12,875,256 bytes retained and 1,626,368 bytes freed.]
[GC will next occur when at least 14,875,256 bytes are in use.]
Compiling DEFEVENT PUSHPIN-BUTTON: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT PUSHPIN-BUTTON: 
Compiling DEFEVENT PUSHPIN-BUTTON: 
Converted PP-MAYBE-RELEASE-SELECT.
Compiling DEFUN PP-MAYBE-RELEASE-SELECT: 
Compiling DEFEVENT PUSHPIN-BUTTON: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT PUSHPIN-BUTTON: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL MENU) T))|.
Compiling DEFCONTACT MENU: 
[GC threshold exceeded with 15,343,032 bytes in use.  Commencing GC.]
[GC completed with 13,052,480 bytes retained and 2,290,552 bytes freed.]
[GC will next occur when at least 15,052,480 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (MENU T T))|.
Compiling DEFCONTACT MENU: 
[GC threshold exceeded with 16,305,440 bytes in use.  Commencing GC.]
[GC completed with 13,723,632 bytes retained and 2,581,808 bytes freed.]
[GC will next occur when at least 15,723,632 bytes are in use.]
Converted MAKE-MENU.
Compiling DEFUN MAKE-MENU: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (MENU))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (MENU): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL MENU>: 
Converted |(PCL::FAST-METHOD CONTACT-BACKGROUND (MENU))|.
Compiling DEFMETHOD CONTACT-BACKGROUND (MENU): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-BACKGROUND) (T MENU))|.
Compiling DEFMETHOD (SETF CONTACT-BACKGROUND) (T MENU): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-FOREGROUND) (T MENU))|.
Compiling DEFMETHOD (SETF CONTACT-FOREGROUND) (T MENU): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MENU-CHOICE (MENU))|.
Compiling DEFMETHOD MENU-CHOICE (MENU): 
Converted MENU-CONTAINER.
Compiling DEFUN MENU-CONTAINER: 
Converted |(PCL::FAST-METHOD (SETF MENU-TITLE) (T MENU))|.
Compiling DEFMETHOD (SETF MENU-TITLE) (T MENU): 
Converted |(PCL::FAST-METHOD MENU-TITLE (MENU))|.
Compiling DEFMETHOD MENU-TITLE (MENU): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (MENU))|.
Compiling DEFMETHOD PREFERRED-SIZE (MENU): 
Converted |(PCL::FAST-METHOD SHELL-MAPPED (MENU))|.
Compiling DEFMETHOD SHELL-MAPPED (MENU): 
[GC threshold exceeded with 15,729,120 bytes in use.  Commencing GC.]
[GC completed with 13,876,544 bytes retained and 1,852,576 bytes freed.]
[GC will next occur when at least 15,876,544 bytes are in use.]
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT DROP-SHADOW: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL DROP-SHADOW) T))|.
Compiling DEFCONTACT DROP-SHADOW: 
[GC threshold exceeded with 15,881,184 bytes in use.  Commencing GC.]
[GC completed with 14,307,960 bytes retained and 1,573,224 bytes freed.]
[GC will next occur when at least 16,307,960 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (DROP-SHADOW T T))|.
Compiling DEFCONTACT DROP-SHADOW: 
[GC threshold exceeded with 17,094,712 bytes in use.  Commencing GC.]
[GC completed with 8,843,032 bytes retained and 8,251,680 bytes freed.]
[GC will next occur when at least 10,843,032 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (DROP-SHADOW))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (DROP-SHADOW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL DROP-SHADOW>: 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (DROP-SHADOW))|.
Compiling DEFMETHOD PREFERRED-SIZE (DROP-SHADOW): 
Converted |(PCL::FAST-METHOD DISPLAY (DROP-SHADOW))|.
Compiling DEFMETHOD DISPLAY (DROP-SHADOW): 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (DROP-SHADOW T T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (DROP-SHADOW T T T T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (DROP-SHADOW))|.
Compiling DEFMETHOD CHANGE-LAYOUT (DROP-SHADOW): 
Converted |(PCL::FAST-METHOD ADD-CHILD :BEFORE (DROP-SHADOW T))|.
Compiling DEFMETHOD ADD-CHILD :BEFORE (DROP-SHADOW T): 
Converted |(PCL::FAST-METHOD RESIZE :AFTER (DROP-SHADOW T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (DROP-SHADOW T T T): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 10,847,904 bytes in use.  Commencing GC.]
[GC completed with 9,272,216 bytes retained and 1,575,688 bytes freed.]
[GC will next occur when at least 11,272,216 bytes are in use.]
Compiling DEFCONTACT MENU-CONTAINER: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL MENU-CONTAINER) T))|.
Compiling DEFCONTACT MENU-CONTAINER: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (MENU-CONTAINER T T))|.
Compiling DEFCONTACT MENU-CONTAINER: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 13,437,712 bytes in use.  Commencing GC.]
[GC completed with 9,750,984 bytes retained and 3,686,728 bytes freed.]
[GC will next occur when at least 11,750,984 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (MENU-CONTAINER))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (MENU-CONTAINER): 

File: /usr/local/fakeroot/work/clue-19970309/clio/menu.lisp

In: DEFMETHOD INITIALIZE-INSTANCE :AFTER (MENU-CONTAINER)
  (DEFMETHOD INITIALIZE-INSTANCE
             :AFTER
             ((SELF MENU-CONTAINER) &REST ARGS &KEY CONTENT ...)
             (LET (# #)
               (WITH-SLOTS # SELF # #) ..))
--> BLOCK MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
--> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET 
--> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND LET FLET 
--> PCL::BIND-ARGS 
==>
  (LET* ((PCL::.ARGS-TAIL. PCL::.REST-ARG.)
         (ARGS PCL::.ARGS-TAIL.)
         (CONTENT #)
         (PCL::.KEY. #)
         (PUSHPIN #) ..))
Warning: Variable ARGS defined but never used.

Converted |(PCL::FAST-METHOD ADD-MENU-ITEM-CALLBACKS (T T))|.
Compiling DEFMETHOD ADD-MENU-ITEM-CALLBACKS (T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL TOGGLE-BUTTON>: 
Converted DISMISS-MENU.
Compiling DEFUN DISMISS-MENU: 
Converted |(PCL::FAST-METHOD DISPLAY (MENU-CONTAINER))|.
Compiling DEFMETHOD DISPLAY (MENU-CONTAINER): 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (MENU-CONTAINER))|.
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (MENU-CONTAINER))|.
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (MENU-CONTAINER T T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (MENU-CONTAINER T T T T T T): 
[GC threshold exceeded with 16,093,656 bytes in use.  Commencing GC.]
[GC completed with 10,548,896 bytes retained and 5,544,760 bytes freed.]
[GC will next occur when at least 12,548,896 bytes are in use.]
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clio/menu.lisp

In: DEFMETHOD (SETF MENU-TITLE) (T MENU)
  (MAKE-DISPLAY-TEXT-FIELD :NAME :MENU-TITLE :PARENT (MENU-CONTAINER MENU) ...)
Warning: Undefined function: MAKE-DISPLAY-TEXT-FIELD


Warning: This function is undefined:
  MAKE-DISPLAY-TEXT-FIELD


Compilation unit finished.
  3 warnings


clue:clio/menu.x86f written.
Compilation finished in 0:00:44.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/menu.x86f".
[GC threshold exceeded with 12,549,000 bytes in use.  Commencing GC.]
[GC completed with 10,613,472 bytes retained and 1,935,528 bytes freed.]
[GC will next occur when at least 12,613,472 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:55:43 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/psheet.lisp 20 JUL 90 06:03:50 pm

Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL PROPERTY-SHEET) T))|.
Compiling DEFCONTACT PROPERTY-SHEET: 
[GC threshold exceeded with 15,954,584 bytes in use.  Commencing GC.]
[GC completed with 11,599,384 bytes retained and 4,355,200 bytes freed.]
[GC will next occur when at least 13,599,384 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (PROPERTY-SHEET T T))|.
Compiling DEFCONTACT PROPERTY-SHEET: 
[GC threshold exceeded with 14,884,584 bytes in use.  Commencing GC.]
[GC completed with 10,727,696 bytes retained and 4,156,888 bytes freed.]
[GC will next occur when at least 12,727,696 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF CONTACT-FOREGROUND) :AFTER (T PROPERTY-SHEET))|.
Compiling DEFMETHOD (SETF CONTACT-FOREGROUND) :AFTER (T PROPERTY-SHEET): 
Converted |(PCL::FAST-METHOD PROPERTY-SHEET-AREA (PROPERTY-SHEET))|.
Compiling DEFMETHOD PROPERTY-SHEET-AREA (PROPERTY-SHEET): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DIALOG-DEFAULT-CONTROL (PROPERTY-SHEET))|.
Compiling DEFMETHOD DIALOG-DEFAULT-CONTROL (PROPERTY-SHEET): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PROPERTY-SHEET>: 
Converted |(PCL::FAST-METHOD (SETF DIALOG-DEFAULT-CONTROL) (T PROPERTY-SHEET))|.
Compiling DEFMETHOD (SETF DIALOG-DEFAULT-CONTROL) (T PROPERTY-SHEET): 
Converted |(PCL::FAST-METHOD DIALOG-ACCEPT (PROPERTY-SHEET))|.
Compiling DEFMETHOD DIALOG-ACCEPT (PROPERTY-SHEET): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DIALOG-CANCEL (PROPERTY-SHEET))|.
Compiling DEFMETHOD DIALOG-CANCEL (PROPERTY-SHEET): 
[GC threshold exceeded with 12,826,712 bytes in use.  Commencing GC.]
[GC completed with 11,090,088 bytes retained and 1,736,624 bytes freed.]
[GC will next occur when at least 13,090,088 bytes are in use.]
Converted |(PCL::FAST-METHOD SHELL-MAPPED (PROPERTY-SHEET))|.
Compiling DEFMETHOD SHELL-MAPPED (PROPERTY-SHEET): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-STATE) :AFTER ((EQL :MAPPED) PROPERTY-SHEET))|.
Compiling DEFMETHOD (SETF CONTACT-STATE) :AFTER ((EQL :MAPPED) PROPERTY-SHEET): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SHELL-UNMAPPED :BEFORE (PROPERTY-SHEET))|.
Compiling DEFMETHOD SHELL-UNMAPPED :BEFORE (PROPERTY-SHEET): 
Converted |(PCL::FAST-METHOD DIALOG-WARN (PROPERTY-SHEET T T))|.
Compiling DEFMETHOD DIALOG-WARN (PROPERTY-SHEET T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted MAKE-PROPERTY-SHEET.
Compiling DEFUN MAKE-PROPERTY-SHEET: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (PROPERTY-SHEET))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (PROPERTY-SHEET): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL COMPOSITE>: 
[GC threshold exceeded with 13,904,016 bytes in use.  Commencing GC.]
[GC completed with 11,345,656 bytes retained and 2,558,360 bytes freed.]
[GC will next occur when at least 13,345,656 bytes are in use.]
Compiling DEFCONTACT PROPERTY-SHEET-MANAGER: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL PROPERTY-SHEET-MANAGER) T))|.
Compiling DEFCONTACT PROPERTY-SHEET-MANAGER: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 13,346,496 bytes in use.  Commencing GC.]
[GC completed with 11,775,656 bytes retained and 1,570,840 bytes freed.]
[GC will next occur when at least 13,775,656 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (PROPERTY-SHEET-MANAGER T T))|.
Compiling DEFCONTACT PROPERTY-SHEET-MANAGER: 
[GC threshold exceeded with 14,600,392 bytes in use.  Commencing GC.]
[GC completed with 11,909,536 bytes retained and 2,690,856 bytes freed.]
[GC will next occur when at least 13,909,536 bytes are in use.]
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (PROPERTY-SHEET-MANAGER))|.
Compiling DEFMETHOD CHANGE-LAYOUT (PROPERTY-SHEET-MANAGER): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD ADJUST-LAYOUT (PROPERTY-SHEET-MANAGER))|.
Compiling DEFMETHOD ADJUST-LAYOUT (PROPERTY-SHEET-MANAGER): 
[GC threshold exceeded with 14,295,624 bytes in use.  Commencing GC.]
[GC completed with 12,371,656 bytes retained and 1,923,968 bytes freed.]
[GC will next occur when at least 14,371,656 bytes are in use.]
Converted |(PCL::FAST-METHOD DISPLAY (PROPERTY-SHEET-MANAGER))|.
Compiling DEFMETHOD DISPLAY (PROPERTY-SHEET-MANAGER): 
Converted |(PCL::FAST-METHOD RESCALE :AFTER (PROPERTY-SHEET))|.
Compiling DEFMETHOD RESCALE :AFTER (PROPERTY-SHEET): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (PROPERTY-SHEET-MANAGER T T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (PROPERTY-SHEET-MANAGER T T T T T T): 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (PROPERTY-SHEET-MANAGER))|.
Compiling DEFMETHOD PREFERRED-SIZE (PROPERTY-SHEET-MANAGER): 
Converted |(PCL::FAST-METHOD RESIZE :AFTER (PROPERTY-SHEET-MANAGER T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (PROPERTY-SHEET-MANAGER T T T): 
Compiling DEFEVENT PROPERTY-SHEET-MANAGER: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT PROPERTY-SHEET: 
Converted PROPERTY-SHEET-FORGET-WARP.
Compiling DEFUN PROPERTY-SHEET-FORGET-WARP: 
Converted PROPERTY-SHEET-DISPLAY-MENU.
Compiling DEFUN PROPERTY-SHEET-DISPLAY-MENU: 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clio/psheet.lisp

In: DEFMETHOD DIALOG-WARN (PROPERTY-SHEET T T)
  (DEFMETHOD DIALOG-WARN
             ((SELF PROPERTY-SHEET) MESSAGE FIELD)
             "Display a warning for verification error."
             (ASSERT (OR # #) NIL "~s is not a contact." FIELD)
             ...)
--> BLOCK MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
--> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET 
--> PCL::BIND-LEXICAL-METHOD-FUNCTIONS LET PCL::BIND-ARGS LET* PCL::PV-BINDING 
--> PCL::PV-BINDING1 PCL::PV-ENV LET LET BLOCK LET* IF 
==>
  (CONFIRM-P :MESSAGE ACTUAL-MESSAGE :NEAR
   (LET (#)
     (IF #:G5 #:G5 #))
   ...)
Warning: Undefined function: CONFIRM-P


In: DEFMETHOD INITIALIZE-INSTANCE :AFTER (PROPERTY-SHEET)
  (MAKE-DISPLAY-TEXT-FIELD :PARENT MANAGER :NAME :FOOTER ...)
Warning: Undefined function: MAKE-DISPLAY-TEXT-FIELD


Warning: These functions are undefined:
  CONFIRM-P MAKE-DISPLAY-TEXT-FIELD


Compilation unit finished.
  3 warnings


clue:clio/psheet.x86f written.
Compilation finished in 0:00:27.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/psheet.x86f".
[GC threshold exceeded with 14,375,656 bytes in use.  Commencing GC.]
[GC completed with 12,423,592 bytes retained and 1,952,064 bytes freed.]
[GC will next occur when at least 14,423,592 bytes are in use.]
Compiling LAMBDA (PCL::EFFECTIVE-METHOD-GENSYM-0 PCL::EFFECTIVE-METHOD-GENSYM-1 PCL::EFFECTIVE-METHOD-GENSYM-2): 
Compiling Top-Level Form: 
[GC threshold exceeded with 14,424,512 bytes in use.  Commencing GC.]
[GC completed with 12,648,416 bytes retained and 1,776,096 bytes freed.]
[GC will next occur when at least 14,648,416 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:56:13 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/command.lisp 03 NOV 96 09:19:01 pm

[GC threshold exceeded with 14,651,576 bytes in use.  Commencing GC.]
[GC completed with 10,301,832 bytes retained and 4,349,744 bytes freed.]
[GC will next occur when at least 12,301,832 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL COMMAND) T))|.
Compiling DEFCONTACT COMMAND: 
[GC threshold exceeded with 15,116,232 bytes in use.  Commencing GC.]
[GC completed with 11,516,760 bytes retained and 3,599,472 bytes freed.]
[GC will next occur when at least 13,516,760 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (COMMAND T T))|.
Compiling DEFCONTACT COMMAND: 
[GC threshold exceeded with 15,520,048 bytes in use.  Commencing GC.]
[GC completed with 12,286,928 bytes retained and 3,233,120 bytes freed.]
[GC will next occur when at least 14,286,928 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF CONTACT-FOREGROUND) :AFTER (T COMMAND))|.
Compiling DEFMETHOD (SETF CONTACT-FOREGROUND) :AFTER (T COMMAND): 
Converted MAKE-COMMAND.
Compiling DEFUN MAKE-COMMAND: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD COMMAND-AREA (COMMAND))|.
Compiling DEFMETHOD COMMAND-AREA (COMMAND): 
Converted |(PCL::FAST-METHOD COMMAND-CONTROL-AREA (COMMAND))|.
Compiling DEFMETHOD COMMAND-CONTROL-AREA (COMMAND): 
Converted |(PCL::FAST-METHOD DIALOG-ACCEPT (COMMAND))|.
Compiling DEFMETHOD DIALOG-ACCEPT (COMMAND): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DIALOG-CANCEL (COMMAND))|.
Compiling DEFMETHOD DIALOG-CANCEL (COMMAND): 
Converted |(PCL::FAST-METHOD SHELL-MAPPED (COMMAND))|.
Compiling DEFMETHOD SHELL-MAPPED (COMMAND): 
[GC threshold exceeded with 14,681,104 bytes in use.  Commencing GC.]
[GC completed with 12,703,432 bytes retained and 1,977,672 bytes freed.]
[GC will next occur when at least 14,703,432 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF CONTACT-STATE) :AFTER ((EQL :MAPPED) COMMAND))|.
Compiling DEFMETHOD (SETF CONTACT-STATE) :AFTER ((EQL :MAPPED) COMMAND): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SHELL-UNMAPPED :BEFORE (COMMAND))|.
Compiling DEFMETHOD SHELL-UNMAPPED :BEFORE (COMMAND): 
Converted |(PCL::FAST-METHOD DIALOG-WARN (COMMAND T T))|.
Compiling DEFMETHOD DIALOG-WARN (COMMAND T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted |(PCL::FAST-METHOD COMMAND-DEFAULT-ACCEPT (COMMAND))|.
Converted |(PCL::FAST-METHOD COMMAND-DEFAULT-CANCEL (COMMAND))|.
Converted |(PCL::FAST-METHOD (SETF COMMAND-DEFAULT-ACCEPT) (T COMMAND))|.
Converted |(PCL::FAST-METHOD (SETF COMMAND-DEFAULT-CANCEL) (T COMMAND))|.
Converted |(PCL::FAST-METHOD DIALOG-DEFAULT-CONTROL (COMMAND))|.
Converted |(PCL::FAST-METHOD (SETF DIALOG-DEFAULT-CONTROL) (T COMMAND))|.
Compiling DEFMETHOD (SETF COMMAND-DEFAULT-CANCEL) (T COMMAND): 
Compiling DEFMETHOD (SETF COMMAND-DEFAULT-ACCEPT) (T COMMAND): 
Compiling DEFMETHOD DIALOG-DEFAULT-CONTROL (COMMAND): 
Compiling DEFMETHOD (SETF DIALOG-DEFAULT-CONTROL) (T COMMAND): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL COMMAND>: 
[GC threshold exceeded with 15,248,344 bytes in use.  Commencing GC.]
[GC completed with 13,000,520 bytes retained and 2,247,824 bytes freed.]
[GC will next occur when at least 15,000,520 bytes are in use.]
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (COMMAND))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (COMMAND): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL COMPOSITE>: 
Compiling DEFCONTACT COMMAND-SHEET: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL COMMAND-SHEET) T))|.
Compiling DEFCONTACT COMMAND-SHEET: 
[GC threshold exceeded with 15,648,080 bytes in use.  Commencing GC.]
[GC completed with 13,555,984 bytes retained and 2,092,096 bytes freed.]
[GC will next occur when at least 15,555,984 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (COMMAND-SHEET T T))|.
Compiling DEFCONTACT COMMAND-SHEET: 
[GC threshold exceeded with 16,607,776 bytes in use.  Commencing GC.]
[GC completed with 12,218,656 bytes retained and 4,389,120 bytes freed.]
[GC will next occur when at least 14,218,656 bytes are in use.]
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (COMMAND-SHEET))|.
Compiling DEFMETHOD CHANGE-LAYOUT (COMMAND-SHEET): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD ADJUST-LAYOUT (COMMAND-SHEET))|.
Compiling DEFMETHOD ADJUST-LAYOUT (COMMAND-SHEET): 
[GC threshold exceeded with 14,559,336 bytes in use.  Commencing GC.]
[GC completed with 12,712,512 bytes retained and 1,846,824 bytes freed.]
[GC will next occur when at least 14,712,512 bytes are in use.]
Converted |(PCL::FAST-METHOD DISPLAY (COMMAND-SHEET))|.
Compiling DEFMETHOD DISPLAY (COMMAND-SHEET): 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (COMMAND-SHEET T T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (COMMAND-SHEET T T T T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (COMMAND-SHEET))|.
Compiling DEFMETHOD PREFERRED-SIZE (COMMAND-SHEET): 
Converted |(PCL::FAST-METHOD RESIZE :AFTER (COMMAND-SHEET T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (COMMAND-SHEET T T T): 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clio/command.lisp

In: DEFMETHOD INITIALIZE-INSTANCE :AFTER (COMMAND)
  (SETF (COMMAND-DEFAULT-ACCEPT SELF) DEFAULT-ACCEPT)
--> LET* MULTIPLE-VALUE-BIND LET FUNCALL C::%FUNCALL 
==>
  #'(SETF COMMAND-DEFAULT-ACCEPT)
Warning: Undefined function: (SETF COMMAND-DEFAULT-ACCEPT)

  (SETF (COMMAND-DEFAULT-CANCEL SELF) DEFAULT-CANCEL)
--> LET* MULTIPLE-VALUE-BIND LET FUNCALL C::%FUNCALL 
==>
  #'(SETF COMMAND-DEFAULT-CANCEL)
Warning: Undefined function: (SETF COMMAND-DEFAULT-CANCEL)


In: DEFMETHOD DIALOG-WARN (COMMAND T T)
  (DEFMETHOD DIALOG-WARN
             ((SELF COMMAND) MESSAGE FIELD)
             "Display a warning for verification error."
             (ASSERT (OR # #) NIL "~s is not a contact." FIELD)
             ...)
--> BLOCK MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
--> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET 
--> PCL::BIND-LEXICAL-METHOD-FUNCTIONS LET PCL::BIND-ARGS LET* PCL::PV-BINDING 
--> PCL::PV-BINDING1 PCL::PV-ENV LET LET BLOCK LET* IF 
==>
  (CONFIRM-P :MESSAGE ACTUAL-MESSAGE :NEAR
   (LET (#)
     (IF #:G5 #:G5 #))
   ...)
Warning: Undefined function: CONFIRM-P


In: DEFMETHOD INITIALIZE-INSTANCE :AFTER (COMMAND)
  (MAKE-DISPLAY-TEXT-FIELD :PARENT SHEET :NAME :FOOTER ...)
Warning: Undefined function: MAKE-DISPLAY-TEXT-FIELD


Warning: These functions are undefined:
  (SETF COMMAND-DEFAULT-ACCEPT) (SETF COMMAND-DEFAULT-CANCEL) CONFIRM-P 
  MAKE-DISPLAY-TEXT-FIELD


Compilation unit finished.
  5 warnings


clue:clio/command.x86f written.
Compilation finished in 0:00:31.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/command.x86f".
[GC threshold exceeded with 14,716,240 bytes in use.  Commencing GC.]
[GC completed with 12,698,896 bytes retained and 2,017,344 bytes freed.]
[GC will next occur when at least 14,698,896 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:56:47 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/confirm.lisp 07 MAR 97 05:10:43 pm

Converted QUADRANT-GRAVITY.
Compiling DEFUN QUADRANT-GRAVITY: 
Converted FIND-CONFIRM-SHEET.
Compiling DEFUN FIND-CONFIRM-SHEET: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 14,699,224 bytes in use.  Commencing GC.]
[GC completed with 13,062,664 bytes retained and 1,636,560 bytes freed.]
[GC will next occur when at least 15,062,664 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL CONFIRM-SHEET) T))|.
Compiling DEFCONTACT CONFIRM-SHEET: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (CONFIRM-SHEET T T))|.
Compiling DEFCONTACT CONFIRM-SHEET: 
[GC threshold exceeded with 17,038,088 bytes in use.  Commencing GC.]
[GC completed with 13,446,128 bytes retained and 3,591,960 bytes freed.]
[GC will next occur when at least 15,446,128 bytes are in use.]
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT CONFIRM: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL CONFIRM) T))|.
Compiling DEFCONTACT CONFIRM: 
[GC threshold exceeded with 15,954,024 bytes in use.  Commencing GC.]
[GC completed with 13,958,328 bytes retained and 1,995,696 bytes freed.]
[GC will next occur when at least 15,958,328 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (CONFIRM T T))|.
Compiling DEFCONTACT CONFIRM: 
[GC threshold exceeded with 17,415,728 bytes in use.  Commencing GC.]
[GC completed with 12,721,048 bytes retained and 4,694,680 bytes freed.]
[GC will next occur when at least 14,721,048 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF CONTACT-FOREGROUND) :AFTER (T CONFIRM))|.
Compiling DEFMETHOD (SETF CONTACT-FOREGROUND) :AFTER (T CONFIRM): 
Byte Compiling Top-Level Form: 
Converted MAKE-CONFIRM.
Compiling DEFUN MAKE-CONFIRM: 
Converted FIND-ACCEPT-BUTTON.
Compiling DEFUN FIND-ACCEPT-BUTTON: 
Converted FIND-CANCEL-BUTTON.
Compiling DEFUN FIND-CANCEL-BUTTON: 
Converted FIND-MESSAGE-AREA.
Compiling DEFUN FIND-MESSAGE-AREA: 
Converted |(PCL::FAST-METHOD DIALOG-DEFAULT-CONTROL (CONFIRM))|.
Compiling DEFMETHOD DIALOG-DEFAULT-CONTROL (CONFIRM): 
Converted |(PCL::FAST-METHOD (SETF DIALOG-DEFAULT-CONTROL) (T CONFIRM))|.
Compiling DEFMETHOD (SETF DIALOG-DEFAULT-CONTROL) (T CONFIRM): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONFIRM>: 
Converted |(PCL::FAST-METHOD CONFIRM-ACCEPT-ONLY (CONFIRM))|.
Compiling DEFMETHOD CONFIRM-ACCEPT-ONLY (CONFIRM): 
Converted |(PCL::FAST-METHOD (SETF CONFIRM-ACCEPT-ONLY) (T CONFIRM))|.
Compiling DEFMETHOD (SETF CONFIRM-ACCEPT-ONLY) (T CONFIRM): 
Converted |(PCL::FAST-METHOD CONFIRM-MESSAGE (CONFIRM))|.
Compiling DEFMETHOD CONFIRM-MESSAGE (CONFIRM): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CONFIRM-MESSAGE) (T CONFIRM))|.
Compiling DEFMETHOD (SETF CONFIRM-MESSAGE) (T CONFIRM): 
Converted |(PCL::FAST-METHOD CONFIRM-ACCEPT-LABEL (CONFIRM))|.
Compiling DEFMETHOD CONFIRM-ACCEPT-LABEL (CONFIRM): 
Converted |(PCL::FAST-METHOD (SETF CONFIRM-ACCEPT-LABEL) (T CONFIRM))|.
Compiling DEFMETHOD (SETF CONFIRM-ACCEPT-LABEL) (T CONFIRM): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CONFIRM-CANCEL-LABEL (CONFIRM))|.
Compiling DEFMETHOD CONFIRM-CANCEL-LABEL (CONFIRM): 
Converted |(PCL::FAST-METHOD (SETF CONFIRM-CANCEL-LABEL) :AFTER (T CONFIRM))|.
Compiling DEFMETHOD (SETF CONFIRM-CANCEL-LABEL) :AFTER (T CONFIRM): 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (CONFIRM))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (CONFIRM): 
[GC threshold exceeded with 15,176,264 bytes in use.  Commencing GC.]
[GC completed with 13,257,728 bytes retained and 1,918,536 bytes freed.]
[GC will next occur when at least 15,257,728 bytes are in use.]
Converted |(PCL::FAST-METHOD DIALOG-ACCEPT (CONFIRM))|.
Compiling DEFMETHOD DIALOG-ACCEPT (CONFIRM): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DIALOG-CANCEL (CONFIRM))|.
Compiling DEFMETHOD DIALOG-CANCEL (CONFIRM): 
Converted |(PCL::FAST-METHOD SHELL-MAPPED (CONFIRM))|.
Converted |(PCL::FAST-METHOD DISPLAY (CONFIRM-SHEET))|.
Compiling DEFMETHOD SHELL-MAPPED (CONFIRM): 
Compiling LABELS ((CALCULATE-UPPER-SHADOW-VERTICES # "Determine the two sets of points for drawing the upper triangular shadow" #) (CALCULATE-LOWER-SHADOW-VERTICES # "Determine the two sets of points for drawing the lower triangular shadow" #) (DRAW-CONFIRM-TRIANGULAR-SHADOWS # "Draw two triangular shadows originating from NEAR given the calculated vertices" # #)): 
[GC threshold exceeded with 17,736,368 bytes in use.  Commencing GC.]
[GC completed with 13,773,432 bytes retained and 3,962,936 bytes freed.]
[GC will next occur when at least 15,773,432 bytes are in use.]
Compiling DEFEVENT CONFIRM: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD POINTER-OFF-CONFIRM (CONFIRM))|.
Compiling DEFMETHOD POINTER-OFF-CONFIRM (CONFIRM): 
Converted |(PCL::FAST-METHOD SHELL-UNMAPPED :BEFORE (CONFIRM))|.
Compiling DEFMETHOD SHELL-UNMAPPED :BEFORE (CONFIRM): 
Converted |(PCL::FAST-METHOD CHANGE-LAYOUT (CONFIRM-SHEET))|.
Compiling DEFMETHOD CHANGE-LAYOUT (CONFIRM-SHEET): 
[GC threshold exceeded with 16,519,160 bytes in use.  Commencing GC.]
[GC completed with 14,309,304 bytes retained and 2,209,856 bytes freed.]
[GC will next occur when at least 16,309,304 bytes are in use.]
Converted |(PCL::FAST-METHOD RESIZE :AFTER (CONFIRM-SHEET T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (CONFIRM-SHEET T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MANAGE-GEOMETRY (CONFIRM-SHEET T T T T T T))|.
Compiling DEFMETHOD MANAGE-GEOMETRY (CONFIRM-SHEET T T T T T T): 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (CONFIRM-SHEET))|.
Compiling DEFMETHOD PREFERRED-SIZE (CONFIRM-SHEET): 
Converted TOP-LEVEL-CONFIRMS.
Compiling DEFMACRO TOP-LEVEL-CONFIRMS: 
Converted CONFIRM-P.
Compiling DEFUN CONFIRM-P: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PRESENT-DIALOG (CONFIRM))|.
Compiling DEFMETHOD PRESENT-DIALOG (CONFIRM): 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clio/confirm.lisp

In: DEFMETHOD INITIALIZE-INSTANCE :AFTER (CONFIRM)
  (MAKE-DISPLAY-TEXT :NAME :MESSAGE :PARENT SHEET ...)
Warning: Undefined function: MAKE-DISPLAY-TEXT


Warning: This function is undefined:
  MAKE-DISPLAY-TEXT


Compilation unit finished.
  2 warnings


clue:clio/confirm.x86f written.
Compilation finished in 0:00:26.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/confirm.x86f".
[GC threshold exceeded with 16,314,888 bytes in use.  Commencing GC.]
[GC completed with 14,489,808 bytes retained and 1,825,080 bytes freed.]
[GC will next occur when at least 16,489,808 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:57:16 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/buffer.lisp 08 MAR 97 10:45:07 pm

Compiling DEFTYPE BUFFER-CHARACTER: 
Converted DEFSTRUCT*.
Compiling DEFMACRO DEFSTRUCT*: 
Converted VECTOR-INSERT.
Compiling DEFUN VECTOR-INSERT: 
[GC threshold exceeded with 17,075,160 bytes in use.  Commencing GC.]
[GC completed with 14,892,696 bytes retained and 2,182,464 bytes freed.]
[GC will next occur when at least 16,892,696 bytes are in use.]
Converted VECTOR-DELETE.
Compiling DEFUN VECTOR-DELETE: 
Converted VECTOR-APPEND.
Compiling DEFUN VECTOR-APPEND: 
Byte Compiling Top-Level Form: 
Converted MAKE-BUFFER-LINE.
Compiling DEFSTRUCT* BUFFER-LINE: 
Converted |(PCL::FAST-METHOD PRINT-OBJECT (BUFFER-LINE T))|.
Compiling DEFMETHOD PRINT-OBJECT (BUFFER-LINE T): 
Converted |(PCL::FAST-METHOD BUFFER-LINE-INSERT (BUFFER-LINE T NULL))|.
Compiling DEFMETHOD BUFFER-LINE-INSERT (BUFFER-LINE T NULL): 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL BUFFER-LINE>: 
Converted |(PCL::FAST-METHOD BUFFER-LINE-INSERT (BUFFER-LINE STRING INTEGER))|.
Compiling DEFMETHOD BUFFER-LINE-INSERT (BUFFER-LINE STRING INTEGER): 
Converted |(PCL::FAST-METHOD BUFFER-LINE-INSERT (BUFFER-LINE CHARACTER INTEGER))|.
Compiling DEFMETHOD BUFFER-LINE-INSERT (BUFFER-LINE CHARACTER INTEGER): 
Converted |(PCL::FAST-METHOD BUFFER-LINE-INSERT (BUFFER-LINE BUFFER-LINE T))|.
Compiling DEFMETHOD BUFFER-LINE-INSERT (BUFFER-LINE BUFFER-LINE T): 
Converted BUFFER-LINE-DELETE.
Compiling DEFUN BUFFER-LINE-DELETE: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted MAKE-BUFFER.
Compiling DEFSTRUCT* BUFFER: 
Converted |(PCL::FAST-METHOD PRINT-OBJECT (BUFFER T))|.
Compiling DEFMETHOD PRINT-OBJECT (BUFFER T): 
[GC threshold exceeded with 16,898,280 bytes in use.  Commencing GC.]
[GC completed with 14,283,152 bytes retained and 2,615,128 bytes freed.]
[GC will next occur when at least 16,283,152 bytes are in use.]
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL BUFFER>: 
Converted MAKE-MARK.
Compiling DEFSTRUCT* MARK: 
Compiling DEFTYPE TEXT-MARK: 
Converted MARK-LINE.
Compiling DEFUN MARK-LINE: 
Converted |(PCL::FAST-METHOD MOVE-MARK (MARK MARK))|.
Compiling DEFMETHOD MOVE-MARK (MARK MARK): 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL MARK>: 
Converted |(PCL::FAST-METHOD MOVE-MARK (MARK INTEGER))|.
Compiling DEFMETHOD MOVE-MARK (MARK INTEGER): 
Converted |(PCL::FAST-METHOD MOVE-MARK (T T))|.
Compiling DEFMETHOD MOVE-MARK (T T): 
Converted |(PCL::FAST-METHOD PRINT-OBJECT (MARK T))|.
Compiling DEFMETHOD PRINT-OBJECT (MARK T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MARK-EQUAL (MARK MARK))|.
Compiling DEFMETHOD MARK-EQUAL (MARK MARK): 
Converted |(PCL::FAST-METHOD MARK-EQUAL (T T))|.
Compiling DEFMETHOD MARK-EQUAL (T T): 
Converted |(PCL::FAST-METHOD MARK-EQUAL (MARK T))|.
Converted |(PCL::FAST-METHOD MARK-EQUAL (T MARK))|.
Compiling DEFMETHOD MARK-EQUAL (MARK T): 
Compiling DEFMETHOD MARK-EQUAL (T MARK): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MARK-RANGE (T MARK MARK))|.
Compiling DEFMETHOD MARK-RANGE (T MARK MARK): 
Converted |(PCL::FAST-METHOD MARK-RANGE (T MARK T))|.
Compiling DEFMETHOD MARK-RANGE (T MARK T): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MARK-RANGE (T INTEGER INTEGER))|.
Compiling DEFMETHOD MARK-RANGE (T INTEGER INTEGER): 
Converted |(PCL::FAST-METHOD MARK-RANGE (T INTEGER T))|.
Compiling DEFMETHOD MARK-RANGE (T INTEGER T): 
Converted |(PCL::FAST-METHOD MARK-RANGE (T NULL T))|.
Compiling DEFMETHOD MARK-RANGE (T NULL T): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 16,287,928 bytes in use.  Commencing GC.]
[GC completed with 14,668,520 bytes retained and 1,619,408 bytes freed.]
[GC will next occur when at least 16,668,520 bytes are in use.]
Converted |(PCL::FAST-METHOD BUFFER-MARK-POSITION (T MARK))|.
Compiling DEFMETHOD BUFFER-MARK-POSITION (T MARK): 
Converted |(PCL::FAST-METHOD BUFFER-MARK-POSITION (T INTEGER))|.
Compiling DEFMETHOD BUFFER-MARK-POSITION (T INTEGER): 
Converted |(PCL::FAST-METHOD BUFFER-MARK-POSITION (T NULL))|.
Compiling DEFMETHOD BUFFER-MARK-POSITION (T NULL): 
Converted PARSE-SOURCE.
Compiling DEFUN PARSE-SOURCE: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-INSERT (BUFFER-LINE T MARK))|.
Compiling DEFMETHOD BUFFER-INSERT (BUFFER-LINE T MARK): 
Converted |(PCL::FAST-METHOD BUFFER-INSERT (BUFFER-LINE T NULL))|.
Compiling DEFMETHOD BUFFER-INSERT (BUFFER-LINE T NULL): 
Converted |(PCL::FAST-METHOD BUFFER-INSERT (BUFFER-LINE STRING INTEGER))|.
Compiling DEFMETHOD BUFFER-INSERT (BUFFER-LINE STRING INTEGER): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-INSERT (BUFFER-LINE CHARACTER INTEGER))|.
Compiling DEFMETHOD BUFFER-INSERT (BUFFER-LINE CHARACTER INTEGER): 
Converted |(PCL::FAST-METHOD BUFFER-INSERT (BUFFER STRING MARK))|.
Compiling DEFMETHOD BUFFER-INSERT (BUFFER STRING MARK): 
Converted |(PCL::FAST-METHOD BUFFER-INSERT (BUFFER CHARACTER MARK))|.
Compiling DEFMETHOD BUFFER-INSERT (BUFFER CHARACTER MARK): 
Converted |(PCL::FAST-METHOD BUFFER-INSERT (BUFFER T NULL))|.
Converted |(PCL::FAST-METHOD BUFFER-INSERT (BUFFER T INTEGER))|.
Compiling DEFMETHOD BUFFER-INSERT (BUFFER T NULL): 
Compiling DEFMETHOD BUFFER-INSERT (BUFFER T INTEGER): 
Compiling Top-Level Form: 
[GC threshold exceeded with 16,954,160 bytes in use.  Commencing GC.]
[GC completed with 14,961,472 bytes retained and 1,992,688 bytes freed.]
[GC will next occur when at least 16,961,472 bytes are in use.]
Converted BUFFER-POSITION-MARK.
Compiling DEFUN BUFFER-POSITION-MARK: 
Converted |(PCL::FAST-METHOD BUFFER-DELETE (BUFFER-LINE MARK T))|.
Compiling DEFMETHOD BUFFER-DELETE (BUFFER-LINE MARK T): 
Converted |(PCL::FAST-METHOD BUFFER-DELETE (BUFFER-LINE T MARK))|.
Compiling DEFMETHOD BUFFER-DELETE (BUFFER-LINE T MARK): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-DELETE (BUFFER-LINE MARK MARK))|.
Compiling DEFMETHOD BUFFER-DELETE (BUFFER-LINE MARK MARK): 
Converted |(PCL::FAST-METHOD BUFFER-DELETE (BUFFER-LINE INTEGER T))|.
Compiling DEFMETHOD BUFFER-DELETE (BUFFER-LINE INTEGER T): 
Converted |(PCL::FAST-METHOD BUFFER-DELETE (BUFFER INTEGER T))|.
Compiling DEFMETHOD BUFFER-DELETE (BUFFER INTEGER T): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-DELETE (BUFFER T INTEGER))|.
Compiling DEFMETHOD BUFFER-DELETE (BUFFER T INTEGER): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-DELETE (BUFFER MARK NULL))|.
Compiling DEFMETHOD BUFFER-DELETE (BUFFER MARK NULL): 
Converted |(PCL::FAST-METHOD BUFFER-DELETE (BUFFER MARK MARK))|.
Compiling DEFMETHOD BUFFER-DELETE (BUFFER MARK MARK): 
Converted |(PCL::FAST-METHOD BUFFER-LENGTH (BUFFER-LINE))|.
Compiling DEFMETHOD BUFFER-LENGTH (BUFFER-LINE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-LENGTH (BUFFER))|.
Compiling DEFMETHOD BUFFER-LENGTH (BUFFER): 
[GC threshold exceeded with 17,118,160 bytes in use.  Commencing GC.]
[GC completed with 15,453,792 bytes retained and 1,664,368 bytes freed.]
[GC will next occur when at least 17,453,792 bytes are in use.]
Converted |(PCL::FAST-METHOD BUFFER-SUBSEQ (BUFFER-LINE MARK T))|.
Compiling DEFMETHOD BUFFER-SUBSEQ (BUFFER-LINE MARK T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-SUBSEQ (BUFFER-LINE T MARK))|.
Compiling DEFMETHOD BUFFER-SUBSEQ (BUFFER-LINE T MARK): 
Converted |(PCL::FAST-METHOD BUFFER-SUBSEQ (BUFFER-LINE INTEGER INTEGER))|.
Compiling DEFMETHOD BUFFER-SUBSEQ (BUFFER-LINE INTEGER INTEGER): 
Converted |(PCL::FAST-METHOD BUFFER-SUBSEQ (BUFFER-LINE INTEGER NULL))|.
Compiling DEFMETHOD BUFFER-SUBSEQ (BUFFER-LINE INTEGER NULL): 
Converted |(PCL::FAST-METHOD BUFFER-SUBSEQ (BUFFER INTEGER T))|.
Compiling DEFMETHOD BUFFER-SUBSEQ (BUFFER INTEGER T): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-SUBSEQ (BUFFER T INTEGER))|.
Compiling DEFMETHOD BUFFER-SUBSEQ (BUFFER T INTEGER): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-SUBSEQ (BUFFER T NULL))|.
Compiling DEFMETHOD BUFFER-SUBSEQ (BUFFER T NULL): 
Converted |(PCL::FAST-METHOD BUFFER-SUBSEQ (BUFFER MARK MARK))|.
Compiling DEFMETHOD BUFFER-SUBSEQ (BUFFER MARK MARK): 
Converted |(PCL::FAST-METHOD BUFFER-NUMBER-LINES (BUFFER-LINE))|.
Compiling DEFMETHOD BUFFER-NUMBER-LINES (BUFFER-LINE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-NUMBER-LINES (BUFFER))|.
Compiling DEFMETHOD BUFFER-NUMBER-LINES (BUFFER): 
Converted |(PCL::FAST-METHOD BUFFER-LINE (BUFFER-LINE T))|.
Compiling DEFMETHOD BUFFER-LINE (BUFFER-LINE T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-LINE (BUFFER T))|.
Compiling DEFMETHOD BUFFER-LINE (BUFFER T): 
Converted |(PCL::FAST-METHOD BUFFER-MOVE-MARK (BUFFER-LINE INTEGER))|.
Compiling DEFMETHOD BUFFER-MOVE-MARK (BUFFER-LINE INTEGER): 
Converted |(PCL::FAST-METHOD BUFFER-MOVE-MARK (BUFFER-LINE NULL))|.
Compiling DEFMETHOD BUFFER-MOVE-MARK (BUFFER-LINE NULL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-MOVE-MARK (BUFFER MARK))|.
Compiling DEFMETHOD BUFFER-MOVE-MARK (BUFFER MARK): 
Compiling Top-Level Form: 
[GC threshold exceeded with 18,875,192 bytes in use.  Commencing GC.]
[GC completed with 15,429,664 bytes retained and 3,445,528 bytes freed.]
[GC will next occur when at least 17,429,664 bytes are in use.]
Converted |(PCL::FAST-METHOD BUFFER-TEXT-EXTENTS (BUFFER-LINE T T T))|.
Compiling DEFMETHOD BUFFER-TEXT-EXTENTS (BUFFER-LINE T T T): 
Converted |(PCL::FAST-METHOD BUFFER-SOL (BUFFER-LINE T))|.
Compiling DEFMETHOD BUFFER-SOL (BUFFER-LINE T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-SOL (BUFFER MARK))|.
Converted |(PCL::FAST-METHOD BUFFER-SOL (BUFFER T))|.
Compiling DEFMETHOD BUFFER-SOL (BUFFER MARK): 
Compiling DEFMETHOD BUFFER-SOL (BUFFER T): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD BUFFER-EOL (BUFFER-LINE T))|.
Compiling DEFMETHOD BUFFER-EOL (BUFFER-LINE T): 
Converted |(PCL::FAST-METHOD BUFFER-EOL (BUFFER MARK))|.
Converted |(PCL::FAST-METHOD BUFFER-EOL (BUFFER T))|.
Compiling DEFMETHOD BUFFER-EOL (BUFFER MARK): 
Compiling DEFMETHOD BUFFER-EOL (BUFFER T): 
Compiling Top-Level Form: 

clue:clio/buffer.x86f written.
Compilation finished in 0:00:19.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/buffer.x86f".
[GC threshold exceeded with 17,430,264 bytes in use.  Commencing GC.]
[GC completed with 15,744,352 bytes retained and 1,685,912 bytes freed.]
[GC will next occur when at least 17,744,352 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:57:37 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/text-command.lisp 19 JUL 90 08:16:02 pm

Compiling DEFTYPE TEXT-COMMAND-TABLE: 
Converted TEXT-COMMAND.
Compiling DEFMACRO TEXT-COMMAND: 
Converted MAKE-TEXT-COMMAND-TABLE.
Compiling DEFUN MAKE-TEXT-COMMAND-TABLE: 
Byte Compiling Top-Level Form: 

clue:clio/text-command.x86f written.
Compilation finished in 0:00:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/text-command.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:57:38 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp 07 MAR 97 06:45:46 pm

Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (SELECT-TEXT T T))|.
Compiling DEFCONTACT SELECT-TEXT: 
Converted |(PCL::FAST-METHOD (SETF TEXT-SELECTION-DISPLAYED-P) (T SELECT-TEXT))|.
Compiling DEFMETHOD (SETF TEXT-SELECTION-DISPLAYED-P) (T SELECT-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFUN TEXT-SELECTION-RANGE
  (WITH-SLOTS (POINT MARK BUFFER)
              (THE SELECT-TEXT TEXT)
              (MULTIPLE-VALUE-BIND
                  (START END EQUAL-P)
                  (MARK-RANGE BUFFER POINT MARK) ..))
Warning: Slot BUFFER not defined in class SELECT-TEXT.

Converted TEXT-SELECTION-RANGE.
Compiling DEFUN TEXT-SELECTION-RANGE: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL SELECT-TEXT>: 
Converted |(PCL::FAST-METHOD DISPLAY-TEXT-SELECTION (SELECT-TEXT))|.
Compiling DEFMETHOD DISPLAY-TEXT-SELECTION (SELECT-TEXT): 
Byte Compiling Top-Level Form: 
Converted WHILE-CHANGING-MARKS.
Compiling DEFMACRO WHILE-CHANGING-MARKS: 
Converted |(PCL::FAST-METHOD (SETF EDIT-TEXT-MARK) (T SELECT-TEXT))|.
Compiling DEFMETHOD (SETF EDIT-TEXT-MARK) (T SELECT-TEXT): 
[GC threshold exceeded with 18,010,384 bytes in use.  Commencing GC.]
[GC completed with 16,089,024 bytes retained and 1,921,360 bytes freed.]
[GC will next occur when at least 18,089,024 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF EDIT-TEXT-POINT) (T SELECT-TEXT))|.
Compiling DEFMETHOD (SETF EDIT-TEXT-POINT) (T SELECT-TEXT): 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-TEXT-SOURCE) :AFTER (T SELECT-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-TEXT-SOURCE) :AFTER (T SELECT-TEXT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISPLAY-TEXT-COPY (SELECT-TEXT))|.
Compiling DEFMETHOD DISPLAY-TEXT-COPY (SELECT-TEXT): 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (SELECT-TEXT))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (SELECT-TEXT): 
Compiling DEFEVENT SELECT-TEXT: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT SELECT-TEXT: 
Compiling DEFEVENT SELECT-TEXT: 
Compiling DEFEVENT SELECT-TEXT: 
Compiling DEFEVENT SELECT-TEXT: 
Compiling DEFEVENT SELECT-TEXT: 
Compiling DEFEVENT SELECT-TEXT: 
[GC threshold exceeded with 18,130,992 bytes in use.  Commencing GC.]
[GC completed with 16,518,224 bytes retained and 1,612,768 bytes freed.]
[GC will next occur when at least 18,518,224 bytes are in use.]

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFUN TEXT-START-SELECTION
  (WITH-SLOTS (DISPLAY MARK POINT BUFFER)
              (THE SELECT-TEXT TEXT)
              (WITH-EVENT (X Y TIME) (SETF # NIL) (WHILE-CHANGING-MARKS # #)))
Warning: Slot DISPLAY not defined in class SELECT-TEXT.
Warning: Slot BUFFER not defined in class SELECT-TEXT.

Converted TEXT-START-SELECTION.
Converted TEXT-DRAG-SELECTION.

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFUN TEXT-ADJUST-SELECTION
  (WITH-SLOTS (POINT BUFFER)
              (THE SELECT-TEXT TEXT)
              (APPLY-CALLBACK TEXT
                              :POINT
                              TEXT ..))
Warning: Slot BUFFER not defined in class SELECT-TEXT.

Converted TEXT-ADJUST-SELECTION.
Compiling DEFUN TEXT-START-SELECTION: 
Compiling DEFUN TEXT-DRAG-SELECTION: 
Compiling DEFUN TEXT-ADJUST-SELECTION: 
Compiling Top-Level Form: 
Converted TEXT-HANDLE-RELEASE.
Compiling DEFUN TEXT-HANDLE-RELEASE: 
Converted DISPLAY-SELECTION-OWNER.
Compiling DEFUN DISPLAY-SELECTION-OWNER: 
Compiling DEFSETF DISPLAY-SELECTION-OWNER: 
Converted SETF-DISPLAY-SELECTION-OWNER.
Compiling DEFUN SETF-DISPLAY-SELECTION-OWNER: 
Converted |(PCL::FAST-METHOD TEXT-SELECTION-CLEAR (CONTACT T))|.
Compiling DEFMETHOD TEXT-SELECTION-CLEAR (CONTACT T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-SELECTION-CLEAR (CONTACT NULL))|.
Compiling DEFMETHOD TEXT-SELECTION-CLEAR (CONTACT NULL): 
Converted |(PCL::FAST-METHOD TEXT-SELECTION-CLEAR :AFTER (SELECT-TEXT (EQL :PRIMARY)))|.
Compiling DEFMETHOD TEXT-SELECTION-CLEAR :AFTER (SELECT-TEXT (EQL :PRIMARY)): 
[GC threshold exceeded with 18,634,408 bytes in use.  Commencing GC.]
[GC completed with 11,237,632 bytes retained and 7,396,776 bytes freed.]
[GC will next occur when at least 13,237,632 bytes are in use.]
Converted TEXT-SELECTION-REQUEST.
Compiling DEFUN TEXT-SELECTION-REQUEST: 
Converted SELECTION-NOTIFY.
Compiling DEFUN SELECTION-NOTIFY: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-CONVERT-SELECTION (T T T T T))|.
Compiling DEFMETHOD TEXT-CONVERT-SELECTION (T T T T T): 
Converted |(PCL::FAST-METHOD TEXT-CONVERT-SELECTION :AROUND (T T NULL T T))|.
Compiling DEFMETHOD TEXT-CONVERT-SELECTION :AROUND (T T NULL T T): 
Converted |(PCL::FAST-METHOD TEXT-CONVERT-SELECTION :AROUND (CONTACT T T (EQL :MULTIPLE) T))|.
Compiling DEFMETHOD TEXT-CONVERT-SELECTION :AROUND (CONTACT T T (EQL :MULTIPLE) T): 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In:
    FLET ((CONVERT-TEXT (TEXT SELECTION PROPERTY TARGET TIME) (DECLARE #)
        (WITH-SLOTS # # #)))
  (WITH-SLOTS (DISPLAY BUFFER)
              (THE SELECT-TEXT TEXT)
              (MULTIPLE-VALUE-BIND
                  (OWNER OWNER-TIME)
                  (DISPLAY-SELECTION-OWNER DISPLAY SELECTION) ..))
Warning: Slot DISPLAY not defined in class SELECT-TEXT.
Warning: Slot BUFFER not defined in class SELECT-TEXT.

Converted |(PCL::FAST-METHOD TEXT-CONVERT-SELECTION (SELECT-TEXT (EQL :PRIMARY) T T T))|.
Converted |(PCL::FAST-METHOD TEXT-CONVERT-SELECTION (SELECT-TEXT (EQL :CLIPBOARD) T T T))|.
Compiling DEFMETHOD TEXT-CONVERT-SELECTION (SELECT-TEXT (EQL :CLIPBOARD) T T T): 
Converted |(PCL::FAST-METHOD TEXT-SELECTION-STRING (SELECT-TEXT (EQL :PRIMARY)))|.
Compiling DEFMETHOD TEXT-SELECTION-STRING (SELECT-TEXT (EQL :PRIMARY)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-OWN-SELECTION (CONTACT T T))|.
Compiling DEFMETHOD TEXT-OWN-SELECTION (CONTACT T T): 
[GC threshold exceeded with 13,848,120 bytes in use.  Commencing GC.]
[GC completed with 11,750,528 bytes retained and 2,097,592 bytes freed.]
[GC will next occur when at least 13,750,528 bytes are in use.]
Converted |(PCL::FAST-METHOD TEXT-OWN-SELECTION (SELECT-TEXT (EQL :PRIMARY) T))|.
Compiling DEFMETHOD TEXT-OWN-SELECTION (SELECT-TEXT (EQL :PRIMARY) T): 
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT DISPLAY-TEXT-FIELD: 
Compiling DEFCONTACT DISPLAY-TEXT-FIELD: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL DISPLAY-TEXT-FIELD) T))|.
Compiling DEFCONTACT DISPLAY-TEXT-FIELD: 
[GC threshold exceeded with 14,644,688 bytes in use.  Commencing GC.]
[GC completed with 12,018,504 bytes retained and 2,626,184 bytes freed.]
[GC will next occur when at least 14,018,504 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (DISPLAY-TEXT-FIELD T T))|.
Compiling DEFCONTACT DISPLAY-TEXT-FIELD: 
[GC threshold exceeded with 15,671,808 bytes in use.  Commencing GC.]
[GC completed with 12,769,808 bytes retained and 2,902,000 bytes freed.]
[GC will next occur when at least 14,769,808 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-TEXT-FONT) (T DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD (SETF DISPLAY-TEXT-FONT) (T DISPLAY-TEXT-FIELD): 
Converted |(PCL::FAST-METHOD DISPLAY-TEXT-SOURCE (DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD DISPLAY-TEXT-SOURCE (DISPLAY-TEXT-FIELD): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-TEXT-SOURCE) (T DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD (SETF DISPLAY-TEXT-SOURCE) (T DISPLAY-TEXT-FIELD): 
Converted MAKE-DISPLAY-TEXT-FIELD.
Compiling DEFUN MAKE-DISPLAY-TEXT-FIELD: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (DISPLAY-TEXT-FIELD): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISPLAY (DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD DISPLAY (DISPLAY-TEXT-FIELD): 
Converted TEXT-DISPLAY-CHARS.
Compiling DEFUN TEXT-DISPLAY-CHARS: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL DISPLAY-TEXT-FIELD>: 
[GC threshold exceeded with 14,880,816 bytes in use.  Commencing GC.]
[GC completed with 12,681,344 bytes retained and 2,199,472 bytes freed.]
[GC will next occur when at least 14,681,344 bytes are in use.]
Converted |(PCL::FAST-METHOD TEXT-REFRESH-LINE (DISPLAY-TEXT-FIELD INTEGER))|.
Compiling DEFMETHOD TEXT-REFRESH-LINE (DISPLAY-TEXT-FIELD INTEGER): 
Converted |(PCL::FAST-METHOD TEXT-REFRESH-LINE (DISPLAY-TEXT-FIELD NULL))|.
Compiling DEFMETHOD TEXT-REFRESH-LINE (DISPLAY-TEXT-FIELD NULL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-CLEAR-LINE (DISPLAY-TEXT-FIELD T T))|.
Compiling DEFMETHOD TEXT-CLEAR-LINE (DISPLAY-TEXT-FIELD T T): 
Converted |(PCL::FAST-METHOD (SETF TEXT-CARET-DISPLAYED-P) (T DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD (SETF TEXT-CARET-DISPLAYED-P) (T DISPLAY-TEXT-FIELD): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISPLAY-TEXT-EXTENT (DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD DISPLAY-TEXT-EXTENT (DISPLAY-TEXT-FIELD): 
Converted |(PCL::FAST-METHOD RESCALE :BEFORE (DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD RESCALE :BEFORE (DISPLAY-TEXT-FIELD): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD PREFERRED-SIZE (DISPLAY-TEXT-FIELD): 
Converted |(PCL::FAST-METHOD TEXT-GEOMETRY (DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD TEXT-GEOMETRY (DISPLAY-TEXT-FIELD): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 14,682,152 bytes in use.  Commencing GC.]
[GC completed with 13,030,272 bytes retained and 1,651,880 bytes freed.]
[GC will next occur when at least 15,030,272 bytes are in use.]
Converted |(PCL::FAST-METHOD COMPUTE-TEXT-GEOMETRY (DISPLAY-TEXT-FIELD))|.
Compiling DEFMETHOD COMPUTE-TEXT-GEOMETRY (DISPLAY-TEXT-FIELD): 
[GC threshold exceeded with 16,045,912 bytes in use.  Commencing GC.]
[GC completed with 12,480,056 bytes retained and 3,565,856 bytes freed.]
[GC will next occur when at least 14,480,056 bytes are in use.]
Converted TEXT-BASE-POINT.
Compiling DEFUN TEXT-BASE-POINT: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-BASE-POSITION (DISPLAY-TEXT-FIELD INTEGER))|.
Compiling DEFMETHOD TEXT-BASE-POSITION (DISPLAY-TEXT-FIELD INTEGER): 
Converted |(PCL::FAST-METHOD TEXT-BASE-POSITION (DISPLAY-TEXT-FIELD NULL))|.
Compiling DEFMETHOD TEXT-BASE-POSITION (DISPLAY-TEXT-FIELD NULL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-POINT-MARK (DISPLAY-TEXT-FIELD T T))|.
Compiling DEFMETHOD TEXT-POINT-MARK (DISPLAY-TEXT-FIELD T T): 
Converted |(PCL::FAST-METHOD TEXT-POINT-INDEX (DISPLAY-TEXT-FIELD T T T))|.
Compiling DEFMETHOD TEXT-POINT-INDEX (DISPLAY-TEXT-FIELD T T T): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-POINT-LINE (DISPLAY-TEXT-FIELD T T T T))|.
Compiling DEFMETHOD TEXT-POINT-LINE (DISPLAY-TEXT-FIELD T T T T): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 14,480,416 bytes in use.  Commencing GC.]
[GC completed with 12,913,472 bytes retained and 1,566,944 bytes freed.]
[GC will next occur when at least 14,913,472 bytes are in use.]
Converted |(PCL::FAST-METHOD TEXT-MARK-POINT (DISPLAY-TEXT-FIELD T))|.
Compiling DEFMETHOD TEXT-MARK-POINT (DISPLAY-TEXT-FIELD T): 
Compiling DEFCONTACT DISPLAY-TEXT: 
Compiling DEFCONTACT DISPLAY-TEXT: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL DISPLAY-TEXT) T))|.
Compiling DEFCONTACT DISPLAY-TEXT: 
[GC threshold exceeded with 15,456,344 bytes in use.  Commencing GC.]
[GC completed with 13,188,128 bytes retained and 2,268,216 bytes freed.]
[GC will next occur when at least 15,188,128 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (DISPLAY-TEXT T T))|.
Compiling DEFCONTACT DISPLAY-TEXT: 
[GC threshold exceeded with 17,447,040 bytes in use.  Commencing GC.]
[GC completed with 14,027,744 bytes retained and 3,419,296 bytes freed.]
[GC will next occur when at least 16,027,744 bytes are in use.]
Converted MAKE-DISPLAY-TEXT.
Compiling DEFUN MAKE-DISPLAY-TEXT: 
Converted TEXT-EXTENT-DEFINED-P.
Compiling DEFUN TEXT-EXTENT-DEFINED-P: 
Compiling DEFSETF TEXT-EXTENT-DEFINED-P: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-TEXT-SOURCE) :AFTER (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-TEXT-SOURCE) :AFTER (T DISPLAY-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFMETHOD (SETF DISPLAY-TEXT-SOURCE) :AFTER (T DISPLAY-TEXT)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G7 NIL))
    (SLOT-MAKUNBOUND #:G6 'EXTENT-TOP))
Warning: Variable #:G7 defined but never used.

Converted |(PCL::FAST-METHOD (SETF DISPLAY-GRAVITY) :AFTER (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-GRAVITY) :AFTER (T DISPLAY-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFMETHOD (SETF DISPLAY-GRAVITY) :AFTER (T DISPLAY-TEXT)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G7 NIL))
    (SLOT-MAKUNBOUND #:G6 'EXTENT-TOP))
Warning: Variable #:G7 defined but never used.

Converted |(PCL::FAST-METHOD (SETF DISPLAY-TEXT-FONT) :AFTER (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-TEXT-FONT) :AFTER (T DISPLAY-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFMETHOD (SETF DISPLAY-TEXT-FONT) :AFTER (T DISPLAY-TEXT)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G7 NIL))
    (SLOT-MAKUNBOUND #:G6 'EXTENT-TOP))
Warning: Variable #:G7 defined but never used.

Converted |(PCL::FAST-METHOD (SETF DISPLAY-TEXT-ALIGNMENT) :BEFORE (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-TEXT-ALIGNMENT) :BEFORE (T DISPLAY-TEXT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-TEXT-ALIGNMENT) :AFTER (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-TEXT-ALIGNMENT) :AFTER (T DISPLAY-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFMETHOD (SETF DISPLAY-TEXT-ALIGNMENT) :AFTER (T DISPLAY-TEXT)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G7 NIL))
    (SLOT-MAKUNBOUND #:G6 'EXTENT-TOP))
Warning: Variable #:G7 defined but never used.

Converted |(PCL::FAST-METHOD (SETF DISPLAY-BOTTOM-MARGIN) :AFTER (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-BOTTOM-MARGIN) :AFTER (T DISPLAY-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFMETHOD (SETF DISPLAY-BOTTOM-MARGIN) :AFTER (T DISPLAY-TEXT)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G7 NIL))
    (SLOT-MAKUNBOUND #:G6 'EXTENT-TOP))
Warning: Variable #:G7 defined but never used.

Converted |(PCL::FAST-METHOD (SETF DISPLAY-LEFT-MARGIN) :AFTER (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-LEFT-MARGIN) :AFTER (T DISPLAY-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFMETHOD (SETF DISPLAY-LEFT-MARGIN) :AFTER (T DISPLAY-TEXT)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G7 NIL))
    (SLOT-MAKUNBOUND #:G6 'EXTENT-TOP))
Warning: Variable #:G7 defined but never used.

Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-RIGHT-MARGIN) :AFTER (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-RIGHT-MARGIN) :AFTER (T DISPLAY-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFMETHOD (SETF DISPLAY-RIGHT-MARGIN) :AFTER (T DISPLAY-TEXT)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G7 NIL))
    (SLOT-MAKUNBOUND #:G6 'EXTENT-TOP))
Warning: Variable #:G7 defined but never used.

Converted |(PCL::FAST-METHOD (SETF DISPLAY-TOP-MARGIN) :AFTER (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF DISPLAY-TOP-MARGIN) :AFTER (T DISPLAY-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFMETHOD (SETF DISPLAY-TOP-MARGIN) :AFTER (T DISPLAY-TEXT)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G7 NIL))
    (SLOT-MAKUNBOUND #:G6 'EXTENT-TOP))
Warning: Variable #:G7 defined but never used.

Converted |(PCL::FAST-METHOD DISPLAY (DISPLAY-TEXT))|.
Compiling DEFMETHOD DISPLAY (DISPLAY-TEXT): 
Converted TEXT-CLIPPED-LINE.
Compiling DEFUN TEXT-CLIPPED-LINE: 
Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL DISPLAY-TEXT>: 
Compiling Top-Level Form: 
[GC threshold exceeded with 16,347,800 bytes in use.  Commencing GC.]
[GC completed with 13,819,568 bytes retained and 2,528,232 bytes freed.]
[GC will next occur when at least 15,819,568 bytes are in use.]
Converted |(PCL::FAST-METHOD TEXT-REFRESH (DISPLAY-TEXT MARK MARK))|.
Compiling DEFMETHOD TEXT-REFRESH (DISPLAY-TEXT MARK MARK): 
Converted |(PCL::FAST-METHOD TEXT-REFRESH (DISPLAY-TEXT T T))|.
Compiling DEFMETHOD TEXT-REFRESH (DISPLAY-TEXT T T): 
Compiling Top-Level Form: 
[GC threshold exceeded with 15,824,352 bytes in use.  Commencing GC.]
[GC completed with 14,227,488 bytes retained and 1,596,864 bytes freed.]
[GC will next occur when at least 16,227,488 bytes are in use.]
Converted |(PCL::FAST-METHOD TEXT-CHANGE-HIGHLIGHT (DISPLAY-TEXT MARK MARK))|.
Compiling DEFMETHOD TEXT-CHANGE-HIGHLIGHT (DISPLAY-TEXT MARK MARK): 
[GC threshold exceeded with 18,181,920 bytes in use.  Commencing GC.]
[GC completed with 14,431,472 bytes retained and 3,750,448 bytes freed.]
[GC will next occur when at least 16,431,472 bytes are in use.]
Converted |(PCL::FAST-METHOD RESIZE :AFTER (DISPLAY-TEXT T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (DISPLAY-TEXT T T T): 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFMETHOD RESIZE :AFTER (DISPLAY-TEXT T T T)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G7 NIL))
    (SLOT-MAKUNBOUND #:G6 'EXTENT-TOP))
Warning: Variable #:G7 defined but never used.

Converted |(PCL::FAST-METHOD DISPLAY-TEXT-EXTENT (DISPLAY-TEXT))|.
Compiling DEFMETHOD DISPLAY-TEXT-EXTENT (DISPLAY-TEXT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-GEOMETRY (DISPLAY-TEXT))|.
Compiling DEFMETHOD TEXT-GEOMETRY (DISPLAY-TEXT): 
Converted |(PCL::FAST-METHOD TEXT-POINT-MARK (DISPLAY-TEXT T T))|.
Compiling DEFMETHOD TEXT-POINT-MARK (DISPLAY-TEXT T T): 
[GC threshold exceeded with 16,481,904 bytes in use.  Commencing GC.]
[GC completed with 14,868,056 bytes retained and 1,613,848 bytes freed.]
[GC will next occur when at least 16,868,056 bytes are in use.]
Converted TEXT-BASE-X.
Compiling DEFUN TEXT-BASE-X: 
Converted TEXT-BASE-Y.
Compiling DEFUN TEXT-BASE-Y: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-BASE-POSITION (DISPLAY-TEXT MARK))|.
Compiling DEFMETHOD TEXT-BASE-POSITION (DISPLAY-TEXT MARK): 
Converted |(PCL::FAST-METHOD TEXT-BASE-POSITION (DISPLAY-TEXT T))|.
Compiling DEFMETHOD TEXT-BASE-POSITION (DISPLAY-TEXT T): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-POINT-INDEX (DISPLAY-TEXT T T T))|.
Compiling DEFMETHOD TEXT-POINT-INDEX (DISPLAY-TEXT T T T): 
Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-POINT-LINE (DISPLAY-TEXT T T T T))|.
Compiling DEFMETHOD TEXT-POINT-LINE (DISPLAY-TEXT T T T T): 
[GC threshold exceeded with 16,868,896 bytes in use.  Commencing GC.]
[GC completed with 12,319,776 bytes retained and 4,549,120 bytes freed.]
[GC will next occur when at least 14,319,776 bytes are in use.]
Converted |(PCL::FAST-METHOD TEXT-MARK-POINT (DISPLAY-TEXT MARK))|.
Compiling DEFMETHOD TEXT-MARK-POINT (DISPLAY-TEXT MARK): 
Converted |(PCL::FAST-METHOD (SETF EDIT-TEXT-POINT) :BEFORE (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF EDIT-TEXT-POINT) :BEFORE (T DISPLAY-TEXT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD EDIT-TEXT-POINT :AROUND (DISPLAY-TEXT))|.
Compiling DEFMETHOD EDIT-TEXT-POINT :AROUND (DISPLAY-TEXT): 
Converted |(PCL::FAST-METHOD (SETF EDIT-TEXT-POINT) :AROUND (INTEGER DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF EDIT-TEXT-POINT) :AROUND (INTEGER DISPLAY-TEXT): 
Compiling Top-Level Form: 
[GC threshold exceeded with 14,380,064 bytes in use.  Commencing GC.]
[GC completed with 12,863,216 bytes retained and 1,516,848 bytes freed.]
[GC will next occur when at least 14,863,216 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF EDIT-TEXT-MARK) :BEFORE (T DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF EDIT-TEXT-MARK) :BEFORE (T DISPLAY-TEXT): 
Converted |(PCL::FAST-METHOD EDIT-TEXT-MARK :AROUND (DISPLAY-TEXT))|.
Compiling DEFMETHOD EDIT-TEXT-MARK :AROUND (DISPLAY-TEXT): 
Converted |(PCL::FAST-METHOD (SETF EDIT-TEXT-MARK) :AROUND (INTEGER DISPLAY-TEXT))|.
Compiling DEFMETHOD (SETF EDIT-TEXT-MARK) :AROUND (INTEGER DISPLAY-TEXT): 
Compiling Top-Level Form: 
Converted DISPLAY-CLIPBOARD-TEXT.
Compiling DEFMACRO DISPLAY-CLIPBOARD-TEXT: 
Converted SETF-DISPLAY-CLIPBOARD-TEXT.
Compiling DEFUN SETF-DISPLAY-CLIPBOARD-TEXT: 
Converted CLIPBOARD-COPY.
Compiling DEFUN CLIPBOARD-COPY: 

File: /usr/local/fakeroot/work/clue-19970309/clio/display-text.lisp

In: DEFUN CLIPBOARD-COPY
  (DEFUN CLIPBOARD-COPY (TEXT)
    (DECLARE (TYPE DISPLAY-TEXT-FIELD TEXT))
    (WITH-SLOTS (BUFFER DISPLAY)
                TEXT
                (LET # ..)))
Note: Can't tell whether previous first argument type SELECT-TEXT is a DISPLAY-TEXT-FIELD.

[GC threshold exceeded with 14,882,816 bytes in use.  Commencing GC.]
[GC completed with 13,052,328 bytes retained and 1,830,488 bytes freed.]
[GC will next occur when at least 15,052,328 bytes are in use.]
Converted |(PCL::FAST-METHOD TEXT-SELECTION-STRING (SELECT-TEXT (EQL :CLIPBOARD)))|.
Compiling DEFMETHOD TEXT-SELECTION-STRING (SELECT-TEXT (EQL :CLIPBOARD)): 
Byte Compiling Top-Level Form: 

Compilation unit finished.
  15 warnings
  1 note


clue:clio/display-text.x86f written.
Compilation finished in 0:01:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/display-text.x86f".
Compiling LAMBDA (#:G1654 #:G1655): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G1667 #:G1668 #:G1670 #:G1671): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G1674 #:G1675 #:G1677 #:G1678): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G1683 #:G1684 #:G1686 #:G1687): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G1701 #:G1702 #:G1704 #:G1705): [GC threshold exceeded with 15,057,728 bytes in use.  Commencing GC.]
[GC completed with 13,636,664 bytes retained and 1,421,064 bytes freed.]
[GC will next occur when at least 15,636,664 bytes are in use.]

Compiling Top-Level Form: 
[GC threshold exceeded with 15,643,248 bytes in use.  Commencing GC.]
[GC completed with 13,895,040 bytes retained and 1,748,208 bytes freed.]
[GC will next occur when at least 15,895,040 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 08:58:44 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/edit-text.lisp 07 MAR 97 06:54:58 pm

Converted CHAR-OR-KEYSYM.
Compiling DEFMACRO CHAR-OR-KEYSYM: 
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT TEXT-EDITOR: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL TEXT-EDITOR) T))|.
Compiling DEFCONTACT TEXT-EDITOR: 
Compiling DEFEVENT TEXT-EDITOR: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT TEXT-EDITOR: 
Compiling DEFEVENT TEXT-EDITOR: 
Compiling DEFEVENT TEXT-EDITOR: 
Compiling DEFEVENT TEXT-EDITOR: 
Compiling DEFEVENT TEXT-EDITOR: 
Converted CHANGE-FOCUS.
Compiling DEFUN CHANGE-FOCUS: 
[GC threshold exceeded with 15,920,216 bytes in use.  Commencing GC.]
[GC completed with 14,308,664 bytes retained and 1,611,552 bytes freed.]
[GC will next occur when at least 16,308,664 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF TEXT-CARET-DISPLAYED-P) (T TEXT-EDITOR))|.
Compiling DEFMETHOD (SETF TEXT-CARET-DISPLAYED-P) (T TEXT-EDITOR): 
Converted |(PCL::FAST-METHOD TEXT-CARET-DESCENT (TEXT-EDITOR T))|.
Compiling DEFMETHOD TEXT-CARET-DESCENT (TEXT-EDITOR T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD COMPUTE-TEXT-GEOMETRY :AROUND (TEXT-EDITOR))|.
Compiling DEFMETHOD COMPUTE-TEXT-GEOMETRY :AROUND (TEXT-EDITOR): 
[GC threshold exceeded with 16,674,120 bytes in use.  Commencing GC.]
[GC completed with 13,700,912 bytes retained and 2,973,208 bytes freed.]
[GC will next occur when at least 15,700,912 bytes are in use.]
Converted |(PCL::FAST-METHOD EDIT-TEXT-CLEAR (TEXT-EDITOR))|.
Compiling DEFMETHOD EDIT-TEXT-CLEAR (TEXT-EDITOR): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD EDIT-TEXT-CUT (TEXT-EDITOR))|.
Compiling DEFMETHOD EDIT-TEXT-CUT (TEXT-EDITOR): 
Converted |(PCL::FAST-METHOD EDIT-TEXT-PASTE (TEXT-EDITOR))|.
Compiling DEFMETHOD EDIT-TEXT-PASTE (TEXT-EDITOR): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF EDIT-TEXT-FOCUS-P) :AROUND (T TEXT-EDITOR))|.
Compiling DEFMETHOD (SETF EDIT-TEXT-FOCUS-P) :AROUND (T TEXT-EDITOR): 
[GC threshold exceeded with 15,705,856 bytes in use.  Commencing GC.]
[GC completed with 14,193,488 bytes retained and 1,512,368 bytes freed.]
[GC will next occur when at least 16,193,488 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL EDIT-TEXT-FIELD) T))|.
Compiling DEFCONTACT EDIT-TEXT-FIELD: 
[GC threshold exceeded with 16,199,048 bytes in use.  Commencing GC.]
[GC completed with 14,273,240 bytes retained and 1,925,808 bytes freed.]
[GC will next occur when at least 16,273,240 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (EDIT-TEXT-FIELD T T))|.
Compiling DEFCONTACT EDIT-TEXT-FIELD: 
[GC threshold exceeded with 18,489,016 bytes in use.  Commencing GC.]
[GC completed with 15,096,384 bytes retained and 3,392,632 bytes freed.]
[GC will next occur when at least 17,096,384 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted MAKE-EDIT-TEXT-FIELD.
Compiling DEFUN MAKE-EDIT-TEXT-FIELD: 
Converted |(PCL::FAST-METHOD (SETF EDIT-TEXT-POINT) :BEFORE (T EDIT-TEXT-FIELD))|.
Compiling DEFMETHOD (SETF EDIT-TEXT-POINT) :BEFORE (T EDIT-TEXT-FIELD): 
Converted |(PCL::FAST-METHOD (SETF EDIT-TEXT-MARK) :BEFORE (T EDIT-TEXT-FIELD))|.
Compiling DEFMETHOD (SETF EDIT-TEXT-MARK) :BEFORE (T EDIT-TEXT-FIELD): 
Converted |(PCL::FAST-METHOD DISPLAY :AROUND (EDIT-TEXT-FIELD))|.
Compiling DEFMETHOD DISPLAY :AROUND (EDIT-TEXT-FIELD): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-CLEAR-LINE (EDIT-TEXT-FIELD T T))|.
Compiling DEFMETHOD TEXT-CLEAR-LINE (EDIT-TEXT-FIELD T T): 
[GC threshold exceeded with 17,220,048 bytes in use.  Commencing GC.]
[GC completed with 15,022,744 bytes retained and 2,197,304 bytes freed.]
[GC will next occur when at least 17,022,744 bytes are in use.]
Converted |(PCL::FAST-METHOD TEXT-CHANGE-HIGHLIGHT (EDIT-TEXT-FIELD T T))|.
Compiling DEFMETHOD TEXT-CHANGE-HIGHLIGHT (EDIT-TEXT-FIELD T T): 
[GC threshold exceeded with 18,693,120 bytes in use.  Commencing GC.]
[GC completed with 15,602,904 bytes retained and 3,090,216 bytes freed.]
[GC will next occur when at least 17,602,904 bytes are in use.]
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (EDIT-TEXT-FIELD))|.
Compiling DEFMETHOD PREFERRED-SIZE (EDIT-TEXT-FIELD): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-CARET-DESCENT :AROUND (EDIT-TEXT-FIELD T))|.
Compiling DEFMETHOD TEXT-CARET-DESCENT :AROUND (EDIT-TEXT-FIELD T): 

File: /usr/local/fakeroot/work/clue-19970309/clio/edit-text.lisp

In: DEFMETHOD TEXT-CARET-DESCENT :AROUND (EDIT-TEXT-FIELD T)
  (CALL-NEXT-METHOD)
--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF PROGN SETF LET* 
--> MULTIPLE-VALUE-BIND LET PCL::%SET-SVREF LOCALLY LET SETF 
--> COMMON-LISP::%SVSET COMMON-LISP::%ASET LET* 
==>
  (KERNEL:DATA-VECTOR-SET ARRAY KERNEL:INDEX C::NEW-VALUE)
Warning: Result is a EDIT-TEXT-FIELD, not a NUMBER.

--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF 
==>
  (COND)
Warning: This is not a NUMBER:
  NIL

--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF PROGN SETF LET* 
--> MULTIPLE-VALUE-BIND LET PCL::%SET-SVREF LOCALLY LET SETF 
--> COMMON-LISP::%SVSET COMMON-LISP::%ASET LET* 
==>
  (KERNEL:DATA-VECTOR-SET ARRAY KERNEL:INDEX C::NEW-VALUE)
Warning: Result is a EDIT-TEXT-FIELD, not a NUMBER.

--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF 
==>
  (COND)
Warning: This is not a NUMBER:
  NIL

Converted |(PCL::FAST-METHOD DISPLAY-TEXT-EXTENT :AROUND (EDIT-TEXT-FIELD))|.
Compiling DEFMETHOD DISPLAY-TEXT-EXTENT :AROUND (EDIT-TEXT-FIELD): 
Converted PERFORM-COMMAND.
Compiling DEFUN PERFORM-COMMAND: 
[GC threshold exceeded with 17,744,200 bytes in use.  Commencing GC.]
[GC completed with 15,570,120 bytes retained and 2,174,080 bytes freed.]
[GC will next occur when at least 17,570,120 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-INSERT (TEXT-EDITOR T))|.
Compiling DEFMETHOD TEXT-INSERT (TEXT-EDITOR T): 
Converted |(PCL::FAST-METHOD TEXT-INSERT :AROUND (TEXT-EDITOR CHARACTER))|.
Compiling DEFMETHOD TEXT-INSERT :AROUND (TEXT-EDITOR CHARACTER): 
Converted |(PCL::FAST-METHOD TEXT-INSERT-NONGRAPHIC (TEXT-EDITOR T))|.
Compiling DEFMETHOD TEXT-INSERT-NONGRAPHIC (TEXT-EDITOR T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-INSERT (EDIT-TEXT-FIELD CHARACTER))|.
Converted |(PCL::FAST-METHOD TEXT-INSERT (EDIT-TEXT-FIELD STRING))|.
Compiling DEFMETHOD TEXT-INSERT (EDIT-TEXT-FIELD STRING): 
Converted |(PCL::FAST-METHOD TEXT-MOVE-POINT (TEXT-EDITOR))|.
Compiling DEFMETHOD TEXT-MOVE-POINT (TEXT-EDITOR): 
[GC threshold exceeded with 17,891,576 bytes in use.  Commencing GC.]
[GC completed with 16,035,104 bytes retained and 1,856,472 bytes freed.]
[GC will next occur when at least 18,035,104 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-MOVE-SOL (TEXT-EDITOR))|.
Compiling DEFMETHOD TEXT-MOVE-SOL (TEXT-EDITOR): 
Converted |(PCL::FAST-METHOD TEXT-MOVE-EOL (TEXT-EDITOR))|.
Compiling DEFMETHOD TEXT-MOVE-EOL (TEXT-EDITOR): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-DELETE-EOL (TEXT-EDITOR))|.
Compiling DEFMETHOD TEXT-DELETE-EOL (TEXT-EDITOR): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-RUBOUT (EDIT-TEXT-FIELD))|.
Compiling DEFMETHOD TEXT-RUBOUT (EDIT-TEXT-FIELD): 
[GC threshold exceeded with 18,109,472 bytes in use.  Commencing GC.]
[GC completed with 10,028,672 bytes retained and 8,080,800 bytes freed.]
[GC will next occur when at least 12,028,672 bytes are in use.]
Converted |(PCL::FAST-METHOD TEXT-COMPLETE (TEXT-EDITOR))|.
Compiling DEFMETHOD TEXT-COMPLETE (TEXT-EDITOR): 
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT EDIT-TEXT: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL EDIT-TEXT) T))|.
Compiling DEFCONTACT EDIT-TEXT: 
[GC threshold exceeded with 12,650,800 bytes in use.  Commencing GC.]
[GC completed with 10,495,000 bytes retained and 2,155,800 bytes freed.]
[GC will next occur when at least 12,495,000 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (EDIT-TEXT T T))|.
Compiling DEFCONTACT EDIT-TEXT: 
[GC threshold exceeded with 14,753,472 bytes in use.  Commencing GC.]
[GC completed with 10,900,096 bytes retained and 3,853,376 bytes freed.]
[GC will next occur when at least 12,900,096 bytes are in use.]
Converted MAKE-EDIT-TEXT.
Compiling DEFUN MAKE-EDIT-TEXT: 
Converted |(PCL::FAST-METHOD TEXT-INSERT (EDIT-TEXT CHARACTER))|.
Converted |(PCL::FAST-METHOD TEXT-INSERT (EDIT-TEXT STRING))|.
Converted |(PCL::FAST-METHOD TEXT-INSERT-NONGRAPHIC (EDIT-TEXT (EQL #\\Linefeed)))|.
Converted |(PCL::FAST-METHOD TEXT-INSERT-NONGRAPHIC (EDIT-TEXT (EQL #\\Linefeed)))|.
Compiling DEFMETHOD TEXT-INSERT-NONGRAPHIC (EDIT-TEXT (EQL #\Linefeed)): 

File: /usr/local/fakeroot/work/clue-19970309/clio/edit-text.lisp

In: LET ((INSERT-START (MAKE-MARK)) (INSERT-MARK (MAKE-MARK)))
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G11 NIL))
    (SLOT-MAKUNBOUND #:G10 'EXTENT-TOP))
Warning: Variable #:G11 defined but never used.

Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TEXT-RUBOUT (EDIT-TEXT))|.
Compiling DEFMETHOD TEXT-RUBOUT (EDIT-TEXT): 

File: /usr/local/fakeroot/work/clue-19970309/clio/edit-text.lisp

In: DEFMETHOD TEXT-RUBOUT (EDIT-TEXT)
  (SETF (TEXT-EXTENT-DEFINED-P TEXT) NIL)
--> LET* MULTIPLE-VALUE-BIND 
==>
  (LET ((#:G73 NIL))
    (SLOT-MAKUNBOUND #:G72 'EXTENT-TOP))
Warning: Variable #:G73 defined but never used.

Compiling Top-Level Form: 
[GC threshold exceeded with 14,533,952 bytes in use.  Commencing GC.]
[GC completed with 11,468,832 bytes retained and 3,065,120 bytes freed.]
[GC will next occur when at least 13,468,832 bytes are in use.]

Compilation unit finished.
  6 warnings


clue:clio/edit-text.x86f written.
Compilation finished in 0:00:45.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/edit-text.x86f".
[GC threshold exceeded with 13,468,920 bytes in use.  Commencing GC.]
[GC completed with 11,591,664 bytes retained and 1,877,256 bytes freed.]
[GC will next occur when at least 13,591,664 bytes are in use.]
Compiling LAMBDA (#:G1782 #:G1783 #:G1795 #:G1796): 

In: LAMBDA (#:G1782 #:G1783 #:G1795 #:G1796)
  (PCL::MLOOKUP PCL::.ARG1. #:G1782 #:G1783 NIL ...)
--> IF 
==>
  (EQL PCL::.ARG1. (CAR #:G1782))
Note: Unable to optimize due to type uncertainty:
      The first argument is a T, not a SINGLE-FLOAT.
      The second argument is a T, not a SINGLE-FLOAT.
Note: Unable to optimize due to type uncertainty:
      The first argument is a T, not a DOUBLE-FLOAT.
      The second argument is a T, not a DOUBLE-FLOAT.
Note: Forced to do GENERIC-EQL (cost 10).
      Unable to do inline fixnum comparison (cost 4) because:
      The first argument is a T, not a FIXNUM.
      The second argument is a T, not a FIXNUM.

Compiling Top-Level Form: 

Compilation unit finished.
  3 notes


Python version 1.0, VM version Intel x86 on 14 OCT 98 08:59:33 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/display-imag.lisp 01 AUG 90 01:17:44 am

Compiling DEFCONTACT DISPLAY-IMAGE: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL DISPLAY-IMAGE) T))|.
Compiling DEFCONTACT DISPLAY-IMAGE: 
[GC threshold exceeded with 14,811,496 bytes in use.  Commencing GC.]
[GC completed with 12,122,992 bytes retained and 2,688,504 bytes freed.]
[GC will next occur when at least 14,122,992 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (DISPLAY-IMAGE T T))|.
Compiling DEFCONTACT DISPLAY-IMAGE: 
[GC threshold exceeded with 15,795,272 bytes in use.  Commencing GC.]
[GC completed with 11,499,104 bytes retained and 4,296,168 bytes freed.]
[GC will next occur when at least 13,499,104 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF DISPLAY-GRAVITY) (T DISPLAY-IMAGE))|.
Compiling DEFMETHOD (SETF DISPLAY-GRAVITY) (T DISPLAY-IMAGE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL DISPLAY-IMAGE>: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-IMAGE-SOURCE) (PIXMAP DISPLAY-IMAGE))|.
Compiling DEFMETHOD (SETF DISPLAY-IMAGE-SOURCE) (PIXMAP DISPLAY-IMAGE): 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-IMAGE-SOURCE) (IMAGE DISPLAY-IMAGE))|.
Compiling DEFMETHOD (SETF DISPLAY-IMAGE-SOURCE) (IMAGE DISPLAY-IMAGE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-IMAGE-SOURCE) (T DISPLAY-IMAGE))|.
Compiling DEFMETHOD (SETF DISPLAY-IMAGE-SOURCE) (T DISPLAY-IMAGE): 
Converted |(PCL::FAST-METHOD (SETF DISPLAY-IMAGE-SOURCE) :AFTER (T DISPLAY-IMAGE))|.
Compiling DEFMETHOD (SETF DISPLAY-IMAGE-SOURCE) :AFTER (T DISPLAY-IMAGE): 
Converted |(PCL::FAST-METHOD REALIZE-DISPLAY-IMAGE (DISPLAY-IMAGE PIXMAP))|.
Compiling DEFMETHOD REALIZE-DISPLAY-IMAGE (DISPLAY-IMAGE PIXMAP): 
[GC threshold exceeded with 14,059,544 bytes in use.  Commencing GC.]
[GC completed with 11,943,256 bytes retained and 2,116,288 bytes freed.]
[GC will next occur when at least 13,943,256 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD REALIZE-DISPLAY-IMAGE (DISPLAY-IMAGE IMAGE))|.
Compiling DEFMETHOD REALIZE-DISPLAY-IMAGE (DISPLAY-IMAGE IMAGE): 
Converted |(PCL::FAST-METHOD REALIZE :AFTER (DISPLAY-IMAGE))|.
Compiling DEFMETHOD REALIZE :AFTER (DISPLAY-IMAGE): 
Converted |(PCL::FAST-METHOD (SETF CONTACT-FOREGROUND) :AFTER (T DISPLAY-IMAGE))|.
Compiling DEFMETHOD (SETF CONTACT-FOREGROUND) :AFTER (T DISPLAY-IMAGE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF CONTACT-BACKGROUND) :AFTER (T DISPLAY-IMAGE))|.
Compiling DEFMETHOD (SETF CONTACT-BACKGROUND) :AFTER (T DISPLAY-IMAGE): 
Converted MAKE-DISPLAY-IMAGE.
Compiling DEFUN MAKE-DISPLAY-IMAGE: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (DISPLAY-IMAGE))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (DISPLAY-IMAGE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PREFERRED-SIZE (DISPLAY-IMAGE))|.
Compiling DEFMETHOD PREFERRED-SIZE (DISPLAY-IMAGE): 
[GC threshold exceeded with 14,234,272 bytes in use.  Commencing GC.]
[GC completed with 12,133,240 bytes retained and 2,101,032 bytes freed.]
[GC will next occur when at least 14,133,240 bytes are in use.]
Converted |(PCL::FAST-METHOD DISPLAY (DISPLAY-IMAGE))|.
Compiling DEFMETHOD DISPLAY (DISPLAY-IMAGE): 
[GC threshold exceeded with 17,595,632 bytes in use.  Commencing GC.]
[GC completed with 13,083,792 bytes retained and 4,511,840 bytes freed.]
[GC will next occur when at least 15,083,792 bytes are in use.]
Converted |(PCL::FAST-METHOD RESIZE :AROUND (DISPLAY-IMAGE T T T))|.
Compiling DEFMETHOD RESIZE :AROUND (DISPLAY-IMAGE T T T): 
[GC threshold exceeded with 18,465,800 bytes in use.  Commencing GC.]
[GC completed with 13,160,192 bytes retained and 5,305,608 bytes freed.]
[GC will next occur when at least 15,160,192 bytes are in use.]
Byte Compiling Top-Level Form: 

clue:clio/display-imag.x86f written.
Compilation finished in 0:00:26.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/display-imag.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:00:00 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/dlog-button.lisp 08 MAR 97 09:43:39 pm

Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL DIALOG-BUTTON) T))|.
Compiling DEFCONTACT DIALOG-BUTTON: 
[GC threshold exceeded with 16,363,752 bytes in use.  Commencing GC.]
[GC completed with 13,735,976 bytes retained and 2,627,776 bytes freed.]
[GC will next occur when at least 15,735,976 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (DIALOG-BUTTON T T))|.
Compiling DEFCONTACT DIALOG-BUTTON: 
[GC threshold exceeded with 17,613,816 bytes in use.  Commencing GC.]
[GC completed with 11,945,504 bytes retained and 5,668,312 bytes freed.]
[GC will next occur when at least 13,945,504 bytes are in use.]
Converted MAKE-DIALOG-BUTTON.
Compiling DEFUN MAKE-DIALOG-BUTTON: 
Converted |(PCL::FAST-METHOD (SETF BUTTON-DIALOG) (T DIALOG-BUTTON))|.
Compiling DEFMETHOD (SETF BUTTON-DIALOG) (T DIALOG-BUTTON): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CONTACT>: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL DIALOG-ITEM) T))|.
Compiling DEFCONTACT DIALOG-ITEM: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 14,117,904 bytes in use.  Commencing GC.]
[GC completed with 12,399,264 bytes retained and 1,718,640 bytes freed.]
[GC will next occur when at least 14,399,264 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (DIALOG-ITEM T T))|.
Compiling DEFCONTACT DIALOG-ITEM: 
[GC threshold exceeded with 16,250,072 bytes in use.  Commencing GC.]
[GC completed with 12,628,792 bytes retained and 3,621,280 bytes freed.]
[GC will next occur when at least 14,628,792 bytes are in use.]
Converted MAKE-DIALOG-ITEM.
Compiling DEFUN MAKE-DIALOG-ITEM: 
Converted |(PCL::FAST-METHOD (SETF BUTTON-DIALOG) (T DIALOG-ITEM))|.
Compiling DEFMETHOD (SETF BUTTON-DIALOG) (T DIALOG-ITEM): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD RESIZE :AFTER (DIALOG-ITEM T T T))|.
Compiling DEFMETHOD RESIZE :AFTER (DIALOG-ITEM T T T): 
Converted BUTTON-OWNING-DIALOG.
Compiling DEFMACRO BUTTON-OWNING-DIALOG: 
Converted POINTER-INSIDE-MENU-P.
Compiling DEFUN POINTER-INSIDE-MENU-P: 
Converted MENU-STATE.
Compiling DEFMACRO MENU-STATE: 
Converted MENU-BUTTON-PRESS-P.
Compiling DEFMACRO MENU-BUTTON-PRESS-P: 
Byte Compiling Top-Level Form: 
Converted MENU-PRESENT-IN-PROGRESS.
Compiling DEFMACRO MENU-PRESENT-IN-PROGRESS: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (DIALOG-BUTTON))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AROUND (DIALOG-BUTTON): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (DIALOG-ITEM))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AROUND (DIALOG-ITEM): 
[GC threshold exceeded with 14,695,712 bytes in use.  Commencing GC.]
[GC completed with 13,077,744 bytes retained and 1,617,968 bytes freed.]
[GC will next occur when at least 15,077,744 bytes are in use.]
Converted PARSE-DIALOG-SPEC.
Compiling DEFUN PARSE-DIALOG-SPEC: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (DIALOG-BUTTON))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (DIALOG-BUTTON): 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (DIALOG-ITEM))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (DIALOG-ITEM): 
Converted |(PCL::FAST-METHOD ASSOCIATE-DIALOG-WITH-BUTTON (T T))|.
Compiling DEFMETHOD ASSOCIATE-DIALOG-WITH-BUTTON (T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD ASSOCIATE-DIALOG-WITH-BUTTON :AFTER (MENU T))|.
Compiling DEFMETHOD ASSOCIATE-DIALOG-WITH-BUTTON :AFTER (MENU T): 
Converted |(PCL::FAST-METHOD ASSOCIATE-DIALOG-WITH-BUTTON :AFTER (COMMAND T))|.
Compiling DEFMETHOD ASSOCIATE-DIALOG-WITH-BUTTON :AFTER (COMMAND T): 
Converted |(PCL::FAST-METHOD ASSOCIATE-DIALOG-WITH-BUTTON :AFTER (CONFIRM T))|.
Compiling DEFMETHOD ASSOCIATE-DIALOG-WITH-BUTTON :AFTER (CONFIRM T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL TOGGLE-BUTTON>: 
Converted |(PCL::FAST-METHOD ASSOCIATE-DIALOG-WITH-BUTTON :AFTER (PROPERTY-SHEET T))|.
Compiling DEFMETHOD ASSOCIATE-DIALOG-WITH-BUTTON :AFTER (PROPERTY-SHEET T): 
Converted ASSOCIATE-MENU-WITH-DIALOG-BUTTON.
Compiling DEFUN ASSOCIATE-MENU-WITH-DIALOG-BUTTON: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL DIALOG-ITEM>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL DIALOG-BUTTON>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL MENU>: 
Converted |(PCL::FAST-METHOD DISASSOCIATE-DIALOG-FROM-BUTTON (MENU T))|.
Compiling DEFMETHOD DISASSOCIATE-DIALOG-FROM-BUTTON (MENU T): 
Converted |(PCL::FAST-METHOD DISASSOCIATE-DIALOG-FROM-BUTTON (COMMAND T))|.
Compiling DEFMETHOD DISASSOCIATE-DIALOG-FROM-BUTTON (COMMAND T): 
Converted |(PCL::FAST-METHOD DISASSOCIATE-DIALOG-FROM-BUTTON (CONFIRM T))|.
Compiling DEFMETHOD DISASSOCIATE-DIALOG-FROM-BUTTON (CONFIRM T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISASSOCIATE-DIALOG-FROM-BUTTON (PROPERTY-SHEET T))|.
Compiling DEFMETHOD DISASSOCIATE-DIALOG-FROM-BUTTON (PROPERTY-SHEET T): 
Converted |(PCL::FAST-METHOD DISASSOCIATE-DIALOG-FROM-BUTTON (NULL T))|.
Compiling DEFMETHOD DISASSOCIATE-DIALOG-FROM-BUTTON (NULL T): 
Converted DISASSOCIATE-MENU-FROM-DIALOG-BUTTON.
Compiling DEFUN DISASSOCIATE-MENU-FROM-DIALOG-BUTTON: 
Converted |(PCL::FAST-METHOD ADD-MENU-ITEM-CALLBACKS :AFTER (T T))|.
Compiling DEFMETHOD ADD-MENU-ITEM-CALLBACKS :AFTER (T T): 
Converted VIEWABLE-ANCESTOR.
Compiling DEFUN VIEWABLE-ANCESTOR: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL SHELL>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL ROOT>: 
Converted |(PCL::FAST-METHOD PRESENT-DIALOG (MENU))|.
Compiling DEFMETHOD PRESENT-DIALOG (MENU): 
[GC threshold exceeded with 15,190,640 bytes in use.  Commencing GC.]
[GC completed with 13,128,920 bytes retained and 2,061,720 bytes freed.]
[GC will next occur when at least 15,128,920 bytes are in use.]
Converted |(PCL::FAST-METHOD PRESENT-DIALOG (CONTACT))|.
Compiling DEFMETHOD PRESENT-DIALOG (CONTACT): 
Converted DISMISS-MENU-GROUP.
Compiling DEFUN DISMISS-MENU-GROUP: 
Converted |(PCL::FAST-METHOD DISMISS-SUBMENU-ITEM (T))|.
Compiling DEFMETHOD DISMISS-SUBMENU-ITEM (T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISMISS-SUBMENU-ITEM (DIALOG-ITEM))|.
Compiling DEFMETHOD DISMISS-SUBMENU-ITEM (DIALOG-ITEM): 
Converted |(PCL::FAST-METHOD DISMISS-ACTIVE-DIALOGS (T))|.
Compiling DEFMETHOD DISMISS-ACTIVE-DIALOGS (T): 
Converted |(PCL::FAST-METHOD DISMISS-ACTIVE-DIALOGS (DIALOG-ITEM))|.
Compiling DEFMETHOD DISMISS-ACTIVE-DIALOGS (DIALOG-ITEM): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD PRESS-SELECT (DIALOG-BUTTON))|.
Compiling DEFMETHOD PRESS-SELECT (DIALOG-BUTTON): 
Converted |(PCL::FAST-METHOD PRESS-SELECT (DIALOG-ITEM))|.
Compiling DEFMETHOD PRESS-SELECT (DIALOG-ITEM): 
[GC threshold exceeded with 15,469,568 bytes in use.  Commencing GC.]
[GC completed with 13,614,480 bytes retained and 1,855,088 bytes freed.]
[GC will next occur when at least 15,614,480 bytes are in use.]
Converted PRESS-SELECT-SHOW-DEFAULT.
Compiling DEFUN PRESS-SELECT-SHOW-DEFAULT: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL ACTION-BUTTON>: 
Converted DISPLAY-CONSTRAINED-TEXT.
Compiling DEFUN DISPLAY-CONSTRAINED-TEXT: 
[GC threshold exceeded with 15,992,832 bytes in use.  Commencing GC.]
[GC completed with 13,722,520 bytes retained and 2,270,312 bytes freed.]
[GC will next occur when at least 15,722,520 bytes are in use.]
Converted |(PCL::FAST-METHOD RELEASE-SELECT (DIALOG-BUTTON))|.
Compiling DEFMETHOD RELEASE-SELECT (DIALOG-BUTTON): 
Converted |(PCL::FAST-METHOD RELEASE-SELECT (DIALOG-ITEM))|.
Compiling DEFMETHOD RELEASE-SELECT (DIALOG-ITEM): 
Converted RELEASE-SELECT-CHOOSE-DEFAULT.
Compiling DEFUN RELEASE-SELECT-CHOOSE-DEFAULT: 
Byte Compiling Top-Level Form: 
Converted FIND-ULTIMATE-DEFAULT.
Compiling DEFUN FIND-ULTIMATE-DEFAULT: 
Compiling DEFEVENT DIALOG-BUTTON: 
Byte Compiling Top-Level Form: 
Converted DIALOG-BUTTON-DO-STARTUP.
Compiling DEFUN DIALOG-BUTTON-DO-STARTUP: 
Compiling DEFEVENT DIALOG-BUTTON: 
Byte Compiling Top-Level Form: 
Converted DIALOG-BUTTON-BUTTON-3-RELEASE.
Compiling DEFUN DIALOG-BUTTON-BUTTON-3-RELEASE: 
Compiling DEFEVENT DIALOG-BUTTON: 
Byte Compiling Top-Level Form: 
Converted DIALOG-BUTTON-LEAVE-NOTIFY.
Compiling DEFUN DIALOG-BUTTON-LEAVE-NOTIFY: 
[GC threshold exceeded with 15,764,992 bytes in use.  Commencing GC.]
[GC completed with 14,037,912 bytes retained and 1,727,080 bytes freed.]
[GC will next occur when at least 16,037,912 bytes are in use.]
Compiling DEFEVENT MENU: 
Byte Compiling Top-Level Form: 
Converted DIALOG-BUTTON-BUTTON-PRESS.
Compiling DEFUN DIALOG-BUTTON-BUTTON-PRESS: 
Compiling DEFEVENT MENU: 
Byte Compiling Top-Level Form: 
Converted DIALOG-BUTTON-DISMISS-MENU-GROUP.
Compiling DEFUN DIALOG-BUTTON-DISMISS-MENU-GROUP: 
Compiling DEFEVENT MENU: 
Byte Compiling Top-Level Form: 
Converted DIALOG-BUTTON-MENU-ENTER-NOTIFY.
Compiling DEFUN DIALOG-BUTTON-MENU-ENTER-NOTIFY: 
Compiling DEFEVENT MENU: 
Byte Compiling Top-Level Form: 
Converted DIALOG-BUTTON-MENU-LEAVE-NOTIFY.
Compiling DEFUN DIALOG-BUTTON-MENU-LEAVE-NOTIFY: 
Compiling DEFEVENT DIALOG-ITEM: 
Byte Compiling Top-Level Form: 
Compiling DEFEVENT DIALOG-ITEM: 
Converted DIALOG-ITEM-START-CMC-MODE.
Compiling DEFUN DIALOG-ITEM-START-CMC-MODE: 
Compiling DEFEVENT DIALOG-ITEM: 
Byte Compiling Top-Level Form: 
Converted LEAVE-DIALOG-ITEM.
Compiling DEFUN LEAVE-DIALOG-ITEM: 
Compiling DEFEVENT DIALOG-ITEM: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DIALOG-ITEM-ENTER-NOTIFY (DIALOG-ITEM))|.
Compiling DEFMETHOD DIALOG-ITEM-ENTER-NOTIFY (DIALOG-ITEM): 
[GC threshold exceeded with 16,907,600 bytes in use.  Commencing GC.]
[GC completed with 12,814,616 bytes retained and 4,092,984 bytes freed.]
[GC will next occur when at least 14,814,616 bytes are in use.]
Compiling DEFEVENT DIALOG-ITEM: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DIALOG-ITEM-DRAG-RIGHT (DIALOG-ITEM))|.
Compiling DEFMETHOD DIALOG-ITEM-DRAG-RIGHT (DIALOG-ITEM): 
Converted |(PCL::FAST-METHOD LABEL-WIDTH :AROUND (DIALOG-BUTTON T))|.
Compiling DEFMETHOD LABEL-WIDTH :AROUND (DIALOG-BUTTON T): 

File: /usr/local/fakeroot/work/clue-19970309/clio/dlog-button.lisp

In: DEFMETHOD LABEL-WIDTH :AROUND (DIALOG-BUTTON T)
  (CALL-NEXT-METHOD)
--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF PROGN SETF LET* 
--> MULTIPLE-VALUE-BIND LET PCL::%SET-SVREF LOCALLY LET SETF 
--> COMMON-LISP::%SVSET COMMON-LISP::%ASET LET* 
==>
  (KERNEL:DATA-VECTOR-SET ARRAY KERNEL:INDEX C::NEW-VALUE)
Warning: Result is a DIALOG-BUTTON, not a NUMBER.

--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF 
==>
  (COND)
Warning: This is not a NUMBER:
  NIL

--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF PROGN SETF LET* 
--> MULTIPLE-VALUE-BIND LET PCL::%SET-SVREF LOCALLY LET SETF 
--> COMMON-LISP::%SVSET COMMON-LISP::%ASET LET* 
==>
  (KERNEL:DATA-VECTOR-SET ARRAY KERNEL:INDEX C::NEW-VALUE)
Warning: Result is a DIALOG-BUTTON, not a NUMBER.

--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF 
==>
  (COND)
Warning: This is not a NUMBER:
  NIL

[GC threshold exceeded with 14,860,344 bytes in use.  Commencing GC.]
[GC completed with 13,275,976 bytes retained and 1,584,368 bytes freed.]
[GC will next occur when at least 15,275,976 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD LABEL-WIDTH :AROUND (DIALOG-ITEM T))|.
Compiling DEFMETHOD LABEL-WIDTH :AROUND (DIALOG-ITEM T): 

File: /usr/local/fakeroot/work/clue-19970309/clio/dlog-button.lisp

In: DEFMETHOD LABEL-WIDTH :AROUND (DIALOG-ITEM T)
  (CALL-NEXT-METHOD)
--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF PROGN SETF LET* 
--> MULTIPLE-VALUE-BIND LET PCL::%SET-SVREF LOCALLY LET SETF 
--> COMMON-LISP::%SVSET COMMON-LISP::%ASET LET* 
==>
  (KERNEL:DATA-VECTOR-SET ARRAY KERNEL:INDEX C::NEW-VALUE)
Warning: Result is a DIALOG-ITEM, not a NUMBER.

--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF 
==>
  (COND)
Warning: This is not a NUMBER:
  NIL

--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF PROGN SETF LET* 
--> MULTIPLE-VALUE-BIND LET PCL::%SET-SVREF LOCALLY LET SETF 
--> COMMON-LISP::%SVSET COMMON-LISP::%ASET LET* 
==>
  (KERNEL:DATA-VECTOR-SET ARRAY KERNEL:INDEX C::NEW-VALUE)
Warning: Result is a DIALOG-ITEM, not a NUMBER.

--> PCL::CALL-NEXT-METHOD-BODY IF IF PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION 
--> PROGN COND IF COND IF PROGN LET WHEN COND IF 
==>
  (COND)
Warning: This is not a NUMBER:
  NIL

Converted |(PCL::FAST-METHOD ADDITIONAL-LABEL-WIDTH (NULL T T))|.
Compiling DEFMETHOD ADDITIONAL-LABEL-WIDTH (NULL T T): 
Converted |(PCL::FAST-METHOD ADDITIONAL-LABEL-WIDTH (MENU DIALOG-BUTTON T))|.
Compiling DEFMETHOD ADDITIONAL-LABEL-WIDTH (MENU DIALOG-BUTTON T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD ADDITIONAL-LABEL-WIDTH (MENU DIALOG-ITEM T))|.
Compiling DEFMETHOD ADDITIONAL-LABEL-WIDTH (MENU DIALOG-ITEM T): 
Converted |(PCL::FAST-METHOD ADDITIONAL-LABEL-WIDTH (COMMAND T T))|.
Compiling DEFMETHOD ADDITIONAL-LABEL-WIDTH (COMMAND T T): 
Converted |(PCL::FAST-METHOD ADDITIONAL-LABEL-WIDTH (CONFIRM T T))|.
Compiling DEFMETHOD ADDITIONAL-LABEL-WIDTH (CONFIRM T T): 
Converted |(PCL::FAST-METHOD ADDITIONAL-LABEL-WIDTH (PROPERTY-SHEET T T))|.
Compiling DEFMETHOD ADDITIONAL-LABEL-WIDTH (PROPERTY-SHEET T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-LABEL :AFTER (DIALOG-BUTTON T))|.
Compiling DEFMETHOD DISPLAY-BUTTON-LABEL :AFTER (DIALOG-BUTTON T): 
Converted |(PCL::FAST-METHOD DISPLAY-BUTTON-LABEL :AFTER (DIALOG-ITEM T))|.
Compiling DEFMETHOD DISPLAY-BUTTON-LABEL :AFTER (DIALOG-ITEM T): 
Converted |(PCL::FAST-METHOD AFTER-DISPLAY-BUTTON-LABEL (NULL T T))|.
Compiling DEFMETHOD AFTER-DISPLAY-BUTTON-LABEL (NULL T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD AFTER-DISPLAY-BUTTON-LABEL (MENU DIALOG-BUTTON T))|.
Compiling DEFMETHOD AFTER-DISPLAY-BUTTON-LABEL (MENU DIALOG-BUTTON T): 
Converted |(PCL::FAST-METHOD AFTER-DISPLAY-BUTTON-LABEL (MENU DIALOG-ITEM T))|.
Compiling DEFMETHOD AFTER-DISPLAY-BUTTON-LABEL (MENU DIALOG-ITEM T): 
[GC threshold exceeded with 15,293,976 bytes in use.  Commencing GC.]
[GC completed with 13,440,152 bytes retained and 1,853,824 bytes freed.]
[GC will next occur when at least 15,440,152 bytes are in use.]
Converted DISPLAY-MENU-MARK.
Compiling DEFUN DISPLAY-MENU-MARK: 
Converted |(PCL::FAST-METHOD AFTER-DISPLAY-BUTTON-LABEL (COMMAND T T))|.
Compiling DEFMETHOD AFTER-DISPLAY-BUTTON-LABEL (COMMAND T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD AFTER-DISPLAY-BUTTON-LABEL (PROPERTY-SHEET T T))|.
Compiling DEFMETHOD AFTER-DISPLAY-BUTTON-LABEL (PROPERTY-SHEET T T): 
Converted |(PCL::FAST-METHOD AFTER-DISPLAY-BUTTON-LABEL (CONFIRM T T))|.
Compiling DEFMETHOD AFTER-DISPLAY-BUTTON-LABEL (CONFIRM T T): 
Converted |(PCL::FAST-METHOD DISPLAY-WINDOW-MARK (DIALOG-BUTTON T))|.
Compiling DEFMETHOD DISPLAY-WINDOW-MARK (DIALOG-BUTTON T): 
[GC threshold exceeded with 15,813,640 bytes in use.  Commencing GC.]
[GC completed with 13,842,680 bytes retained and 1,970,960 bytes freed.]
[GC will next occur when at least 15,842,680 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISPLAY-WINDOW-MARK (DIALOG-ITEM T))|.
Compiling DEFMETHOD DISPLAY-WINDOW-MARK (DIALOG-ITEM T): 
Converted |(PCL::FAST-METHOD SET-MENU-POSITION (DIALOG-BUTTON T))|.
Compiling DEFMETHOD SET-MENU-POSITION (DIALOG-BUTTON T): 
Converted |(PCL::FAST-METHOD SET-MENU-POSITION (DIALOG-ITEM T))|.
Compiling DEFMETHOD SET-MENU-POSITION (DIALOG-ITEM T): 
[GC threshold exceeded with 16,404,504 bytes in use.  Commencing GC.]
[GC completed with 14,059,944 bytes retained and 2,344,560 bytes freed.]
[GC will next occur when at least 16,059,944 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SET-MENU-POSITION (NULL T))|.
Compiling DEFMETHOD SET-MENU-POSITION (NULL T): 
Byte Compiling Top-Level Form: 

Compilation unit finished.
  8 warnings


clue:clio/dlog-button.x86f written.
Compilation finished in 0:00:44.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/clio/dlog-button.x86f".
[GC threshold exceeded with 16,064,568 bytes in use.  Commencing GC.]
[GC completed with 14,338,688 bytes retained and 1,725,880 bytes freed.]
[GC will next occur when at least 16,338,688 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:00:48 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/clio/precom.lisp 07 MAR 97 07:12:04 pm

Compiling LAMBDA (#:G0 #:G1 #:G13 #:G14): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G26 #:G38 #:G39): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G51 #:G52 #:G55 #:G56): 
Compiling Top-Level Form: 
[GC threshold exceeded with 16,342,464 bytes in use.  Commencing GC.]
[GC completed with 14,781,248 bytes retained and 1,561,216 bytes freed.]
[GC will next occur when at least 16,781,248 bytes are in use.]
Compiling LAMBDA (#:G59 #:G60 #:G61 #:G62 #:G63 #:G64 #:G65 #:G66 #:G67 #:G68 #:G69 #:G71 #:G72): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G74 #:G75 #:G77 #:G78): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G80 #:G81 #:G84 #:G85): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G88 #:G89 #:G90 #:G91 #:G94 #:G95): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G100 #:G101 #:G102 #:G103 #:G115 #:G116): [GC threshold exceeded with 16,790,440 bytes in use.  Commencing GC.]
[GC completed with 15,313,208 bytes retained and 1,477,232 bytes freed.]
[GC will next occur when at least 17,313,208 bytes are in use.]

Compiling Top-Level Form: 
Compiling LAMBDA (#:G128 #:G129 #:G132 #:G133): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G136 #:G137 #:G138 #:G139 #:G141 #:G142): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G144 #:G145 #:G146 #:G147 #:G159 #:G160): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G172 #:G173 #:G174 #:G175 #:G176 #:G177 #:G179 #:G180): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G182 #:G183 #:G184 #:G185 #:G197 #:G198): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G210 #:G211 #:G212 #:G213 #:G214 #:G215 #:G216 #:G217 #:G218 #:G219 #:G220 #:G221 #:G222 #:G223 #:G224 #:G225 #:G226 #:G227 #:G228 #:G229 #:G230 #:G231 #:G232 #:G233 #:G234 #:G235 #:G236 #:G237 #:G238 #:G239 #:G240 #:G241 #:G242 #:G243 #:G244 #:G246 #:G247): [GC threshold exceeded with 17,321,072 bytes in use.  Commencing GC.]
[GC completed with 14,044,208 bytes retained and 3,276,864 bytes freed.]
[GC will next occur when at least 16,044,208 bytes are in use.]

Compiling Top-Level Form: 
Compiling LAMBDA (#:G249 #:G250 #:G251 #:G252 #:G253 #:G254 #:G255 #:G256 #:G257 #:G258 #:G259 #:G260 #:G261 #:G262 #:G263 #:G264 #:G265 #:G266 #:G267 #:G268 #:G269 #:G270 #:G271 #:G272 #:G273 #:G275 #:G276): [GC threshold exceeded with 16,049,488 bytes in use.  Commencing GC.]
[GC completed with 15,057,168 bytes retained and 992,320 bytes freed.]
[GC will next occur when at least 17,057,168 bytes are in use.]

Compiling Top-Level Form: 
Compiling LAMBDA (#:G278 #:G279 #:G280 #:G281 #:G282 #:G283 #:G284 #:G285 #:G286 #:G287 #:G289 #:G290): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G292 #:G293 #:G294 #:G295 #:G296 #:G297 #:G309 #:G310): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G333 #:G334 #:G337 #:G338): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G341 #:G342 #:G343 #:G344 #:G345 #:G346 #:G348 #:G349): 
Compiling Top-Level Form: 
[GC threshold exceeded with 17,057,704 bytes in use.  Commencing GC.]
[GC completed with 15,133,872 bytes retained and 1,923,832 bytes freed.]
[GC will next occur when at least 17,133,872 bytes are in use.]
[GC threshold exceeded with 17,139,752 bytes in use.  Commencing GC.]
[GC completed with 15,216,368 bytes retained and 1,923,384 bytes freed.]
[GC will next occur when at least 17,216,368 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
[GC threshold exceeded with 17,712,032 bytes in use.  Commencing GC.]
[GC completed with 15,401,512 bytes retained and 2,310,520 bytes freed.]
[GC will next occur when at least 17,401,512 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Byte Compiling Top-Level Form: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 

File: /usr/local/fakeroot/work/clue-19970309/clio/precom.lisp

In: PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO
  (PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO)
--> PROGN PCL::PRECOMPILE-FUNCTION-GENERATORS PROGN 
--> PCL::LOAD-FUNCTION-GENERATOR PCL::LOAD-FUNCTION-GENERATOR FUNCTION FUNCTION 
--> LOCALLY LET LET PCL::MLOOKUP IF 
==>
  (EQL PCL::.ARG1. (CAR #:G1782))
Note: Unable to optimize due to type uncertainty:
      The first argument is a T, not a SINGLE-FLOAT.
      The second argument is a T, not a SINGLE-FLOAT.
Note: Unable to optimize due to type uncertainty:
      The first argument is a T, not a DOUBLE-FLOAT.
      The second argument is a T, not a DOUBLE-FLOAT.
Note: Forced to do GENERIC-EQL (cost 10).
      Unable to do inline fixnum comparison (cost 4) because:
      The first argument is a T, not a FIXNUM.
      The second argument is a T, not a FIXNUM.

Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
[GC threshold exceeded with 17,609,064 bytes in use.  Commencing GC.]
[GC completed with 15,755,824 bytes retained and 1,853,240 bytes freed.]
[GC will next occur when at least 17,755,824 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Byte Compiling Top-Level Form: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
[GC threshold exceeded with 17,965,856 bytes in use.  Commencing GC.]
[GC completed with 15,918,848 bytes retained and 2,047,008 bytes freed.]
[GC will next occur when at least 17,918,848 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
[GC threshold exceeded with 18,497,656 bytes in use.  Commencing GC.]
[GC completed with 16,298,760 bytes retained and 2,198,896 bytes freed.]
[GC will next occur when at least 18,298,760 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Byte Compiling Top-Level Form: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CLUEI:CONTACT>: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
[GC threshold exceeded with 18,471,632 bytes in use.  Commencing GC.]
[GC completed with 15,526,288 bytes retained and 2,945,344 bytes freed.]
[GC will next occur when at least 17,526,288 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
[GC threshold exceeded with 17,836,256 bytes in use.  Commencing GC.]
[GC completed with 15,925,568 bytes retained and 1,910,688 bytes freed.]
[GC will next occur when at least 17,925,568 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS CLIO: 
Byte Compiling Top-Level Form: 

Compilation unit finished.
  3 notes


clue:clio/precom.x86f written.
Compilation finished in 0:00:35.

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:01:24 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/package.lisp 23 NOV 96 06:06:55 pm

Compiling ASSERT (FIND-PACKAGE "COMMON-LISP"): 
Compiling ASSERT (FIND-PACKAGE "CLUE"): 
Compiling UNLESS (FIND-PACKAGE "PICTURES"): 
[GC threshold exceeded with 18,111,568 bytes in use.  Commencing GC.]
[GC completed with 16,004,968 bytes retained and 2,106,600 bytes freed.]
[GC will next occur when at least 18,004,968 bytes are in use.]

clue:pictures/package.x86f written.
Compilation finished in 0:00:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/package.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:01:25 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/defgeneric.lisp 04 MAR 97 10:48:50 pm

Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 18,005,784 bytes in use.  Commencing GC.]
[GC completed with 16,271,128 bytes retained and 1,734,656 bytes freed.]
[GC will next occur when at least 18,271,128 bytes are in use.]
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:pictures/defgeneric.x86f written.
Compilation finished in 0:00:03.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/defgeneric.x86f".
[GC threshold exceeded with 18,277,120 bytes in use.  Commencing GC.]
[GC completed with 16,413,680 bytes retained and 1,863,440 bytes freed.]
[GC will next occur when at least 18,413,680 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:01:29 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/types.lisp 13 FEB 97 09:39:53 pm

Compiling DEFTYPE WCOORD: 
Compiling DEFTYPE OCOORD: 
Compiling DEFTYPE EXTENT-ELEMENT: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 

clue:pictures/types.x86f written.
Compilation finished in 0:00:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/types.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:01:30 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/macros.lisp 14 FEB 97 03:52:21 pm

Converted WITH-VECTOR.
Compiling DEFMACRO WITH-VECTOR: 
Converted WITH-EXTENT-CORNERS.
Compiling DEFMACRO WITH-EXTENT-CORNERS: 
Converted WITH-EXTENT-VALUES.
Compiling DEFMACRO WITH-EXTENT-VALUES: 
Converted WITH-SPECIAL-VECTOR.
Compiling DEFMACRO WITH-SPECIAL-VECTOR: 
Converted DRAWBOX-WITH-GC.
Compiling DEFMACRO DRAWBOX-WITH-GC: 
Converted DRAWBOX.
Compiling DEFMACRO DRAWBOX: 
Converted DRAWLINES-WITH-GC.
Compiling DEFMACRO DRAWLINES-WITH-GC: 
Converted VISIBLE-P.
Compiling DEFMACRO VISIBLE-P: 
Converted VISIBLE-P.
Compiling DEFMACRO VISIBLE-P: 
Converted CHANGE-BASE-X.
Compiling DEFMACRO CHANGE-BASE-X: 
[GC threshold exceeded with 18,445,320 bytes in use.  Commencing GC.]
[GC completed with 17,098,048 bytes retained and 1,347,272 bytes freed.]
[GC will next occur when at least 19,098,048 bytes are in use.]
Converted CHANGE-BASE-Y.
Compiling DEFMACRO CHANGE-BASE-Y: 
Byte Compiling Top-Level Form: 
Converted POINT-NEAR-LINE.
Compiling DEFMACRO POINT-NEAR-LINE: 
Converted COPY-TO-VECTOR.
Compiling DEFMACRO COPY-TO-VECTOR: 
Converted COPY-TO-POINT-SEQ.
Compiling DEFMACRO COPY-TO-POINT-SEQ: 
Converted PROCESS-MOTION-NOTIFY-EVENTS.
Compiling DEFMACRO PROCESS-MOTION-NOTIFY-EVENTS: 
Converted EXECUTABLE-FORM-P.
Compiling DEFMACRO EXECUTABLE-FORM-P: 
Converted MAKE-FORM-P.
Compiling DEFMACRO MAKE-FORM-P: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted EXTENT-RECT-XMIN.
Compiling DEFSTRUCT EXTENT-RECT: 
Converted (SETF EXTENT-RECT-XMIN).
Compiling DEFSTRUCT EXTENT-RECT: 
Converted EXTENT-RECT-YMIN.
Compiling DEFSTRUCT EXTENT-RECT: 
Byte Compiling Top-Level Form: 
Converted (SETF EXTENT-RECT-YMIN).
Compiling DEFSTRUCT EXTENT-RECT: 
Converted EXTENT-RECT-XMAX.
Compiling DEFSTRUCT EXTENT-RECT: 
Converted (SETF EXTENT-RECT-XMAX).
Compiling DEFSTRUCT EXTENT-RECT: 
Converted EXTENT-RECT-YMAX.
Compiling DEFSTRUCT EXTENT-RECT: 
Byte Compiling Top-Level Form: 
Converted (SETF EXTENT-RECT-YMAX).
Compiling DEFSTRUCT EXTENT-RECT: 
Converted MAKE-EXTENT-RECT.
Compiling DEFSTRUCT EXTENT-RECT: 
[GC threshold exceeded with 19,167,208 bytes in use.  Commencing GC.]
[GC completed with 17,292,144 bytes retained and 1,875,064 bytes freed.]
[GC will next occur when at least 19,292,144 bytes are in use.]
Converted WITH-COERCION.
Compiling DEFMACRO WITH-COERCION: 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL EXTENT-RECT>: 

clue:pictures/macros.x86f written.
Compilation finished in 0:00:06.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/macros.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:01:36 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/sequence.lisp 16 NOV 96 08:46:51 pm

Converted LENGTH-POINT-SEQ.
Compiling DEFMACRO LENGTH-POINT-SEQ: 
Converted PRINT-SEQ.
Compiling DEFUN PRINT-SEQ: 
Converted |(PCL::FAST-METHOD VERTEX-X (LIST T))|.
Compiling DEFMETHOD VERTEX-X (LIST T): 
Converted |(PCL::FAST-METHOD VERTEX-X (ARRAY T))|.
Compiling DEFMETHOD VERTEX-X (ARRAY T): 
Converted |(PCL::FAST-METHOD (SETF VERTEX-X) (T ARRAY T))|.
Compiling DEFMETHOD (SETF VERTEX-X) (T ARRAY T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF VERTEX-X) (T LIST T))|.
Compiling DEFMETHOD (SETF VERTEX-X) (T LIST T): 
Converted |(PCL::FAST-METHOD VERTEX-Y (LIST T))|.
Compiling DEFMETHOD VERTEX-Y (LIST T): 
Converted |(PCL::FAST-METHOD VERTEX-Y (ARRAY T))|.
Compiling DEFMETHOD VERTEX-Y (ARRAY T): 
Converted |(PCL::FAST-METHOD (SETF VERTEX-Y) (T ARRAY T))|.
Compiling DEFMETHOD (SETF VERTEX-Y) (T ARRAY T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF VERTEX-Y) (T LIST T))|.
Compiling DEFMETHOD (SETF VERTEX-Y) (T LIST T): 
Converted |(PCL::FAST-METHOD VERTEX-I (LIST T))|.
Compiling DEFMETHOD VERTEX-I (LIST T): 
[GC threshold exceeded with 19,297,136 bytes in use.  Commencing GC.]
[GC completed with 17,704,176 bytes retained and 1,592,960 bytes freed.]
[GC will next occur when at least 19,704,176 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF VERTEX-I) (T LIST T))|.
Compiling DEFMETHOD (SETF VERTEX-I) (T LIST T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VERTEX-I (ARRAY T))|.
Compiling DEFMETHOD VERTEX-I (ARRAY T): 
Converted |(PCL::FAST-METHOD (SETF VERTEX-I) (T ARRAY T))|.
Compiling DEFMETHOD (SETF VERTEX-I) (T ARRAY T): 
Converted |(PCL::FAST-METHOD VERTEX-X (LIST T))|.
Compiling DEFMETHOD VERTEX-X (LIST T): 
Converted |(PCL::FAST-METHOD VERTEX-X (ARRAY T))|.
Compiling DEFMETHOD VERTEX-X (ARRAY T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF VERTEX-X) (T ARRAY T))|.
Compiling DEFMETHOD (SETF VERTEX-X) (T ARRAY T): 
Converted |(PCL::FAST-METHOD (SETF VERTEX-X) (T LIST T))|.
Compiling DEFMETHOD (SETF VERTEX-X) (T LIST T): 
Converted |(PCL::FAST-METHOD VERTEX-Y (LIST T))|.
Compiling DEFMETHOD VERTEX-Y (LIST T): 
Converted |(PCL::FAST-METHOD VERTEX-Y (ARRAY T))|.
Compiling DEFMETHOD VERTEX-Y (ARRAY T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF VERTEX-Y) (T ARRAY T))|.
Compiling DEFMETHOD (SETF VERTEX-Y) (T ARRAY T): 
Converted |(PCL::FAST-METHOD (SETF VERTEX-Y) (T LIST T))|.
Compiling DEFMETHOD (SETF VERTEX-Y) (T LIST T): 
Converted |(PCL::FAST-METHOD LENGTH-VERTICES (LIST))|.
Compiling DEFMETHOD LENGTH-VERTICES (LIST): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD LENGTH-VERTICES (ARRAY))|.
Compiling DEFMETHOD LENGTH-VERTICES (ARRAY): 
Converted POINT-SEQ-X-MIN.
Compiling DEFUN POINT-SEQ-X-MIN: 
Converted POINT-SEQ-Y-MIN.
Compiling DEFUN POINT-SEQ-Y-MIN: 
Converted POINT-SEQ-X-MAX.
Compiling DEFUN POINT-SEQ-X-MAX: 
Converted POINT-SEQ-Y-MAX.
Compiling DEFUN POINT-SEQ-Y-MAX: 
[GC threshold exceeded with 19,717,048 bytes in use.  Commencing GC.]
[GC completed with 12,677,896 bytes retained and 7,039,152 bytes freed.]
[GC will next occur when at least 14,677,896 bytes are in use.]
Converted FIND-POINT-SEQ-X.
Compiling DEFUN FIND-POINT-SEQ-X: 
Converted FIND-POINT-SEQ-Y.
Compiling DEFUN FIND-POINT-SEQ-Y: 
Converted |(PCL::FAST-METHOD INSERT-VERTEX (ARRAY T T T))|.
Compiling DEFMETHOD INSERT-VERTEX (ARRAY T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD INSERT-VERTEX (LIST T T T))|.
Compiling DEFMETHOD INSERT-VERTEX (LIST T T T): 
Converted |(PCL::FAST-METHOD DELETE-VERTEX (ARRAY T))|.
Compiling DEFMETHOD DELETE-VERTEX (ARRAY T): 
Converted |(PCL::FAST-METHOD DELETE-VERTEX (LIST T))|.
Compiling DEFMETHOD DELETE-VERTEX (LIST T): 
Converted MIN-VALUE-VECTOR.
Compiling DEFUN MIN-VALUE-VECTOR: 
Converted MAX-VALUE-VECTOR.
Compiling DEFUN MAX-VALUE-VECTOR: 
Byte Compiling Top-Level Form: 

clue:pictures/sequence.x86f written.
Compilation finished in 0:00:09.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/sequence.x86f".
[GC threshold exceeded with 14,679,104 bytes in use.  Commencing GC.]
[GC completed with 13,036,640 bytes retained and 1,642,464 bytes freed.]
[GC will next occur when at least 15,036,640 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:01:46 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/transform.lisp 06 MAR 97 01:05:21 pm

Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted TRANSFORM-T11.
Compiling DEFSTRUCT TRANSFORM: 
Converted (SETF TRANSFORM-T11).
Compiling DEFSTRUCT TRANSFORM: 
Converted TRANSFORM-T12.
Compiling DEFSTRUCT TRANSFORM: 
Byte Compiling Top-Level Form: 
Converted (SETF TRANSFORM-T12).
Compiling DEFSTRUCT TRANSFORM: 
Converted TRANSFORM-T21.
Compiling DEFSTRUCT TRANSFORM: 
Converted (SETF TRANSFORM-T21).
Compiling DEFSTRUCT TRANSFORM: 
Converted TRANSFORM-T22.
Compiling DEFSTRUCT TRANSFORM: 
Byte Compiling Top-Level Form: 
Converted (SETF TRANSFORM-T22).
Compiling DEFSTRUCT TRANSFORM: 
Converted TRANSFORM-T31.
Compiling DEFSTRUCT TRANSFORM: 
Converted (SETF TRANSFORM-T31).
Compiling DEFSTRUCT TRANSFORM: 
Converted TRANSFORM-T32.
Compiling DEFSTRUCT TRANSFORM: 
Byte Compiling Top-Level Form: 
Converted (SETF TRANSFORM-T32).
Compiling DEFSTRUCT TRANSFORM: 
Converted MAKE-TRANSFORM.
Compiling DEFSTRUCT TRANSFORM: 
Converted %PRINT-TRANSFORM.
Compiling DEFUN %PRINT-TRANSFORM: 
Converted |(PCL::FAST-METHOD PRINT-OBJECT (TRANSFORM T))|.
Compiling DEFMETHOD PRINT-OBJECT (TRANSFORM T): 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL TRANSFORM>: 
[GC threshold exceeded with 15,037,504 bytes in use.  Commencing GC.]
[GC completed with 13,321,120 bytes retained and 1,716,384 bytes freed.]
[GC will next occur when at least 15,321,120 bytes are in use.]
Converted |(PCL::FAST-METHOD T11 (TRANSFORM))|.
Compiling MACROLET ((HELP # #)): 
Converted |(PCL::FAST-METHOD T12 (TRANSFORM))|.
Compiling MACROLET ((HELP # #)): 
Converted |(PCL::FAST-METHOD T21 (TRANSFORM))|.
Compiling MACROLET ((HELP # #)): 
Converted |(PCL::FAST-METHOD T22 (TRANSFORM))|.
Compiling MACROLET ((HELP # #)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD T31 (TRANSFORM))|.
Compiling MACROLET ((HELP # #)): 
Converted |(PCL::FAST-METHOD T32 (TRANSFORM))|.
Compiling MACROLET ((HELP # #)): 
Converted WITH-DEFSTRUCT-SLOTS.
Compiling DEFMACRO WITH-DEFSTRUCT-SLOTS: 
Converted POST-MULT.
Compiling DEFUN POST-MULT: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD COMPOSE-TRANSFORM (T T))|.
Compiling DEFMETHOD COMPOSE-TRANSFORM (T T): 
Converted |(PCL::FAST-METHOD COMPOSE-TRANSFORM (T TRANSFORM))|.
Compiling DEFMETHOD COMPOSE-TRANSFORM (T TRANSFORM): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD COMPOSE-TRANSFORM (TRANSFORM T))|.
Compiling DEFMETHOD COMPOSE-TRANSFORM (TRANSFORM T): 
Converted |(PCL::FAST-METHOD COMPOSE-TRANSFORM (TRANSFORM TRANSFORM))|.
Compiling DEFMETHOD COMPOSE-TRANSFORM (TRANSFORM TRANSFORM): 
[GC threshold exceeded with 15,919,504 bytes in use.  Commencing GC.]
[GC completed with 13,772,224 bytes retained and 2,147,280 bytes freed.]
[GC will next occur when at least 15,772,224 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD COPY-TRANSFORM (T T))|.
Compiling DEFMETHOD COPY-TRANSFORM (T T): 
Converted |(PCL::FAST-METHOD COPY-TRANSFORM (TRANSFORM T))|.
Compiling DEFMETHOD COPY-TRANSFORM (TRANSFORM T): 
Converted |(PCL::FAST-METHOD COPY-TRANSFORM (T TRANSFORM))|.
Compiling DEFMETHOD COPY-TRANSFORM (T TRANSFORM): 
Converted |(PCL::FAST-METHOD COPY-TRANSFORM (TRANSFORM TRANSFORM))|.
Compiling DEFMETHOD COPY-TRANSFORM (TRANSFORM TRANSFORM): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MOVE-TRANSFORM (TRANSFORM T T))|.
Compiling DEFMETHOD MOVE-TRANSFORM (TRANSFORM T T): 
Converted |(PCL::FAST-METHOD PRINT-OBJECT :AFTER (TRANSFORM T))|.
Compiling DEFMETHOD PRINT-OBJECT :AFTER (TRANSFORM T): 
Converted RADIANS.
Compiling DEFMACRO RADIANS: 
Converted |(PCL::FAST-METHOD ROTATE-TRANSFORM (TRANSFORM T))|.
Compiling DEFMETHOD ROTATE-TRANSFORM (TRANSFORM T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCALE-TRANSFORM (TRANSFORM T T))|.
Compiling DEFMETHOD SCALE-TRANSFORM (TRANSFORM T T): 
[GC threshold exceeded with 15,782,016 bytes in use.  Commencing GC.]
[GC completed with 13,880,384 bytes retained and 1,901,632 bytes freed.]
[GC will next occur when at least 15,880,384 bytes are in use.]

Warning: In defmethod (SCALE-POINT NIL (NULL T T)), there is a
redundant ignore declaration for the parameter (NULL T T).

Converted |(PCL::FAST-METHOD SCALE-POINT (NULL T T))|.
Compiling DEFMETHOD SCALE-POINT (NULL T T): 
Converted |(PCL::FAST-METHOD SCALE-POINT (TRANSFORM T T))|.
Compiling DEFMETHOD SCALE-POINT (TRANSFORM T T): 
Converted |(PCL::FAST-METHOD TRANSFORM-POINT (TRANSFORM T T))|.
Compiling DEFMETHOD TRANSFORM-POINT (TRANSFORM T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TRANSFORM-POINT (T T T))|.
Compiling DEFMETHOD TRANSFORM-POINT (T T T): 
Converted |(PCL::FAST-METHOD TRANSFORM-POINT-SEQ (T T))|.
Compiling DEFMETHOD TRANSFORM-POINT-SEQ (T T): 
Converted |(PCL::FAST-METHOD TRANSFORM-POINT-SEQ (TRANSFORM T))|.
Compiling DEFMETHOD TRANSFORM-POINT-SEQ (TRANSFORM T): 
Converted GET-GLOBAL-VECTOR.
Compiling DEFUN GET-GLOBAL-VECTOR: 
Byte Compiling Top-Level Form: 
Converted RETURN-GLOBAL-VECTOR.
Compiling DEFUN RETURN-GLOBAL-VECTOR: 
Byte Compiling Top-Level Form: 

Compilation unit finished.
  1 warning


clue:pictures/transform.x86f written.
Compilation finished in 0:00:11.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/transform.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:01:57 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/extent.lisp 25 FEB 97 05:41:40 pm

Byte Compiling Top-Level Form: 
[GC threshold exceeded with 15,885,824 bytes in use.  Commencing GC.]
[GC completed with 14,278,456 bytes retained and 1,607,368 bytes freed.]
[GC will next occur when at least 16,278,456 bytes are in use.]
Compiling DEFCLASS EXTENT-CACHE: 
Converted |(PCL::FAST-METHOD EXTENT-CHANGED (EXTENT-CACHE))|.
Compiling DEFMETHOD EXTENT-CHANGED (EXTENT-CACHE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL EXTENT-CACHE>: 
Converted EXTENT-COMBINE.
Compiling DEFUN EXTENT-COMBINE: 
Converted EXTENT-COPY.
Compiling DEFUN EXTENT-COPY: 
Converted |(PCL::FAST-METHOD GRAPHIC-EXTENT (EXTENT-CACHE))|.
Compiling DEFMETHOD GRAPHIC-EXTENT (EXTENT-CACHE): 
Converted EXTENT-TRANSFORM.
Compiling DEFUN EXTENT-TRANSFORM: 
[GC threshold exceeded with 16,380,720 bytes in use.  Commencing GC.]
[GC completed with 14,485,920 bytes retained and 1,894,800 bytes freed.]
[GC will next occur when at least 16,485,920 bytes are in use.]
Converted EXTENT-MOVE.
Compiling DEFUN EXTENT-MOVE: 
Byte Compiling Top-Level Form: 

clue:pictures/extent.x86f written.
Compilation finished in 0:00:04.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/extent.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:02:01 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/edge.lisp 19 JUL 90 08:52:24 pm

Byte Compiling Top-Level Form: 

clue:pictures/edge.x86f written.
Compilation finished in 0:00:00.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/edge.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:02:01 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/class-def.lisp 24 NOV 96 09:44:40 pm

Compiling DEFCLASS GRAPHIC: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (GRAPHIC))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (GRAPHIC): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
Compiling DEFTYPE SCENE-POSITION: 
Compiling DEFCLASS SCENE: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 16,496,416 bytes in use.  Commencing GC.]
[GC completed with 15,051,280 bytes retained and 1,445,136 bytes freed.]
[GC will next occur when at least 17,051,280 bytes are in use.]
Byte Compiling Top-Level Form: 
Compiling DEFCONTACT VIEW: 
Compiling DEFCONTACT VIEW: 
Compiling DEFCONTACT VIEW: 
Compiling DEFCONTACT VIEW: 
Compiling DEFCONTACT VIEW: 
Compiling DEFCONTACT VIEW: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUEI::DEFAULT-OPTIONS ((EQL VIEW) T))|.
Compiling DEFCONTACT VIEW: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PIXMAP>: 
[GC threshold exceeded with 17,056,480 bytes in use.  Commencing GC.]
[GC completed with 13,933,264 bytes retained and 3,123,216 bytes freed.]
[GC will next occur when at least 15,933,264 bytes are in use.]
Converted |(PCL::FAST-METHOD CLUEI::INITIALIZE-RESOURCE-SLOTS (VIEW T T))|.
Compiling DEFCONTACT VIEW: 
[GC threshold exceeded with 16,491,240 bytes in use.  Commencing GC.]
[GC completed with 14,484,040 bytes retained and 2,007,200 bytes freed.]
[GC will next occur when at least 16,484,040 bytes are in use.]
Converted GRAPHIC-EVENTS-ENABLED-P.
Compiling DEFUN GRAPHIC-EVENTS-ENABLED-P: 
Converted SET-GRAPHIC-EVENTS-ENABLED-P.
Compiling DEFUN SET-GRAPHIC-EVENTS-ENABLED-P: 
Byte Compiling Top-Level Form: 

clue:pictures/class-def.x86f written.
Compilation finished in 0:00:08.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/class-def.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:02:10 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/gstate.lisp 24 NOV 96 11:58:02 pm

Converted PIXELP.
Compiling DEFMACRO PIXELP: 
Converted PUT-HASH.
Compiling DEFMACRO PUT-HASH: 
Converted GSTATE-EQUAL.
Compiling DEFUN GSTATE-EQUAL: 
Compiling DEFCLASS GSTATE: 
Compiling DEFCLASS GSTATE: 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 16,513,472 bytes in use.  Commencing GC.]
[GC completed with 14,721,232 bytes retained and 1,792,240 bytes freed.]
[GC will next occur when at least 16,721,232 bytes are in use.]
Converted WITH-GSTATE-VALUE-PLACE.
Compiling DEFMACRO WITH-GSTATE-VALUE-PLACE: 
Converted |(PCL::FAST-METHOD GSTATE-VALUE (GSTATE T))|.
Compiling DEFMETHOD GSTATE-VALUE (GSTATE T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GSTATE>: 
[GC threshold exceeded with 16,849,056 bytes in use.  Commencing GC.]
[GC completed with 15,182,176 bytes retained and 1,666,880 bytes freed.]
[GC will next occur when at least 17,182,176 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF GSTATE-VALUE) (PIXMAP GSTATE (EQL :FOREGROUND)))|.
Compiling DEFMETHOD (SETF GSTATE-VALUE) (PIXMAP GSTATE (EQL :FOREGROUND)): 
Compiling Load Time Value of (PCL::GET-MAKE-INSTANCE-FUNCTION-SYMBOL '(GSTATE NIL NIL)): 
Converted MAKE-GSTATE.
Compiling DEFUN MAKE-GSTATE: 
Converted |(PCL::FAST-METHOD PRINT-OBJECT (GSTATE T))|.
Compiling DEFMETHOD PRINT-OBJECT (GSTATE T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-VALUE) (T GSTATE T))|.
Compiling DEFMETHOD (SETF GSTATE-VALUE) (T GSTATE T): 
[GC threshold exceeded with 17,295,136 bytes in use.  Commencing GC.]
[GC completed with 15,324,624 bytes retained and 1,970,512 bytes freed.]
[GC will next occur when at least 17,324,624 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF GSTATE-VALUE) :AROUND (T GSTATE T))|.
Compiling DEFMETHOD (SETF GSTATE-VALUE) :AROUND (T GSTATE T): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FOREGROUND) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-FOREGROUND) :BEFORE (T GRAPHIC): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
Converted |(PCL::FAST-METHOD GSTATE-FOREGROUND (GSTATE))|.
Compiling DEFMETHOD GSTATE-FOREGROUND (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-FOREGROUND (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-FOREGROUND (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FOREGROUND) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-FOREGROUND) (T GSTATE): 
[GC threshold exceeded with 17,435,696 bytes in use.  Commencing GC.]
[GC completed with 15,796,512 bytes retained and 1,639,184 bytes freed.]
[GC will next occur when at least 17,796,512 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FOREGROUND) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-FOREGROUND) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-BACKGROUND (GSTATE))|.
Compiling DEFMETHOD GSTATE-BACKGROUND (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-BACKGROUND (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-BACKGROUND (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-BACKGROUND) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-BACKGROUND) (T GSTATE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-BACKGROUND) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-BACKGROUND) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-BACKGROUND) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-BACKGROUND) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-DASHES (GSTATE))|.
Compiling DEFMETHOD GSTATE-DASHES (GSTATE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GSTATE-DASHES (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-DASHES (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-DASHES) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-DASHES) (T GSTATE): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-DASHES) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-DASHES) :BEFORE (T GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-DASHES) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-DASHES) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-FUNCTION (GSTATE))|.
Compiling DEFMETHOD GSTATE-FUNCTION (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-FUNCTION (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-FUNCTION (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FUNCTION) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-FUNCTION) (T GSTATE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FUNCTION) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-FUNCTION) :BEFORE (T GRAPHIC): 
[GC threshold exceeded with 17,884,864 bytes in use.  Commencing GC.]
[GC completed with 14,133,008 bytes retained and 3,751,856 bytes freed.]
[GC will next occur when at least 16,133,008 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF GSTATE-FUNCTION) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-FUNCTION) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-LINE-WIDTH (GSTATE))|.
Compiling DEFMETHOD GSTATE-LINE-WIDTH (GSTATE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GSTATE-LINE-WIDTH (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-LINE-WIDTH (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-LINE-WIDTH) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-LINE-WIDTH) (T GSTATE): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-LINE-WIDTH) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-LINE-WIDTH) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-LINE-WIDTH) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-LINE-WIDTH) (T GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GSTATE-FONT (GSTATE))|.
Compiling DEFMETHOD GSTATE-FONT (GSTATE): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FONT) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-FONT) (T GSTATE): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FONT) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-FONT) (T GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GSTATE-FONT (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-FONT (GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-LINE-STYLE (GSTATE))|.
Compiling DEFMETHOD GSTATE-LINE-STYLE (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-LINE-STYLE (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-LINE-STYLE (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-LINE-STYLE) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-LINE-STYLE) (T GSTATE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-LINE-STYLE) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-LINE-STYLE) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-LINE-STYLE) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-LINE-STYLE) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-CAP-STYLE (GSTATE))|.
Compiling DEFMETHOD GSTATE-CAP-STYLE (GSTATE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GSTATE-CAP-STYLE (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-CAP-STYLE (GRAPHIC): 
[GC threshold exceeded with 16,150,408 bytes in use.  Commencing GC.]
[GC completed with 14,536,024 bytes retained and 1,614,384 bytes freed.]
[GC will next occur when at least 16,536,024 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF GSTATE-CAP-STYLE) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-CAP-STYLE) (T GSTATE): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-CAP-STYLE) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-CAP-STYLE) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-CAP-STYLE) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-CAP-STYLE) (T GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GSTATE-JOIN-STYLE (GSTATE))|.
Compiling DEFMETHOD GSTATE-JOIN-STYLE (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-JOIN-STYLE (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-JOIN-STYLE (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-JOIN-STYLE) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-JOIN-STYLE) (T GSTATE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-JOIN-STYLE) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-JOIN-STYLE) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-JOIN-STYLE) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-JOIN-STYLE) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-FILL-STYLE (GSTATE))|.
Compiling DEFMETHOD GSTATE-FILL-STYLE (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-FILL-STYLE (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-FILL-STYLE (GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FILL-STYLE) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-FILL-STYLE) (T GSTATE): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FILL-STYLE) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-FILL-STYLE) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FILL-STYLE) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-FILL-STYLE) (T GRAPHIC): 
[GC threshold exceeded with 16,603,056 bytes in use.  Commencing GC.]
[GC completed with 14,730,504 bytes retained and 1,872,552 bytes freed.]
[GC will next occur when at least 16,730,504 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GSTATE-FILL-RULE (GSTATE))|.
Compiling DEFMETHOD GSTATE-FILL-RULE (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-FILL-RULE (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-FILL-RULE (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FILL-RULE) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-FILL-RULE) (T GSTATE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FILL-RULE) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-FILL-RULE) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-FILL-RULE) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-FILL-RULE) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-ARC-MODE (GSTATE))|.
Compiling DEFMETHOD GSTATE-ARC-MODE (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-ARC-MODE (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-ARC-MODE (GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-ARC-MODE) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-ARC-MODE) (T GSTATE): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-ARC-MODE) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-ARC-MODE) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-TILE (GSTATE))|.
Compiling DEFMETHOD GSTATE-TILE (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-TILE (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-TILE (GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-TILE) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-TILE) (T GSTATE): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-TILE) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-TILE) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-TILE) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-TILE) (T GRAPHIC): 
[GC threshold exceeded with 16,830,328 bytes in use.  Commencing GC.]
[GC completed with 15,176,504 bytes retained and 1,653,824 bytes freed.]
[GC will next occur when at least 17,176,504 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GSTATE-STIPPLE (GSTATE))|.
Compiling DEFMETHOD GSTATE-STIPPLE (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-STIPPLE (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-STIPPLE (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-STIPPLE) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-STIPPLE) (T GSTATE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-STIPPLE) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-STIPPLE) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-STIPPLE) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-STIPPLE) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GSTATE-CLIP-MASK (GSTATE))|.
Compiling DEFMETHOD GSTATE-CLIP-MASK (GSTATE): 
Converted |(PCL::FAST-METHOD GSTATE-CLIP-MASK (GRAPHIC))|.
Compiling DEFMETHOD GSTATE-CLIP-MASK (GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted SEQUENCEP.
Compiling DEFMACRO SEQUENCEP: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-CLIP-MASK) (T GSTATE))|.
Compiling DEFMETHOD (SETF GSTATE-CLIP-MASK) (T GSTATE): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-CLIP-MASK) :BEFORE (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-CLIP-MASK) :BEFORE (T GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-CLIP-MASK) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GSTATE-CLIP-MASK) (T GRAPHIC): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 17,177,896 bytes in use.  Commencing GC.]
[GC completed with 15,538,872 bytes retained and 1,639,024 bytes freed.]
[GC will next occur when at least 17,538,872 bytes are in use.]
Converted |(PCL::FAST-METHOD REMOVE-GSTATE-VALUE (GSTATE T))|.
Compiling DEFMETHOD REMOVE-GSTATE-VALUE (GSTATE T): 
Converted GSTATE-COMBINE.
Compiling DEFUN GSTATE-COMBINE: 
Converted CLEAR-GSTATE.
Compiling DEFMACRO CLEAR-GSTATE: 
[GC threshold exceeded with 17,617,744 bytes in use.  Commencing GC.]
[GC completed with 15,969,840 bytes retained and 1,647,904 bytes freed.]
[GC will next occur when at least 17,969,840 bytes are in use.]
Converted GSTATE-COPY.
Compiling DEFUN GSTATE-COPY: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD COMBINE-INTO (GSTATE GSTATE))|.
Compiling DEFMETHOD COMBINE-INTO (GSTATE GSTATE): 
Converted |(PCL::FAST-METHOD COMBINE-INTO (T GSTATE))|.
Compiling DEFMETHOD COMBINE-INTO (T GSTATE): 
Converted |(PCL::FAST-METHOD COMBINE-INTO (T T))|.
Compiling DEFMETHOD COMBINE-INTO (T T): 
Converted |(PCL::FAST-METHOD COMBINE-INTO (GSTATE T))|.
Compiling DEFMETHOD COMBINE-INTO (GSTATE T): 
Byte Compiling Top-Level Form: 

clue:pictures/gstate.x86f written.
Compilation finished in 0:00:27.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/gstate.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:02:38 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/gstack.lisp 16 NOV 96 08:06:15 pm

Compiling DEFCLASS GRAPHIC-STACK: 
Byte Compiling Top-Level Form: 
Converted GRAPHIC-STACK-EMPTY-P.
Compiling DEFUN GRAPHIC-STACK-EMPTY-P: 
[GC threshold exceeded with 17,976,256 bytes in use.  Commencing GC.]
[GC completed with 15,413,432 bytes retained and 2,562,824 bytes freed.]
[GC will next occur when at least 17,413,432 bytes are in use.]
Converted |(PCL::FAST-METHOD GRAPHIC-STACK-FILL (GRAPHIC-STACK T))|.
Compiling DEFMETHOD GRAPHIC-STACK-FILL (GRAPHIC-STACK T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC-STACK>: 
Converted |(PCL::FAST-METHOD GRAPHIC-STACK-FIND (GRAPHIC-STACK T))|.
Compiling DEFMETHOD GRAPHIC-STACK-FIND (GRAPHIC-STACK T): 
Converted |(PCL::FAST-METHOD GRAPHIC-STACK-POP (GRAPHIC-STACK))|.
Compiling DEFMETHOD GRAPHIC-STACK-POP (GRAPHIC-STACK): 
Converted |(PCL::FAST-METHOD GRAPHIC-STACK-PURGE (GRAPHIC-STACK))|.
Compiling DEFMETHOD GRAPHIC-STACK-PURGE (GRAPHIC-STACK): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-STACK-PUSH (GRAPHIC-STACK T))|.
Compiling DEFMETHOD GRAPHIC-STACK-PUSH (GRAPHIC-STACK T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
Converted GRAPHIC-STACK-TOP.
Compiling DEFUN GRAPHIC-STACK-TOP: 
Converted GRAPHIC-STACK-TOP-GRAPHIC.
Compiling DEFUN GRAPHIC-STACK-TOP-GRAPHIC: 
[GC threshold exceeded with 17,483,856 bytes in use.  Commencing GC.]
[GC completed with 15,795,136 bytes retained and 1,688,720 bytes freed.]
[GC will next occur when at least 17,795,136 bytes are in use.]
Converted |(PCL::FAST-METHOD PRINT-OBJECT (GRAPHIC-STACK T))|.
Compiling DEFMETHOD PRINT-OBJECT (GRAPHIC-STACK T): 
Converted |(PCL::FAST-METHOD GRAPHIC-STACK-PUSH :AROUND (TRANSFORM-STACK T))|.
Compiling DEFMETHOD GRAPHIC-STACK-PUSH :AROUND (TRANSFORM-STACK T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL TRANSFORM-STACK>: 
Converted GRAPHIC-STACK-TRANSFORM.
Compiling DEFMACRO GRAPHIC-STACK-TRANSFORM: 
Compiling Load Time Value of (PCL::GET-MAKE-INSTANCE-FUNCTION-SYMBOL
                    '(GSTATE-STACK NIL NIL)): 
Compiling Load Time Value of (PCL::GET-MAKE-INSTANCE-FUNCTION-SYMBOL
                    '(EDGE-GSTATE-STACK NIL NIL)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-STACK-PUSH :AROUND (GSTATE-STACK T))|.
Compiling DEFMETHOD GRAPHIC-STACK-PUSH :AROUND (GSTATE-STACK T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GSTATE-STACK>: 
Converted |(PCL::FAST-METHOD GRAPHIC-STACK-PUSH :AROUND (EDGE-GSTATE-STACK T))|.
Compiling DEFMETHOD GRAPHIC-STACK-PUSH :AROUND (EDGE-GSTATE-STACK T): 
[GC threshold exceeded with 17,950,128 bytes in use.  Commencing GC.]
[GC completed with 16,091,168 bytes retained and 1,858,960 bytes freed.]
[GC will next occur when at least 18,091,168 bytes are in use.]
Converted GRAPHIC-STACK-GSTATE.
Compiling DEFMACRO GRAPHIC-STACK-GSTATE: 
Byte Compiling Top-Level Form: 

clue:pictures/gstack.x86f written.
Compilation finished in 0:00:07.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/gstack.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:02:45 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/graphic.lisp 14 FEB 97 04:32:27 pm

Compiling Load Time Value of (PCL::GET-MAKE-INSTANCE-FUNCTION-SYMBOL
                    '(TRANSFORM-STACK NIL NIL)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCENE-ELEMENTS (GRAPHIC))|.
Compiling DEFMETHOD SCENE-ELEMENTS (GRAPHIC): 
Converted |(PCL::FAST-METHOD GRAPHIC-EXTENT-X (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-EXTENT-X (GRAPHIC): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
Converted |(PCL::FAST-METHOD GRAPHIC-EXTENT-Y (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-EXTENT-Y (GRAPHIC): 
Converted |(PCL::FAST-METHOD GRAPHIC-EXTENT-HEIGHT (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-EXTENT-HEIGHT (GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-EXTENT-WIDTH (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-EXTENT-WIDTH (GRAPHIC): 
[GC threshold exceeded with 18,174,984 bytes in use.  Commencing GC.]
[GC completed with 16,598,128 bytes retained and 1,576,856 bytes freed.]
[GC will next occur when at least 18,598,128 bytes are in use.]
Converted |(PCL::FAST-METHOD GRAPHIC-FIXED-POINT (GRAPHIC T))|.
Compiling DEFMETHOD GRAPHIC-FIXED-POINT (GRAPHIC T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-COMBINED-GSTATE (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-COMBINED-GSTATE (GRAPHIC): 
Converted |(PCL::FAST-METHOD GRAPHIC-COMBINED-EDGE-GSTATE (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-COMBINED-EDGE-GSTATE (GRAPHIC): 
Converted |(PCL::FAST-METHOD EDITABLE-P (GRAPHIC))|.
Compiling DEFMETHOD EDITABLE-P (GRAPHIC): 
Converted |(PCL::FAST-METHOD EXTENT-CHANGED (GRAPHIC))|.
Compiling DEFMETHOD EXTENT-CHANGED (GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE (GRAPHIC))|.
Compiling DEFMETHOD EXTENT-COMPUTE (GRAPHIC): 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE :AROUND (GRAPHIC))|.
Compiling DEFMETHOD EXTENT-COMPUTE :AROUND (GRAPHIC): 
[GC threshold exceeded with 19,096,800 bytes in use.  Commencing GC.]
[GC completed with 16,867,976 bytes retained and 2,228,824 bytes freed.]
[GC will next occur when at least 18,867,976 bytes are in use.]
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE :AROUND (EDGE))|.
Compiling DEFMETHOD EXTENT-COMPUTE :AROUND (EDGE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-EXTENT (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-EXTENT (GRAPHIC): 
Converted VALID-EXTENT-P.
Compiling DEFUN VALID-EXTENT-P: 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (GRAPHIC T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (GRAPHIC T T): 
Converted |(PCL::FAST-METHOD GRAPHIC-DAMAGE (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-DAMAGE (GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (GRAPHIC VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (GRAPHIC VIEW): 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC-CLIPPED (GRAPHIC VIEW T T T T))|.
Compiling DEFMETHOD DRAW-GRAPHIC-CLIPPED (GRAPHIC VIEW T T T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted CLIP-MASK.
Compiling DEFUN CLIP-MASK: 
Converted |(PCL::FAST-METHOD GRAPHIC-INTERSECTS-P (GRAPHIC T T T T))|.
Compiling DEFMETHOD GRAPHIC-INTERSECTS-P (GRAPHIC T T T T): 
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-TRANSFORM) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GRAPHIC-TRANSFORM) (T GRAPHIC): 
[GC threshold exceeded with 19,056,904 bytes in use.  Commencing GC.]
[GC completed with 17,274,208 bytes retained and 1,782,696 bytes freed.]
[GC will next occur when at least 19,274,208 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD NORMALIZE-GRAPHIC (GRAPHIC))|.
Compiling DEFMETHOD NORMALIZE-GRAPHIC (GRAPHIC): 
Converted |(PCL::FAST-METHOD GRAPHIC-PARENT (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-PARENT (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-PARENT) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GRAPHIC-PARENT) (T GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-GSTATE (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-GSTATE (GRAPHIC): 
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-GSTATE) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GRAPHIC-GSTATE) (T GRAPHIC): 
Converted GRAPHIC-VIEWS.
Compiling DEFUN GRAPHIC-VIEWS: 
Converted |(PCL::FAST-METHOD GRAPHIC-VIEW (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-VIEW (GRAPHIC): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-VIEW) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GRAPHIC-VIEW) (T GRAPHIC): 
Converted |(PCL::FAST-METHOD GRAPHIC-WITHIN-P (GRAPHIC T T T T))|.
Compiling DEFMETHOD GRAPHIC-WITHIN-P (GRAPHIC T T T T): 
Converted |(PCL::FAST-METHOD GSTATE-VALUE (GRAPHIC T))|.
Compiling DEFMETHOD GSTATE-VALUE (GRAPHIC T): 
[GC threshold exceeded with 19,295,976 bytes in use.  Commencing GC.]
[GC completed with 13,618,000 bytes retained and 5,677,976 bytes freed.]
[GC will next occur when at least 15,618,000 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GSTATE-VALUE) (T GRAPHIC T))|.
Compiling DEFMETHOD (SETF GSTATE-VALUE) (T GRAPHIC T): 
Converted |(PCL::FAST-METHOD MOVE-TRANSFORM (GRAPHIC T T))|.
Compiling DEFMETHOD MOVE-TRANSFORM (GRAPHIC T T): 
Converted REPAIR-GRAPHIC.
Compiling DEFUN REPAIR-GRAPHIC: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD ROTATE-TRANSFORM (GRAPHIC T))|.
Compiling DEFMETHOD ROTATE-TRANSFORM (GRAPHIC T): 
Converted |(PCL::FAST-METHOD SCALE-TRANSFORM (GRAPHIC T T))|.
Compiling DEFMETHOD SCALE-TRANSFORM (GRAPHIC T T): 
Converted |(PCL::FAST-METHOD SELECTABLE-P (GRAPHIC))|.
Compiling DEFMETHOD SELECTABLE-P (GRAPHIC): 
Converted SUBSELECTABLE-P.
Compiling DEFUN SUBSELECTABLE-P: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-SENSITIVITY) (T GRAPHIC))|.
Compiling DEFMETHOD (SETF GRAPHIC-SENSITIVITY) (T GRAPHIC): 
[GC threshold exceeded with 16,031,832 bytes in use.  Commencing GC.]
[GC completed with 14,117,928 bytes retained and 1,913,904 bytes freed.]
[GC will next occur when at least 16,117,928 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEWABLE-P (GRAPHIC))|.
Compiling DEFMETHOD VIEWABLE-P (GRAPHIC): 
Converted |(PCL::FAST-METHOD WORLD-EXTENT (GRAPHIC))|.
Compiling DEFMETHOD WORLD-EXTENT (GRAPHIC): 
Converted GRAPHIC-COMBINED-WORLD-EXTENTS.
Compiling DEFUN GRAPHIC-COMBINED-WORLD-EXTENTS: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-WORLD-TRANSFORM (GRAPHIC))|.
Compiling DEFMETHOD GRAPHIC-WORLD-TRANSFORM (GRAPHIC): 
Converted POINT-IN-EXTENTS-P.
Compiling DEFUN POINT-IN-EXTENTS-P: 
Converted GRAPHIC-RESET.
Compiling DEFUN GRAPHIC-RESET: 
Byte Compiling Top-Level Form: 

clue:pictures/graphic.x86f written.
Compilation finished in 0:00:17.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/graphic.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:03:02 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/font-family.lisp 16 NOV 96 07:38:01 pm

Converted FONT-SIZE.
Compiling DEFMACRO FONT-SIZE: 
Converted X11-FONT-STRING-P.
Compiling DEFMACRO X11-FONT-STRING-P: 
Converted |(PCL::FAST-METHOD PRINT-OBJECT (FONT T))|.
Compiling DEFMETHOD PRINT-OBJECT (FONT T): 
Byte Compiling Top-Level Form: 
Converted X11-FONT-SIZES.
Compiling DEFMACRO X11-FONT-SIZES: 
Converted ADD-SIZE.
Compiling DEFUN ADD-SIZE: 
Converted FONT-OBJECTS.
Compiling DEFMACRO FONT-OBJECTS: 
[GC threshold exceeded with 16,230,752 bytes in use.  Commencing GC.]
[GC completed with 14,414,912 bytes retained and 1,815,840 bytes freed.]
[GC will next occur when at least 16,414,912 bytes are in use.]
Converted LIST-FT-NAMES.
Compiling DEFUN LIST-FT-NAMES: 
Converted GET-SIZE-FONT-PAIRS.
Compiling DEFUN GET-SIZE-FONT-PAIRS: 
Converted MAKE-FONT-FAMILY.
Compiling DEFUN MAKE-FONT-FAMILY: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (FONT-FAMILY))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AROUND (FONT-FAMILY): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL FONT-FAMILY>: 
Converted FIND-FONT-FAMILY.
Compiling DEFUN FIND-FONT-FAMILY: 
Compiling DEFSETF FIND-FONT-FAMILY: 
Converted THE-FONT-SIZE.
Compiling DEFMACRO THE-FONT-SIZE: 
Converted THE-FONT.
Compiling DEFMACRO THE-FONT: 
[GC threshold exceeded with 16,416,328 bytes in use.  Commencing GC.]
[GC completed with 14,807,184 bytes retained and 1,609,144 bytes freed.]
[GC will next occur when at least 16,807,184 bytes are in use.]
Converted |(PCL::FAST-METHOD FIND-FONT (FONT-FAMILY T))|.
Compiling DEFMETHOD FIND-FONT (FONT-FAMILY T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF FIND-FONT) (T FONT-FAMILY T))|.
Compiling DEFMETHOD (SETF FIND-FONT) (T FONT-FAMILY T): 
Converted |(PCL::FAST-METHOD FONT-FAMILY-MEMBERS (FONT-FAMILY T))|.
Compiling DEFMETHOD FONT-FAMILY-MEMBERS (FONT-FAMILY T): 
Converted |(PCL::FAST-METHOD (SETF FONT-FAMILY-MEMBERS) (T FONT-FAMILY T))|.
Compiling DEFMETHOD (SETF FONT-FAMILY-MEMBERS) (T FONT-FAMILY T): 
[GC threshold exceeded with 16,938,408 bytes in use.  Commencing GC.]
[GC completed with 15,060,152 bytes retained and 1,878,256 bytes freed.]
[GC will next occur when at least 17,060,152 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted DASH-POSITIONS.
Compiling DEFUN DASH-POSITIONS: 
Converted FONT-NAME-ATTRIBUTE.
Compiling DEFUN FONT-NAME-ATTRIBUTE: 
Byte Compiling Top-Level Form: 

clue:pictures/font-family.x86f written.
Compilation finished in 0:00:08.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/font-family.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:03:11 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/view-draw.lisp 16 NOV 96 08:51:46 pm

Converted VALID-XCOORD.
Compiling DEFMACRO VALID-XCOORD: 
Converted VALID-XDISTANCE.
Compiling DEFMACRO VALID-XDISTANCE: 
Converted SEARCH-FOR-GCONTEXT.
Compiling DEFUN SEARCH-FOR-GCONTEXT: 
Converted PREPARE-GSTATE.
Compiling DEFMACRO PREPARE-GSTATE: 
Converted PREPARE-GCONTEXT.
Compiling DEFMACRO PREPARE-GCONTEXT: 
Converted WORKING-GCONTEXT.
Compiling DEFUN WORKING-GCONTEXT: 
[GC threshold exceeded with 17,846,744 bytes in use.  Commencing GC.]
[GC completed with 15,631,144 bytes retained and 2,215,600 bytes freed.]
[GC will next occur when at least 17,631,144 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-DRAW-ARC (VIEW T T T T T T))|.
Compiling DEFMETHOD VIEW-DRAW-ARC (VIEW T T T T T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted |(PCL::FAST-METHOD VIEW-DRAW-FILLED-ARC (VIEW T T T T T T))|.
Compiling DEFMETHOD VIEW-DRAW-FILLED-ARC (VIEW T T T T T T): 
Converted |(PCL::FAST-METHOD VIEW-DRAW-LINE (VIEW T T T T))|.
Compiling DEFMETHOD VIEW-DRAW-LINE (VIEW T T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-DRAW-POLYPOINT (VIEW T))|.
Compiling DEFMETHOD VIEW-DRAW-POLYPOINT (VIEW T): 
Converted |(PCL::FAST-METHOD VIEW-DRAW-POLYLINE (VIEW T))|.
Compiling DEFMETHOD VIEW-DRAW-POLYLINE (VIEW T): 
[GC threshold exceeded with 17,767,016 bytes in use.  Commencing GC.]
[GC completed with 15,350,896 bytes retained and 2,416,120 bytes freed.]
[GC will next occur when at least 17,350,896 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-DRAW-POLYGON (VIEW T))|.
Compiling DEFMETHOD VIEW-DRAW-POLYGON (VIEW T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-DRAW-FILLED-POLYGON (VIEW T))|.
Compiling DEFMETHOD VIEW-DRAW-FILLED-POLYGON (VIEW T): 
Converted |(PCL::FAST-METHOD VIEW-DRAW-IMAGE (VIEW T T T T T))|.
Compiling DEFMETHOD VIEW-DRAW-IMAGE (VIEW T T T T T): 
Converted |(PCL::FAST-METHOD VIEW-DRAW-RECTANGLE (VIEW T T T T))|.
Compiling DEFMETHOD VIEW-DRAW-RECTANGLE (VIEW T T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-DRAW-FILLED-RECTANGLE (VIEW T T T T))|.
Compiling DEFMETHOD VIEW-DRAW-FILLED-RECTANGLE (VIEW T T T T): 
Converted |(PCL::FAST-METHOD VIEW-DRAW-TEXT (VIEW T T T))|.
Compiling DEFMETHOD VIEW-DRAW-TEXT (VIEW T T T): 
[GC threshold exceeded with 17,544,752 bytes in use.  Commencing GC.]
[GC completed with 15,839,744 bytes retained and 1,705,008 bytes freed.]
[GC will next occur when at least 17,839,744 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-DRAW-IMAGE-TEXT (VIEW T T T))|.
Compiling DEFMETHOD VIEW-DRAW-IMAGE-TEXT (VIEW T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-DRAW-CHAR (VIEW T T T))|.
Compiling DEFMETHOD VIEW-DRAW-CHAR (VIEW T T T): 
Converted |(PCL::FAST-METHOD VIEW-DRAW-IMAGE-CHAR (VIEW T T T))|.
Compiling DEFMETHOD VIEW-DRAW-IMAGE-CHAR (VIEW T T T): 
Byte Compiling Top-Level Form: 

clue:pictures/view-draw.x86f written.
Compilation finished in 0:00:10.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/view-draw.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:03:22 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/scene.lisp 14 FEB 97 09:25:38 pm

Converted MAKE-SCENE.
Compiling DEFUN MAKE-SCENE: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (SCENE))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (SCENE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL SCENE>: 
[GC threshold exceeded with 17,871,696 bytes in use.  Commencing GC.]
[GC completed with 16,287,288 bytes retained and 1,584,408 bytes freed.]
[GC will next occur when at least 18,287,288 bytes are in use.]
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC-CLIPPED (SCENE VIEW T T T T))|.
Compiling DEFMETHOD DRAW-GRAPHIC-CLIPPED (SCENE VIEW T T T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (SCENE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (SCENE VIEW): 
Converted |(PCL::FAST-METHOD NORMALIZE-GRAPHIC :BEFORE (SCENE))|.
Compiling DEFMETHOD NORMALIZE-GRAPHIC :BEFORE (SCENE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE (SCENE))|.
Compiling DEFMETHOD EXTENT-COMPUTE (SCENE): 
[GC threshold exceeded with 18,776,440 bytes in use.  Commencing GC.]
[GC completed with 16,762,104 bytes retained and 2,014,336 bytes freed.]
[GC will next occur when at least 18,762,104 bytes are in use.]
Converted |(PCL::FAST-METHOD SCENE-DELETE (SCENE T))|.
Compiling DEFMETHOD SCENE-DELETE (SCENE T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
Converted |(PCL::FAST-METHOD SCENE-ELEMENTS (SCENE))|.
Compiling DEFMETHOD SCENE-ELEMENTS (SCENE): 
Converted |(PCL::FAST-METHOD (SETF SCENE-ELEMENTS) (T SCENE))|.
Compiling DEFMETHOD (SETF SCENE-ELEMENTS) (T SCENE): 
[GC threshold exceeded with 18,808,136 bytes in use.  Commencing GC.]
[GC completed with 16,995,256 bytes retained and 1,812,880 bytes freed.]
[GC will next occur when at least 18,995,256 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCENE-INSERT (SCENE GRAPHIC))|.
Compiling DEFMETHOD SCENE-INSERT (SCENE GRAPHIC): 
Converted |(PCL::FAST-METHOD SCENE-INSERT (SCENE SCENE))|.
Compiling DEFMETHOD SCENE-INSERT (SCENE SCENE): 
[GC threshold exceeded with 19,274,344 bytes in use.  Commencing GC.]
[GC completed with 17,450,560 bytes retained and 1,823,784 bytes freed.]
[GC will next occur when at least 19,450,560 bytes are in use.]
Converted |(PCL::FAST-METHOD SCENE-REPARENT (SCENE T))|.
Compiling DEFMETHOD SCENE-REPARENT (SCENE T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCENE-UNGROUP (SCENE))|.
Compiling DEFMETHOD SCENE-UNGROUP (SCENE): 
Converted |(PCL::FAST-METHOD SCENE-GRAPHIC (SCENE T))|.
Compiling DEFMETHOD SCENE-GRAPHIC (SCENE T): 
Converted |(PCL::FAST-METHOD SCENE-RESTACK (SCENE T T))|.
Compiling DEFMETHOD SCENE-RESTACK (SCENE T T): 
Byte Compiling Top-Level Form: 

clue:pictures/scene.x86f written.
Compilation finished in 0:00:10.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/scene.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:03:33 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/line.lisp 04 MAR 97 09:11:14 pm

Converted MAKE-LINE.
Compiling DEFUN MAKE-LINE: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD LINE-START-POINT (LINE))|.
Compiling DEFMETHOD LINE-START-POINT (LINE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL LINE>: 
[GC threshold exceeded with 19,558,000 bytes in use.  Commencing GC.]
[GC completed with 16,530,768 bytes retained and 3,027,232 bytes freed.]
[GC will next occur when at least 18,530,768 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF LINE-START-POINT-X) :AFTER (T LINE))|.
Compiling DEFMETHOD (SETF LINE-START-POINT-X) :AFTER (T LINE): 
Converted |(PCL::FAST-METHOD (SETF LINE-START-POINT-Y) :AFTER (T LINE))|.
Compiling DEFMETHOD (SETF LINE-START-POINT-Y) :AFTER (T LINE): 
Converted |(PCL::FAST-METHOD LINE-END-POINT (LINE))|.
Compiling DEFMETHOD LINE-END-POINT (LINE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF LINE-END-POINT-X) :AFTER (T LINE))|.
Compiling DEFMETHOD (SETF LINE-END-POINT-X) :AFTER (T LINE): 
Converted |(PCL::FAST-METHOD (SETF LINE-END-POINT-Y) :AFTER (T LINE))|.
Compiling DEFMETHOD (SETF LINE-END-POINT-Y) :AFTER (T LINE): 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE (LINE))|.
Compiling DEFMETHOD EXTENT-COMPUTE (LINE): 
Byte Compiling Top-Level Form: 
Converted LINE-VISIBLE-P.
Compiling DEFMACRO LINE-VISIBLE-P: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (LINE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (LINE VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
[GC threshold exceeded with 20,291,280 bytes in use.  Commencing GC.]
[GC completed with 17,151,472 bytes retained and 3,139,808 bytes freed.]
[GC will next occur when at least 19,151,472 bytes are in use.]
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC-CLIPPED (LINE VIEW T T T T))|.
Compiling DEFMETHOD DRAW-GRAPHIC-CLIPPED (LINE VIEW T T T T): 
Converted |(PCL::FAST-METHOD GRAPHIC-DAMAGE (LINE))|.
Compiling DEFMETHOD GRAPHIC-DAMAGE (LINE): 
[GC threshold exceeded with 19,660,128 bytes in use.  Commencing GC.]
[GC completed with 17,305,160 bytes retained and 2,354,968 bytes freed.]
[GC will next occur when at least 19,305,160 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCALE-TRANSFORM (LINE T T))|.
Compiling DEFMETHOD SCALE-TRANSFORM (LINE T T): 
Converted |(PCL::FAST-METHOD NORMALIZE-GRAPHIC :BEFORE (LINE))|.
Compiling DEFMETHOD NORMALIZE-GRAPHIC :BEFORE (LINE): 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (LINE T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (LINE T T): 
[GC threshold exceeded with 19,342,856 bytes in use.  Commencing GC.]
[GC completed with 17,791,984 bytes retained and 1,550,872 bytes freed.]
[GC will next occur when at least 19,791,984 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted POINT-ON-LINE-P.
Compiling DEFUN POINT-ON-LINE-P: 
Byte Compiling Top-Level Form: 

clue:pictures/line.x86f written.
Compilation finished in 0:00:12.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/line.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:03:46 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/circle.lisp 25 FEB 97 04:13:33 pm

Converted MAKE-CIRCLE.
Compiling DEFUN MAKE-CIRCLE: 
Converted MAKE-FILLED-CIRCLE.
Compiling DEFUN MAKE-FILLED-CIRCLE: 
Byte Compiling Top-Level Form: 
Converted MAKE-FILLED-CIRCLE-EDGE.
Compiling DEFUN MAKE-FILLED-CIRCLE-EDGE: 
Converted |(PCL::FAST-METHOD :AFTER CIRCLE-RADIUS (T CIRCLE))|.
Compiling DEFMETHOD :AFTER CIRCLE-RADIUS (T CIRCLE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL CIRCLE>: 
Converted |(PCL::FAST-METHOD CIRCLE-CENTER (CIRCLE))|.
Compiling DEFMETHOD CIRCLE-CENTER (CIRCLE): 
[GC threshold exceeded with 19,874,720 bytes in use.  Commencing GC.]
[GC completed with 18,139,680 bytes retained and 1,735,040 bytes freed.]
[GC will next occur when at least 20,139,680 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF CIRCLE-CENTER-X) :AFTER (T CIRCLE))|.
Compiling DEFMETHOD (SETF CIRCLE-CENTER-X) :AFTER (T CIRCLE): 
Converted |(PCL::FAST-METHOD (SETF CIRCLE-CENTER-Y) :AFTER (T CIRCLE))|.
Compiling DEFMETHOD (SETF CIRCLE-CENTER-Y) :AFTER (T CIRCLE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE (CIRCLE))|.
Compiling DEFMETHOD EXTENT-COMPUTE (CIRCLE): 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (CIRCLE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (CIRCLE VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-CIRCLE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-CIRCLE VIEW): 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-CIRCLE-EDGE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-CIRCLE-EDGE VIEW): 
[GC threshold exceeded with 20,229,168 bytes in use.  Commencing GC.]
[GC completed with 18,529,400 bytes retained and 1,699,768 bytes freed.]
[GC will next occur when at least 20,529,400 bytes are in use.]
Converted |(PCL::FAST-METHOD NORMALIZE-GRAPHIC :BEFORE (CIRCLE))|.
Compiling DEFMETHOD NORMALIZE-GRAPHIC :BEFORE (CIRCLE): 
Byte Compiling Top-Level Form: 
Converted SQUARE-BOUNDING-CIRCLE.
Compiling DEFUN SQUARE-BOUNDING-CIRCLE: 
Byte Compiling Top-Level Form: 

clue:pictures/circle.x86f written.
Compilation finished in 0:00:05.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/circle.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:03:52 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/polypoint.lisp 14 FEB 97 10:33:51 pm

Compiling DEFCLASS POLYPOINT: 
Converted MAKE-POLYPOINT.
Compiling DEFUN MAKE-POLYPOINT: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (POLYPOINT))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (POLYPOINT): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL POLYPOINT>: 
Converted |(PCL::FAST-METHOD (SETF VERTICES) (T POLYPOINT))|.
Compiling DEFMETHOD (SETF VERTICES) (T POLYPOINT): 
[GC threshold exceeded with 20,779,144 bytes in use.  Commencing GC.]
[GC completed with 17,869,680 bytes retained and 2,909,464 bytes freed.]
[GC will next occur when at least 19,869,680 bytes are in use.]
Converted |(PCL::FAST-METHOD VERTEX-I (POLYPOINT T))|.
Compiling DEFMETHOD VERTEX-I (POLYPOINT T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VERTEX-X (POLYPOINT T))|.
Compiling DEFMETHOD VERTEX-X (POLYPOINT T): 
Converted |(PCL::FAST-METHOD (SETF VERTEX-X) (T POLYPOINT T))|.
Compiling DEFMETHOD (SETF VERTEX-X) (T POLYPOINT T): 
Converted |(PCL::FAST-METHOD VERTEX-Y (POLYPOINT T))|.
Compiling DEFMETHOD VERTEX-Y (POLYPOINT T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF VERTEX-Y) (T POLYPOINT T))|.
Compiling DEFMETHOD (SETF VERTEX-Y) (T POLYPOINT T): 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE (POLYPOINT))|.
Compiling DEFMETHOD EXTENT-COMPUTE (POLYPOINT): 
Converted |(PCL::FAST-METHOD INSERT-VERTEX (POLYPOINT T T T))|.
Compiling DEFMETHOD INSERT-VERTEX (POLYPOINT T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DELETE-VERTEX (POLYPOINT T))|.
Compiling DEFMETHOD DELETE-VERTEX (POLYPOINT T): 
[GC threshold exceeded with 20,017,888 bytes in use.  Commencing GC.]
[GC completed with 18,269,968 bytes retained and 1,747,920 bytes freed.]
[GC will next occur when at least 20,269,968 bytes are in use.]
Converted |(PCL::FAST-METHOD LENGTH-VERTICES (POLYPOINT))|.
Compiling DEFMETHOD LENGTH-VERTICES (POLYPOINT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MIN-X-VERTEX (POLYPOINT))|.
Compiling DEFMETHOD MIN-X-VERTEX (POLYPOINT): 
Converted |(PCL::FAST-METHOD MIN-Y-VERTEX (POLYPOINT))|.
Compiling DEFMETHOD MIN-Y-VERTEX (POLYPOINT): 
Converted |(PCL::FAST-METHOD MAX-X-VERTEX (POLYPOINT))|.
Compiling DEFMETHOD MAX-X-VERTEX (POLYPOINT): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MAX-Y-VERTEX (POLYPOINT))|.
Compiling DEFMETHOD MAX-Y-VERTEX (POLYPOINT): 
Converted |(PCL::FAST-METHOD NORMALIZE-GRAPHIC :BEFORE (POLYPOINT))|.
Compiling DEFMETHOD NORMALIZE-GRAPHIC :BEFORE (POLYPOINT): 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (POLYPOINT VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (POLYPOINT VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
[GC threshold exceeded with 20,571,720 bytes in use.  Commencing GC.]
[GC completed with 18,629,400 bytes retained and 1,942,320 bytes freed.]
[GC will next occur when at least 20,629,400 bytes are in use.]
Converted MAKE-POLYLINE.
Compiling DEFUN MAKE-POLYLINE: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (POLYLINE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (POLYLINE VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL POLYLINE>: 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (POLYLINE T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (POLYLINE T T): 
Byte Compiling Top-Level Form: 
Converted MAKE-POINT.
Compiling DEFSTRUCT POINT: 
Converted CROSS-PRODUCT.
Compiling DEFUN CROSS-PRODUCT: 
[GC threshold exceeded with 20,748,880 bytes in use.  Commencing GC.]
[GC completed with 19,042,624 bytes retained and 1,706,256 bytes freed.]
[GC will next occur when at least 21,042,624 bytes are in use.]
Converted INSIDE-P.
Compiling DEFUN INSIDE-P: 
Byte Compiling Top-Level Form: 
Byte Compiling Creation Form for #<KERNEL::CLASS-CELL POINT>: 

clue:pictures/polypoint.x86f written.
Compilation finished in 0:00:11.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/polypoint.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:04:03 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/polygon.lisp 16 NOV 96 08:26:47 pm

Converted MAKE-POLYGON.
Compiling DEFUN MAKE-POLYGON: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (POLYGON VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (POLYGON VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL POLYGON>: 
[GC threshold exceeded with 21,166,656 bytes in use.  Commencing GC.]
[GC completed with 19,470,160 bytes retained and 1,696,496 bytes freed.]
[GC will next occur when at least 21,470,160 bytes are in use.]
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (POLYGON T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (POLYGON T T): 
Converted MAKE-FILLED-POLYGON.
Compiling DEFUN MAKE-FILLED-POLYGON: 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (FILLED-POLYGON T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (FILLED-POLYGON T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL FILLED-POLYGON>: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-POLYGON VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-POLYGON VIEW): 
[GC threshold exceeded with 21,859,848 bytes in use.  Commencing GC.]
[GC completed with 19,929,296 bytes retained and 1,930,552 bytes freed.]
[GC will next occur when at least 21,929,296 bytes are in use.]
Converted MAKE-FILLED-POLYGON-EDGE.
Compiling DEFUN MAKE-FILLED-POLYGON-EDGE: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-POLYGON-EDGE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-POLYGON-EDGE VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL FILLED-POLYGON-EDGE>: 
Byte Compiling Top-Level Form: 

clue:pictures/polygon.x86f written.
Compilation finished in 0:00:06.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/polygon.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:04:10 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/rectangle.lisp 25 FEB 97 04:14:57 pm

[GC threshold exceeded with 21,930,136 bytes in use.  Commencing GC.]
[GC completed with 18,482,088 bytes retained and 3,448,048 bytes freed.]
[GC will next occur when at least 20,482,088 bytes are in use.]
Converted MAKE-RECTANGLE.
Compiling DEFUN MAKE-RECTANGLE: 
Converted MAKE-FILLED-RECTANGLE.
Compiling DEFUN MAKE-FILLED-RECTANGLE: 
Converted MAKE-FILLED-RECTANGLE-EDGE.
Compiling DEFUN MAKE-FILLED-RECTANGLE-EDGE: 
Converted |(PCL::FAST-METHOD RECTANGLE-ORIGIN-X (RECTANGLE))|.
Compiling DEFMETHOD RECTANGLE-ORIGIN-X (RECTANGLE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL RECTANGLE>: 
Converted |(PCL::FAST-METHOD (SETF RECTANGLE-ORIGIN-X) (T RECTANGLE))|.
Compiling DEFMETHOD (SETF RECTANGLE-ORIGIN-X) (T RECTANGLE): 
Converted |(PCL::FAST-METHOD RECTANGLE-ORIGIN-Y (RECTANGLE))|.
Compiling DEFMETHOD RECTANGLE-ORIGIN-Y (RECTANGLE): 
Converted |(PCL::FAST-METHOD (SETF RECTANGLE-ORIGIN-Y) (T RECTANGLE))|.
Compiling DEFMETHOD (SETF RECTANGLE-ORIGIN-Y) (T RECTANGLE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD RECTANGLE-WIDTH (RECTANGLE))|.
Compiling DEFMETHOD RECTANGLE-WIDTH (RECTANGLE): 
Converted |(PCL::FAST-METHOD (SETF RECTANGLE-WIDTH) (T RECTANGLE))|.
Compiling DEFMETHOD (SETF RECTANGLE-WIDTH) (T RECTANGLE): 
Converted |(PCL::FAST-METHOD RECTANGLE-HEIGHT (RECTANGLE))|.
Compiling DEFMETHOD RECTANGLE-HEIGHT (RECTANGLE): 
Converted |(PCL::FAST-METHOD (SETF RECTANGLE-HEIGHT) (T RECTANGLE))|.
Compiling DEFMETHOD (SETF RECTANGLE-HEIGHT) (T RECTANGLE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD RECTANGLE-SIZE (RECTANGLE))|.
Compiling DEFMETHOD RECTANGLE-SIZE (RECTANGLE): 
Converted |(PCL::FAST-METHOD NORMALIZE-GRAPHIC :AROUND (RECTANGLE))|.
Compiling DEFMETHOD NORMALIZE-GRAPHIC :AROUND (RECTANGLE): 
[GC threshold exceeded with 20,847,216 bytes in use.  Commencing GC.]
[GC completed with 18,890,504 bytes retained and 1,956,712 bytes freed.]
[GC will next occur when at least 20,890,504 bytes are in use.]
Converted COMPUTE-POINT.
Compiling DEFUN COMPUTE-POINT: 
Converted DISTANCE.
Compiling DEFUN DISTANCE: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (RECTANGLE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (RECTANGLE VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-RECTANGLE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-RECTANGLE VIEW): 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-RECTANGLE-EDGE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-RECTANGLE-EDGE VIEW): 
[GC threshold exceeded with 21,408,160 bytes in use.  Commencing GC.]
[GC completed with 19,147,376 bytes retained and 2,260,784 bytes freed.]
[GC will next occur when at least 21,147,376 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCALE-TRANSFORM (RECTANGLE T T))|.
Compiling DEFMETHOD SCALE-TRANSFORM (RECTANGLE T T): 
Converted COMPLETE-RECTANGLE.
Compiling DEFUN COMPLETE-RECTANGLE: 
Converted |(PCL::FAST-METHOD ORTHOGONAL (RECTANGLE VIEW))|.
Compiling DEFMETHOD ORTHOGONAL (RECTANGLE VIEW): 
Converted POINT-IN-RECTANGLE.
Compiling DEFUN POINT-IN-RECTANGLE: 
Byte Compiling Top-Level Form: 

clue:pictures/rectangle.x86f written.
Compilation finished in 0:00:09.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/rectangle.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:04:20 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/bspline.lisp 24 NOV 96 09:27:56 pm

Converted MAKE-BSPLINE.
Compiling DEFUN MAKE-BSPLINE: 
[GC threshold exceeded with 21,152,312 bytes in use.  Commencing GC.]
[GC completed with 19,644,008 bytes retained and 1,508,304 bytes freed.]
[GC will next occur when at least 21,644,008 bytes are in use.]
Converted MAKE-CLOSED-BSPLINE.
Compiling DEFUN MAKE-CLOSED-BSPLINE: 
Converted MAKE-FILLED-BSPLINE.
Compiling DEFUN MAKE-FILLED-BSPLINE: 
Converted MAKE-FILLED-BSPLINE-EDGE.
Compiling DEFUN MAKE-FILLED-BSPLINE-EDGE: 
Converted BSPLINE-FWD-DIFF.
Compiling DEFUN BSPLINE-FWD-DIFF: 
Converted COMPOSE-SPLINE.
Compiling DEFMACRO COMPOSE-SPLINE: 
Byte Compiling Top-Level Form: 
Converted CALCULATE-SPLINE.
Compiling DEFMACRO CALCULATE-SPLINE: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (BSPLINE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (BSPLINE VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Compiling Creation Form for #<KERNEL::CLASS-CELL BSPLINE>: 
[GC threshold exceeded with 23,039,232 bytes in use.  Commencing GC.]
[GC completed with 19,981,528 bytes retained and 3,057,704 bytes freed.]
[GC will next occur when at least 21,981,528 bytes are in use.]
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (CLOSED-BSPLINE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (CLOSED-BSPLINE VIEW): 
[GC threshold exceeded with 22,229,440 bytes in use.  Commencing GC.]
[GC completed with 20,386,160 bytes retained and 1,843,280 bytes freed.]
[GC will next occur when at least 22,386,160 bytes are in use.]
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-BSPLINE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-BSPLINE VIEW): 
[GC threshold exceeded with 22,632,864 bytes in use.  Commencing GC.]
[GC completed with 20,475,280 bytes retained and 2,157,584 bytes freed.]
[GC will next occur when at least 22,475,280 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-BSPLINE-EDGE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-BSPLINE-EDGE VIEW): 
[GC threshold exceeded with 22,737,672 bytes in use.  Commencing GC.]
[GC completed with 20,900,360 bytes retained and 1,837,312 bytes freed.]
[GC will next occur when at least 22,900,360 bytes are in use.]
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (BSPLINE T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (BSPLINE T T): 
[GC threshold exceeded with 23,064,744 bytes in use.  Commencing GC.]
[GC completed with 19,922,872 bytes retained and 3,141,872 bytes freed.]
[GC will next occur when at least 21,922,872 bytes are in use.]
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (CLOSED-BSPLINE T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (CLOSED-BSPLINE T T): 
[GC threshold exceeded with 22,084,464 bytes in use.  Commencing GC.]
[GC completed with 20,331,896 bytes retained and 1,752,568 bytes freed.]
[GC will next occur when at least 22,331,896 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted INSIDE-SPLINE-P.
Compiling DEFMACRO INSIDE-SPLINE-P: 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (FILLED-BSPLINE T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (FILLED-BSPLINE T T): 
[GC threshold exceeded with 22,842,912 bytes in use.  Commencing GC.]
[GC completed with 20,461,672 bytes retained and 2,381,240 bytes freed.]
[GC will next occur when at least 22,461,672 bytes are in use.]
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (FILLED-BSPLINE-EDGE T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (FILLED-BSPLINE-EDGE T T): 
[GC threshold exceeded with 23,010,112 bytes in use.  Commencing GC.]
[GC completed with 20,919,320 bytes retained and 2,090,792 bytes freed.]
[GC will next occur when at least 22,919,320 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-DAMAGE (BSPLINE))|.
Compiling DEFMETHOD GRAPHIC-DAMAGE (BSPLINE): 
Byte Compiling Top-Level Form: 

clue:pictures/bspline.x86f written.
Compilation finished in 0:00:28.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/bspline.x86f".
[GC threshold exceeded with 22,922,920 bytes in use.  Commencing GC.]
[GC completed with 20,886,328 bytes retained and 2,036,592 bytes freed.]
[GC will next occur when at least 22,886,328 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:04:51 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/ellipse.lisp 16 NOV 96 07:34:11 pm

Converted MAKE-ELLIPSE.
Compiling DEFUN MAKE-ELLIPSE: 
Converted MAKE-FILLED-ELLIPSE.
Compiling DEFUN MAKE-FILLED-ELLIPSE: 
Converted MAKE-FILLED-ELLIPSE-EDGE.
Compiling DEFUN MAKE-FILLED-ELLIPSE-EDGE: 
Converted |(PCL::FAST-METHOD ELLIPSE-ORIGIN-X (ELLIPSE))|.
Compiling DEFMETHOD ELLIPSE-ORIGIN-X (ELLIPSE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL ELLIPSE>: 
Converted |(PCL::FAST-METHOD (SETF ELLIPSE-ORIGIN-X) (T ELLIPSE))|.
Compiling DEFMETHOD (SETF ELLIPSE-ORIGIN-X) (T ELLIPSE): 
Converted |(PCL::FAST-METHOD ELLIPSE-ORIGIN-Y (ELLIPSE))|.
Compiling DEFMETHOD ELLIPSE-ORIGIN-Y (ELLIPSE): 
Converted |(PCL::FAST-METHOD (SETF ELLIPSE-ORIGIN-Y) (T ELLIPSE))|.
Compiling DEFMETHOD (SETF ELLIPSE-ORIGIN-Y) (T ELLIPSE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD ELLIPSE-WIDTH (ELLIPSE))|.
Compiling DEFMETHOD ELLIPSE-WIDTH (ELLIPSE): 
Converted |(PCL::FAST-METHOD (SETF ELLIPSE-WIDTH) (T ELLIPSE))|.
Compiling DEFMETHOD (SETF ELLIPSE-WIDTH) (T ELLIPSE): 
[GC threshold exceeded with 23,012,224 bytes in use.  Commencing GC.]
[GC completed with 21,257,736 bytes retained and 1,754,488 bytes freed.]
[GC will next occur when at least 23,257,736 bytes are in use.]
Converted |(PCL::FAST-METHOD ELLIPSE-HEIGHT (ELLIPSE))|.
Compiling DEFMETHOD ELLIPSE-HEIGHT (ELLIPSE): 
Converted |(PCL::FAST-METHOD (SETF ELLIPSE-HEIGHT) (T ELLIPSE))|.
Compiling DEFMETHOD (SETF ELLIPSE-HEIGHT) (T ELLIPSE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (ELLIPSE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (ELLIPSE VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-ELLIPSE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-ELLIPSE VIEW): 
[GC threshold exceeded with 23,262,696 bytes in use.  Commencing GC.]
[GC completed with 21,393,992 bytes retained and 1,868,704 bytes freed.]
[GC will next occur when at least 23,393,992 bytes are in use.]
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (FILLED-ELLIPSE-EDGE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (FILLED-ELLIPSE-EDGE VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (ELLIPSE T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (ELLIPSE T T): 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (FILLED-ELLIPSE T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (FILLED-ELLIPSE T T): 
[GC threshold exceeded with 23,399,200 bytes in use.  Commencing GC.]
[GC completed with 21,733,032 bytes retained and 1,666,168 bytes freed.]
[GC will next occur when at least 23,733,032 bytes are in use.]
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (FILLED-ELLIPSE-EDGE T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (FILLED-ELLIPSE-EDGE T T): 
Byte Compiling Top-Level Form: 
Converted ELLIPSE-Y-COORDINATE.
Compiling DEFMACRO ELLIPSE-Y-COORDINATE: 
Converted SCAN-ELLIPSE.
Compiling DEFUN SCAN-ELLIPSE: 
Byte Compiling Top-Level Form: 

clue:pictures/ellipse.x86f written.
Compilation finished in 0:00:10.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/ellipse.x86f".
[GC threshold exceeded with 23,736,552 bytes in use.  Commencing GC.]
[GC completed with 18,014,224 bytes retained and 5,722,328 bytes freed.]
[GC will next occur when at least 20,014,224 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:05:03 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/label.lisp 14 FEB 97 10:52:13 pm

Converted CHANGE-FONT-IF-SCALE-VALUES-NOT-EQUAL.
Compiling DEFMACRO CHANGE-FONT-IF-SCALE-VALUES-NOT-EQUAL: 
Converted COMPUTE-BASE-LINE-ORIGIN-IF-NOT-SET.
Compiling DEFMACRO COMPUTE-BASE-LINE-ORIGIN-IF-NOT-SET: 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Compiling DEFCLASS LABEL: 
Compiling DEFCLASS LABEL: 
Compiling DEFCLASS LABEL: 
Compiling DEFCLASS LABEL: 
Converted MAKE-LABEL.
Compiling DEFUN MAKE-LABEL: 
Converted |(PCL::FAST-METHOD LABEL-FILLED-BACKGROUND-P (LABEL))|.
Compiling DEFMETHOD LABEL-FILLED-BACKGROUND-P (LABEL): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL LABEL>: 
Converted |(PCL::FAST-METHOD (SETF LABEL-FILLED-BACKGROUND-P) (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-FILLED-BACKGROUND-P) (T LABEL): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-BACKGROUND) :AFTER (T LABEL))|.
Compiling DEFMETHOD (SETF GSTATE-BACKGROUND) :AFTER (T LABEL): 
Converted |(PCL::FAST-METHOD (SETF GSTATE-VALUE) :AFTER (T LABEL T))|.
Compiling DEFMETHOD (SETF GSTATE-VALUE) :AFTER (T LABEL T): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 20,019,440 bytes in use.  Commencing GC.]
[GC completed with 18,483,528 bytes retained and 1,535,912 bytes freed.]
[GC will next occur when at least 20,483,528 bytes are in use.]
Converted |(PCL::FAST-METHOD LABEL-REVERSE-P (LABEL))|.
Compiling DEFMETHOD LABEL-REVERSE-P (LABEL): 
Converted |(PCL::FAST-METHOD (SETF LABEL-REVERSE-P) (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-REVERSE-P) (T LABEL): 
Converted |(PCL::FAST-METHOD LABEL-ANGLE-EXTENT (LABEL))|.
Compiling DEFMETHOD LABEL-ANGLE-EXTENT (LABEL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF LABEL-ANGLE-EXTENT) (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-ANGLE-EXTENT) (T LABEL): 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (LABEL))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (LABEL): 
Converted |(PCL::FAST-METHOD LABEL-FONT (LABEL))|.
Compiling DEFMETHOD LABEL-FONT (LABEL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF LABEL-FONT) (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-FONT) (T LABEL): 
[GC threshold exceeded with 20,773,696 bytes in use.  Commencing GC.]
[GC completed with 18,706,512 bytes retained and 2,067,184 bytes freed.]
[GC will next occur when at least 20,706,512 bytes are in use.]
Converted |(PCL::FAST-METHOD LABEL-STRING (LABEL))|.
Compiling DEFMETHOD LABEL-STRING (LABEL): 
Converted |(PCL::FAST-METHOD (SETF LABEL-STRING) (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-STRING) (T LABEL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF LABEL-ANGLE) :AFTER (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-ANGLE) :AFTER (T LABEL): 
Converted |(PCL::FAST-METHOD (SETF LABEL-BASE-X) :BEFORE (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-BASE-X) :BEFORE (T LABEL): 
Converted |(PCL::FAST-METHOD (SETF LABEL-BASE-Y) :BEFORE (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-BASE-Y) :BEFORE (T LABEL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF LABEL-EXTENT-X) :BEFORE (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-EXTENT-X) :BEFORE (T LABEL): 
Converted |(PCL::FAST-METHOD (SETF LABEL-EXTENT-Y) :BEFORE (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-EXTENT-Y) :BEFORE (T LABEL): 
[GC threshold exceeded with 20,707,384 bytes in use.  Commencing GC.]
[GC completed with 19,115,168 bytes retained and 1,592,216 bytes freed.]
[GC will next occur when at least 21,115,168 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF LABEL-EXTENT-WIDTH) :BEFORE (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-EXTENT-WIDTH) :BEFORE (T LABEL): 
Converted |(PCL::FAST-METHOD (SETF LABEL-EXTENT-HEIGHT) :BEFORE (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-EXTENT-HEIGHT) :BEFORE (T LABEL): 
Converted |(PCL::FAST-METHOD (SETF LABEL-GRAVITY) :AFTER (T LABEL))|.
Compiling DEFMETHOD (SETF LABEL-GRAVITY) :AFTER (T LABEL): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (LABEL T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (LABEL T T): 
Converted ASSURE-OR-MAKE-VALID-LABEL-FONT.
Compiling DEFMACRO ASSURE-OR-MAKE-VALID-LABEL-FONT: 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE (LABEL))|.
Compiling DEFMETHOD EXTENT-COMPUTE (LABEL): 
[GC threshold exceeded with 21,907,360 bytes in use.  Commencing GC.]
[GC completed with 19,501,376 bytes retained and 2,405,984 bytes freed.]
[GC will next occur when at least 21,501,376 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-LABEL-EXTENTS (LABEL T VIEW))|.
Compiling DEFMETHOD VIEW-LABEL-EXTENTS (LABEL T VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted SET-ROTATED-EXTENT.
Compiling DEFMACRO SET-ROTATED-EXTENT: 
Converted DRAW-ROTATED-TEXT.
Compiling DEFMACRO DRAW-ROTATED-TEXT: 
Converted LABEL-VISIBLE-P.
Compiling DEFMACRO LABEL-VISIBLE-P: 
[GC threshold exceeded with 21,502,848 bytes in use.  Commencing GC.]
[GC completed with 20,072,592 bytes retained and 1,430,256 bytes freed.]
[GC will next occur when at least 22,072,592 bytes are in use.]
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (LABEL VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (LABEL VIEW): 
[GC threshold exceeded with 25,728,440 bytes in use.  Commencing GC.]
[GC completed with 19,171,200 bytes retained and 6,557,240 bytes freed.]
[GC will next occur when at least 21,171,200 bytes are in use.]
Converted COMPUTE-BASELINE-ORIGIN.
Compiling DEFUN COMPUTE-BASELINE-ORIGIN: 
Converted LABEL-RECTANGLE-MASK.
Compiling DEFUN LABEL-RECTANGLE-MASK: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD NORMALIZE-GRAPHIC :BEFORE (LABEL))|.
Compiling DEFMETHOD NORMALIZE-GRAPHIC :BEFORE (LABEL): 
[GC threshold exceeded with 21,716,520 bytes in use.  Commencing GC.]
[GC completed with 19,617,952 bytes retained and 2,098,568 bytes freed.]
[GC will next occur when at least 21,617,952 bytes are in use.]
Byte Compiling Top-Level Form: 

clue:pictures/label.x86f written.
Compilation finished in 0:00:28.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/label.x86f".
Compiling LAMBDA (PCL::EFFECTIVE-METHOD-GENSYM-0 PCL::EFFECTIVE-METHOD-GENSYM-1 PCL::EFFECTIVE-METHOD-GENSYM-2): 
Compiling Top-Level Form: 

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:05:31 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/gimage.lisp 14 FEB 97 10:44:08 pm

Converted COMPUTE-BASE-ORIGIN-IF-NOT-SET.
Compiling DEFMACRO COMPUTE-BASE-ORIGIN-IF-NOT-SET: 
[GC threshold exceeded with 21,618,784 bytes in use.  Commencing GC.]
[GC completed with 19,888,928 bytes retained and 1,729,856 bytes freed.]
[GC will next occur when at least 21,888,928 bytes are in use.]
Byte Compiling Top-Level Form: 
Compiling DEFCLASS GRAPHIC-IMAGE: 
Compiling DEFCLASS GRAPHIC-IMAGE: 
Byte Compiling Top-Level Form: 
Converted MAKE-GRAPHIC-IMAGE.
Compiling DEFUN MAKE-GRAPHIC-IMAGE: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (GRAPHIC-IMAGE))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (GRAPHIC-IMAGE): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC-IMAGE>: 
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-IMAGE-BASE-X) :BEFORE (T GRAPHIC-IMAGE))|.
Compiling DEFMETHOD (SETF GRAPHIC-IMAGE-BASE-X) :BEFORE (T GRAPHIC-IMAGE): 
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-IMAGE-BASE-Y) :BEFORE (T GRAPHIC-IMAGE))|.
Compiling DEFMETHOD (SETF GRAPHIC-IMAGE-BASE-Y) :BEFORE (T GRAPHIC-IMAGE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-IMAGE-EXTENT-X) :BEFORE (T GRAPHIC-IMAGE))|.
Compiling DEFMETHOD (SETF GRAPHIC-IMAGE-EXTENT-X) :BEFORE (T GRAPHIC-IMAGE): 
[GC threshold exceeded with 21,984,368 bytes in use.  Commencing GC.]
[GC completed with 20,368,360 bytes retained and 1,616,008 bytes freed.]
[GC will next occur when at least 22,368,360 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-IMAGE-EXTENT-Y) :BEFORE (T GRAPHIC-IMAGE))|.
Compiling DEFMETHOD (SETF GRAPHIC-IMAGE-EXTENT-Y) :BEFORE (T GRAPHIC-IMAGE): 
Converted |(PCL::FAST-METHOD (SETF GRAPHIC-IMAGE-GRAVITY) :AFTER (T GRAPHIC-IMAGE))|.
Compiling DEFMETHOD (SETF GRAPHIC-IMAGE-GRAVITY) :AFTER (T GRAPHIC-IMAGE): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE (GRAPHIC-IMAGE))|.
Compiling DEFMETHOD EXTENT-COMPUTE (GRAPHIC-IMAGE): 
[GC threshold exceeded with 22,396,768 bytes in use.  Commencing GC.]
[GC completed with 20,615,440 bytes retained and 1,781,328 bytes freed.]
[GC will next occur when at least 22,615,440 bytes are in use.]
Converted GET-TILE-X.
Compiling DEFMACRO GET-TILE-X: 
Converted GET-TILE-Y.
Compiling DEFMACRO GET-TILE-Y: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (GRAPHIC-IMAGE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (GRAPHIC-IMAGE VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
[GC threshold exceeded with 23,560,440 bytes in use.  Commencing GC.]
[GC completed with 21,206,712 bytes retained and 2,353,728 bytes freed.]
[GC will next occur when at least 23,206,712 bytes are in use.]
Converted |(PCL::FAST-METHOD NORMALIZE-GRAPHIC :BEFORE (GRAPHIC-IMAGE))|.
Compiling DEFMETHOD NORMALIZE-GRAPHIC :BEFORE (GRAPHIC-IMAGE): 
Converted COMPUTE-BASE-ORIGIN.
Compiling DEFUN COMPUTE-BASE-ORIGIN: 
Byte Compiling Top-Level Form: 

clue:pictures/gimage.x86f written.
Compilation finished in 0:00:11.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/gimage.x86f".
[GC threshold exceeded with 23,207,704 bytes in use.  Commencing GC.]
[GC completed with 19,421,168 bytes retained and 3,786,536 bytes freed.]
[GC will next occur when at least 21,421,168 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:05:44 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/gevents.lisp 24 NOV 96 09:31:12 pm

Converted |(PCL::FAST-METHOD ADD-EVENT (GRAPHIC T))|.
Compiling DEFMETHOD ADD-EVENT (GRAPHIC T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
Converted |(PCL::FAST-METHOD DELETE-EVENT (GRAPHIC T))|.
Compiling DEFMETHOD DELETE-EVENT (GRAPHIC T): 
Converted CLASS-NAME-OF.
Compiling DEFUN CLASS-NAME-OF: 
Converted TRANSLATE-GRAPHIC-EVENT.
Compiling DEFUN TRANSLATE-GRAPHIC-EVENT: 
Converted GRAPHIC-PARSE-EVENT-SPEC.
Compiling DEFUN GRAPHIC-PARSE-EVENT-SPEC: 
Converted KEY-CHECK.
Compiling DEFUN KEY-CHECK: 
[GC threshold exceeded with 21,602,176 bytes in use.  Commencing GC.]
[GC completed with 19,859,808 bytes retained and 1,742,368 bytes freed.]
[GC will next occur when at least 21,859,808 bytes are in use.]
Converted ENCODE-CLUE-MODIFIER-MASK.
Compiling DEFUN ENCODE-CLUE-MODIFIER-MASK: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD CLUE::CLASS-EVENT-TRANSLATIONS (T))|.
Compiling DEFMETHOD CLUE::CLASS-EVENT-TRANSLATIONS (T): 
Converted |(PCL::FAST-METHOD (SETF CLUE::CLASS-EVENT-TRANSLATIONS) (T T))|.
Compiling DEFMETHOD (SETF CLUE::CLASS-EVENT-TRANSLATIONS) (T T): 
Byte Compiling Top-Level Form: 

clue:pictures/gevents.x86f written.
Compilation finished in 0:00:03.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/gevents.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:05:47 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/grabber.lisp 06 MAR 97 06:42:36 pm

Byte Compiling Top-Level Form: 
Converted ROUND-VECTOR.
Compiling DEFUN ROUND-VECTOR: 
Compiling DEFCLASS SELECTION-SCENE: 
Converted SCENE-VISIBLE-P.
Compiling DEFMACRO SCENE-VISIBLE-P: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (SELECTION-SCENE VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (SELECTION-SCENE VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted MAKE-SELECTION-SCENE.
Compiling DEFUN MAKE-SELECTION-SCENE: 
Converted |(PCL::FAST-METHOD SCENE-INSERT (SELECTION-SCENE T))|.
Compiling DEFMETHOD SCENE-INSERT (SELECTION-SCENE T): 
Byte Compiling Top-Level Form: 
Converted NORMALIZE-TRANSFORM.
Compiling DEFUN NORMALIZE-TRANSFORM: 
[GC threshold exceeded with 21,864,872 bytes in use.  Commencing GC.]
[GC completed with 20,139,544 bytes retained and 1,725,328 bytes freed.]
[GC will next occur when at least 22,139,544 bytes are in use.]
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (GRABBER VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (GRABBER VIEW): 
Byte Compiling Top-Level Form: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DRAW-GRAPHIC (GRABBER-RECT VIEW))|.
Compiling DEFMETHOD DRAW-GRAPHIC (GRABBER-RECT VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (BACKGROUND-GRABBER T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (BACKGROUND-GRABBER T T): 
Converted |(PCL::FAST-METHOD GRAPHIC-CONTAINS-P (GRABBER T T))|.
Compiling DEFMETHOD GRAPHIC-CONTAINS-P (GRABBER T T): 
[GC threshold exceeded with 22,291,416 bytes in use.  Commencing GC.]
[GC completed with 20,692,704 bytes retained and 1,598,712 bytes freed.]
[GC will next occur when at least 22,692,704 bytes are in use.]
Converted MAKE-BACKGROUND-GRABBER.
Compiling DEFUN MAKE-BACKGROUND-GRABBER: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (BACKGROUND-GRABBER))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (BACKGROUND-GRABBER): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL BACKGROUND-GRABBER>: 
Converted MAKE-GRABBER.
Compiling DEFUN MAKE-GRABBER: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (GRABBER))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (GRABBER): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRABBER>: 
Converted |(PCL::FAST-METHOD (SETF GRABBER-GRAPHIC) (T GRABBER-RECT))|.
Compiling DEFMETHOD (SETF GRABBER-GRAPHIC) (T GRABBER-RECT): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRABBER-RECT>: 
Converted SCALE-VALUE.
Compiling DEFMACRO SCALE-VALUE: 
Converted GRABBER-CORNER-P.
Compiling DEFMACRO GRABBER-CORNER-P: 
Converted GRABBER-NORTH-SOUTH-P.
Compiling DEFMACRO GRABBER-NORTH-SOUTH-P: 
Converted GRABBER-EAST-WEST-P.
Compiling DEFMACRO GRABBER-EAST-WEST-P: 
Converted MAKE-GRABBER-RECT.
Compiling DEFUN MAKE-GRABBER-RECT: 
Converted GRABBER-TRANSFORM.
Compiling DEFMACRO GRABBER-TRANSFORM: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (GRABBER-RECT))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (GRABBER-RECT): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 24,255,832 bytes in use.  Commencing GC.]
[GC completed with 21,033,992 bytes retained and 3,221,840 bytes freed.]
[GC will next occur when at least 23,033,992 bytes are in use.]
Converted GET-MOTION-NOTIFY-EVENT.
Compiling DEFMACRO GET-MOTION-NOTIFY-EVENT: 
Converted GRABBER-X.
Compiling DEFMACRO GRABBER-X: 
Converted GRABBER-Y.
Compiling DEFMACRO GRABBER-Y: 
Converted |(PCL::FAST-METHOD VIEW-TRANSFORM-GRAPHIC (GRABBER VIEW))|.
Compiling DEFMETHOD VIEW-TRANSFORM-GRAPHIC (GRABBER VIEW): 
[GC threshold exceeded with 24,516,064 bytes in use.  Commencing GC.]
[GC completed with 21,598,720 bytes retained and 2,917,344 bytes freed.]
[GC will next occur when at least 23,598,720 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-MOVE-GRAPHIC (GRABBER VIEW))|.
Compiling DEFMETHOD VIEW-MOVE-GRAPHIC (GRABBER VIEW): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 23,767,328 bytes in use.  Commencing GC.]
[GC completed with 20,771,872 bytes retained and 2,995,456 bytes freed.]
[GC will next occur when at least 22,771,872 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-SCALE-GRAPHIC (GRABBER VIEW))|.
Compiling DEFMETHOD VIEW-SCALE-GRAPHIC (GRABBER VIEW): 
[GC threshold exceeded with 23,259,664 bytes in use.  Commencing GC.]
[GC completed with 21,154,240 bytes retained and 2,105,424 bytes freed.]
[GC will next occur when at least 23,154,240 bytes are in use.]
Converted FIXED-X.
Compiling DEFUN FIXED-X: 
Converted FIXED-Y.
Compiling DEFUN FIXED-Y: 
Converted ERASE-GRABBER-RECTS.
Compiling DEFUN ERASE-GRABBER-RECTS: 
Converted SCALE-SELECTED-GRAPHICS.
Compiling DEFUN SCALE-SELECTED-GRAPHICS: 
Converted MOVE-SELECTED-GRAPHICS.
Compiling DEFUN MOVE-SELECTED-GRAPHICS: 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-ROTATE-GRAPHIC (GRABBER VIEW))|.
Compiling DEFMETHOD VIEW-ROTATE-GRAPHIC (GRABBER VIEW): 
[GC threshold exceeded with 23,304,144 bytes in use.  Commencing GC.]
[GC completed with 21,261,520 bytes retained and 2,042,624 bytes freed.]
[GC will next occur when at least 23,261,520 bytes are in use.]
Converted ROTATION.
Compiling DEFUN ROTATION: 
Converted ROTATE-SELECTED-GRAPHICS.
Compiling DEFUN ROTATE-SELECTED-GRAPHICS: 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE (GRABBER-RECT))|.
Compiling DEFMETHOD EXTENT-COMPUTE (GRABBER-RECT): 
[GC threshold exceeded with 23,421,696 bytes in use.  Commencing GC.]
[GC completed with 21,586,160 bytes retained and 1,835,536 bytes freed.]
[GC will next occur when at least 23,586,160 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD EXTENT-COMPUTE (GRABBER))|.
Compiling DEFMETHOD EXTENT-COMPUTE (GRABBER): 
Byte Compiling Top-Level Form: 

clue:pictures/grabber.x86f written.
Compilation finished in 0:00:27.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/grabber.x86f".
[GC threshold exceeded with 23,593,288 bytes in use.  Commencing GC.]
[GC completed with 21,701,600 bytes retained and 1,891,688 bytes freed.]
[GC will next occur when at least 23,701,600 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:06:17 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/view.lisp 14 FEB 97 11:04:24 pm

Converted MAKE-VIEW.
Compiling DEFUN MAKE-VIEW: 
Converted GET-CONTACT-BACKGROUND.
Compiling DEFUN GET-CONTACT-BACKGROUND: 
Converted |(PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER (VIEW))|.
Compiling DEFMETHOD INITIALIZE-INSTANCE :AFTER (VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted |(PCL::FAST-METHOD REALIZE :AFTER (VIEW))|.
Compiling DEFMETHOD REALIZE :AFTER (VIEW): 
[GC threshold exceeded with 24,028,520 bytes in use.  Commencing GC.]
[GC completed with 22,174,864 bytes retained and 1,853,656 bytes freed.]
[GC will next occur when at least 24,174,864 bytes are in use.]
Converted |(PCL::FAST-METHOD RESIZE :AROUND (VIEW T T T))|.
Compiling DEFMETHOD RESIZE :AROUND (VIEW T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD DISPLAY (VIEW))|.
Compiling DEFMETHOD DISPLAY (VIEW): 
Converted |(PCL::FAST-METHOD GRAVITY-POINT (VIEW T))|.
Compiling DEFMETHOD GRAVITY-POINT (VIEW T): 
Converted |(PCL::FAST-METHOD VIEW-ORIENTATION (VIEW))|.
Compiling DEFMETHOD VIEW-ORIENTATION (VIEW): 
Byte Compiling Top-Level Form: 
[GC threshold exceeded with 24,175,744 bytes in use.  Commencing GC.]
[GC completed with 22,356,656 bytes retained and 1,819,088 bytes freed.]
[GC will next occur when at least 24,356,656 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-GRAVITY (VIEW))|.
Compiling DEFMETHOD VIEW-GRAVITY (VIEW): 
Converted |(PCL::FAST-METHOD (SETF VIEW-GRAVITY) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-GRAVITY) (T VIEW): 
Converted |(PCL::FAST-METHOD VIEW-SCALE (VIEW))|.
Compiling DEFMETHOD VIEW-SCALE (VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF VIEW-SCALE) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-SCALE) (T VIEW): 
Converted |(PCL::FAST-METHOD VIEW-PAN (VIEW T T))|.
Compiling DEFMETHOD VIEW-PAN (VIEW T T): 
[GC threshold exceeded with 24,686,008 bytes in use.  Commencing GC.]
[GC completed with 22,835,896 bytes retained and 1,850,112 bytes freed.]
[GC will next occur when at least 24,835,896 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-SHOW-WORLD (VIEW))|.
Compiling DEFMETHOD VIEW-SHOW-WORLD (VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-SHOW-REGION (VIEW T))|.
Compiling DEFMETHOD VIEW-SHOW-REGION (VIEW T): 
Converted |(PCL::FAST-METHOD VIEW-DAMAGE (VIEW))|.
Compiling DEFMETHOD VIEW-DAMAGE (VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
[GC threshold exceeded with 25,254,736 bytes in use.  Commencing GC.]
[GC completed with 18,817,280 bytes retained and 6,437,456 bytes freed.]
[GC will next occur when at least 20,817,280 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-DAMAGED-P (VIEW))|.
Compiling DEFMETHOD VIEW-DAMAGED-P (VIEW): 
Converted |(PCL::FAST-METHOD (SETF VIEW-DAMAGED-P) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-DAMAGED-P) (T VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF VIEW-GRAPHIC) :AFTER (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-GRAPHIC) :AFTER (T VIEW): 
Converted |(PCL::FAST-METHOD VIEW-PIXEL-SIZE (VIEW))|.
Compiling DEFMETHOD VIEW-PIXEL-SIZE (VIEW): 
Converted |(PCL::FAST-METHOD REFRESH-VIEW (VIEW))|.
Compiling DEFMETHOD REFRESH-VIEW (VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD REFRESH-VIEW :AFTER (VIEW))|.
Compiling DEFMETHOD REFRESH-VIEW :AFTER (VIEW): 
Converted |(PCL::FAST-METHOD REPAIR-VIEW (VIEW))|.
Compiling DEFMETHOD REPAIR-VIEW (VIEW): 
[GC threshold exceeded with 21,526,112 bytes in use.  Commencing GC.]
[GC completed with 19,323,120 bytes retained and 2,202,992 bytes freed.]
[GC will next occur when at least 21,323,120 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-SCALE-POINT (VIEW T T))|.
Compiling DEFMETHOD VIEW-SCALE-POINT (VIEW T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD TRANSFORM-POINT (VIEW T T))|.
Compiling DEFMETHOD TRANSFORM-POINT (VIEW T T): 
Converted |(PCL::FAST-METHOD TRANSFORM-X (VIEW T))|.
Compiling DEFMETHOD TRANSFORM-X (VIEW T): 
Converted |(PCL::FAST-METHOD TRANSFORM-Y (VIEW T))|.
Compiling DEFMETHOD TRANSFORM-Y (VIEW T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-TRANSFORM-VECTOR (VIEW T))|.
Compiling DEFMETHOD VIEW-TRANSFORM-VECTOR (VIEW T): 
[GC threshold exceeded with 21,593,864 bytes in use.  Commencing GC.]
[GC completed with 19,508,576 bytes retained and 2,085,288 bytes freed.]
[GC will next occur when at least 21,508,576 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-UNTRANSFORM-POINT (VIEW T T))|.
Compiling DEFMETHOD VIEW-UNTRANSFORM-POINT (VIEW T T): 
Converted |(PCL::FAST-METHOD UNTRANSFORM-POINT (VIEW T T))|.
Compiling DEFMETHOD UNTRANSFORM-POINT (VIEW T T): 
Converted |(PCL::FAST-METHOD VIEW-UNTRANSFORM-X (VIEW T))|.
Compiling DEFMETHOD VIEW-UNTRANSFORM-X (VIEW T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-UNTRANSFORM-Y (VIEW T))|.
Compiling DEFMETHOD VIEW-UNTRANSFORM-Y (VIEW T): 
Converted |(PCL::FAST-METHOD VIEW-ZOOM (VIEW T))|.
Compiling DEFMETHOD VIEW-ZOOM (VIEW T): 
Converted |(PCL::FAST-METHOD WORLD-EXTENT (VIEW))|.
Compiling DEFMETHOD WORLD-EXTENT (VIEW): 
Byte Compiling Top-Level Form: 
Converted RECT-UNION.
Compiling DEFUN RECT-UNION: 
Converted RECT-INTERSECT.
Compiling DEFUN RECT-INTERSECT: 
[GC threshold exceeded with 21,509,608 bytes in use.  Commencing GC.]
[GC completed with 19,856,168 bytes retained and 1,653,440 bytes freed.]
[GC will next occur when at least 21,856,168 bytes are in use.]
Converted RECT-MERGE.
Compiling DEFUN RECT-MERGE: 
Byte Compiling Top-Level Form: 

clue:pictures/view.x86f written.
Compilation finished in 0:00:22.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/view.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:06:40 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/view-events.lisp 16 NOV 96 08:56:51 pm

Converted |(PCL::FAST-METHOD HANDLE-EVENT (VIEW EVENT))|.
Compiling DEFMETHOD HANDLE-EVENT (VIEW EVENT): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
[GC threshold exceeded with 22,103,400 bytes in use.  Commencing GC.]
[GC completed with 20,282,992 bytes retained and 1,820,408 bytes freed.]
[GC will next occur when at least 22,282,992 bytes are in use.]
Converted CALL-ACTION-INTERNAL.
Compiling DEFUN CALL-ACTION-INTERNAL: 
Converted GRAPHIC-ACTION-P.
Compiling DEFUN GRAPHIC-ACTION-P: 
Converted GRAPHIC-CALL-ACTION.
Compiling DEFUN GRAPHIC-CALL-ACTION: 
Converted |(PCL::FAST-METHOD GRAPHIC-PICK (GRAPHIC T T))|.
Compiling DEFMETHOD GRAPHIC-PICK (GRAPHIC T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
Converted |(PCL::FAST-METHOD GRAPHIC-PICK (SCENE T T))|.
Compiling DEFMETHOD GRAPHIC-PICK (SCENE T T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL SCENE>: 
Converted |(PCL::FAST-METHOD GRAPHIC-PICK (GRABBER-RECT T T))|.
Compiling DEFMETHOD GRAPHIC-PICK (GRABBER-RECT T T): 
Converted |(PCL::FAST-METHOD GRAPHIC-PICK (SELECTION-SCENE T T))|.
Compiling DEFMETHOD GRAPHIC-PICK (SELECTION-SCENE T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD GRAPHIC-WITHIN (GRAPHIC T T T T))|.
Compiling DEFMETHOD GRAPHIC-WITHIN (GRAPHIC T T T T): 
Converted |(PCL::FAST-METHOD GRAPHIC-WITHIN (SCENE T T T T))|.
Compiling DEFMETHOD GRAPHIC-WITHIN (SCENE T T T T): 
Byte Compiling Top-Level Form: 

clue:pictures/view-events.x86f written.
Compilation finished in 0:00:03.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/view-events.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:06:43 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/view-select.lisp 06 MAR 97 03:21:33 pm

Converted |(PCL::FAST-METHOD VIEW-SELECTION (VIEW))|.
Compiling DEFMETHOD VIEW-SELECTION (VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
[GC threshold exceeded with 22,313,216 bytes in use.  Commencing GC.]
[GC completed with 20,734,288 bytes retained and 1,578,928 bytes freed.]
[GC will next occur when at least 22,734,288 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF VIEW-SELECTION) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-SELECTION) (T VIEW): 
Converted GET-GRAPHIC.
Compiling DEFUN GET-GRAPHIC: 
Converted |(PCL::FAST-METHOD VIEW-ADD-SELECTION (VIEW T))|.
Compiling DEFMETHOD VIEW-ADD-SELECTION (VIEW T): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
Converted PLACE-ON-SELECTION.
Compiling DEFUN PLACE-ON-SELECTION: 
Converted |(PCL::FAST-METHOD VIEW-REMOVE-SELECTION (VIEW T))|.
Compiling DEFMETHOD VIEW-REMOVE-SELECTION (VIEW T): 
Converted REMOVE-FROM-SELECTION.
Compiling DEFUN REMOVE-FROM-SELECTION: 
Converted |(PCL::FAST-METHOD VIEW-CLEAR-SELECTION (VIEW))|.
Compiling DEFMETHOD VIEW-CLEAR-SELECTION (VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-SELECT-GRAPHIC (VIEW))|.
Compiling DEFMETHOD VIEW-SELECT-GRAPHIC (VIEW): 
Converted |(PCL::FAST-METHOD VIEW-MOVE-GRAPHIC (GRAPHIC VIEW))|.
Compiling DEFMETHOD VIEW-MOVE-GRAPHIC (GRAPHIC VIEW): 
[GC threshold exceeded with 24,220,176 bytes in use.  Commencing GC.]
[GC completed with 20,100,256 bytes retained and 4,119,920 bytes freed.]
[GC will next occur when at least 22,100,256 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-UNSELECT-GRAPHIC (VIEW))|.
Compiling DEFMETHOD VIEW-UNSELECT-GRAPHIC (VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-SELECT-REGION (VIEW))|.
Compiling DEFMETHOD VIEW-SELECT-REGION (VIEW): 
Converted |(PCL::FAST-METHOD VIEW-UNSELECT-REGION (VIEW))|.
Compiling DEFMETHOD VIEW-UNSELECT-REGION (VIEW): 
[GC threshold exceeded with 22,760,256 bytes in use.  Commencing GC.]
[GC completed with 20,577,800 bytes retained and 2,182,456 bytes freed.]
[GC will next occur when at least 22,577,800 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-BUTTON-RELEASE (VIEW))|.
Compiling DEFMETHOD VIEW-BUTTON-RELEASE (VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SCALE-RUBBERBAND (VIEW T T))|.
Compiling DEFMETHOD SCALE-RUBBERBAND (VIEW T T): 
Converted |(PCL::FAST-METHOD SCALE-RUBBERBAND-FIXED-WIDTH (VIEW T T T))|.
Compiling DEFMETHOD SCALE-RUBBERBAND-FIXED-WIDTH (VIEW T T T): 
Converted |(PCL::FAST-METHOD SCALE-RUBBERBAND-FIXED-HEIGHT (VIEW T T T))|.
Compiling DEFMETHOD SCALE-RUBBERBAND-FIXED-HEIGHT (VIEW T T T): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD MOVE-BOX (VIEW))|.
Compiling DEFMETHOD MOVE-BOX (VIEW): 
[GC threshold exceeded with 22,954,976 bytes in use.  Commencing GC.]
[GC completed with 20,684,096 bytes retained and 2,270,880 bytes freed.]
[GC will next occur when at least 22,684,096 bytes are in use.]
Converted CHANGE-TO-IDENTITY.
Compiling DEFMACRO CHANGE-TO-IDENTITY: 
Converted |(PCL::FAST-METHOD ROTATE-BOX (VIEW))|.
Compiling DEFMETHOD ROTATE-BOX (VIEW): 
Byte Compiling Top-Level Form: 

clue:pictures/view-select.x86f written.
Compilation finished in 0:00:14.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/view-select.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:06:58 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/view-zoom.lisp 16 NOV 96 09:20:44 pm

Converted |(PCL::FAST-METHOD VIEW-ZOOM-VALUE (VIEW))|.
Compiling DEFMETHOD VIEW-ZOOM-VALUE (VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted |(PCL::FAST-METHOD (SETF VIEW-ZOOM-VALUE) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-ZOOM-VALUE) (T VIEW): 
Converted |(PCL::FAST-METHOD VIEW-ZOOM-X (VIEW))|.
Compiling DEFMETHOD VIEW-ZOOM-X (VIEW): 
[GC threshold exceeded with 22,808,288 bytes in use.  Commencing GC.]
[GC completed with 21,171,232 bytes retained and 1,637,056 bytes freed.]
[GC will next occur when at least 23,171,232 bytes are in use.]
Converted |(PCL::FAST-METHOD (SETF VIEW-ZOOM-X) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-ZOOM-X) (T VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-ZOOM-Y (VIEW))|.
Compiling DEFMETHOD VIEW-ZOOM-Y (VIEW): 
Converted |(PCL::FAST-METHOD (SETF VIEW-ZOOM-Y) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-ZOOM-Y) (T VIEW): 
Converted |(PCL::FAST-METHOD VIEW-ZOOM-GRAVITY (VIEW))|.
Compiling DEFMETHOD VIEW-ZOOM-GRAVITY (VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD (SETF VIEW-ZOOM-GRAVITY) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-ZOOM-GRAVITY) (T VIEW): 
Converted |(PCL::FAST-METHOD VIEW-ZOOM-IN (VIEW))|.
Compiling DEFMETHOD VIEW-ZOOM-IN (VIEW): 
Converted |(PCL::FAST-METHOD VIEW-ZOOM-OUT (VIEW))|.
Compiling DEFMETHOD VIEW-ZOOM-OUT (VIEW): 
Byte Compiling Top-Level Form: 

clue:pictures/view-zoom.x86f written.
Compilation finished in 0:00:03.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/view-zoom.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:07:01 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/view-pan.lisp 16 NOV 96 08:59:15 pm

Converted |(PCL::FAST-METHOD VIEW-X-PAN (VIEW))|.
Compiling DEFMETHOD VIEW-X-PAN (VIEW): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL VIEW>: 
Converted |(PCL::FAST-METHOD (SETF VIEW-X-PAN) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-X-PAN) (T VIEW): 
Converted |(PCL::FAST-METHOD VIEW-Y-PAN (VIEW))|.
Compiling DEFMETHOD VIEW-Y-PAN (VIEW): 
Converted |(PCL::FAST-METHOD (SETF VIEW-Y-PAN) (T VIEW))|.
Compiling DEFMETHOD (SETF VIEW-Y-PAN) (T VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-PAN-RIGHT (VIEW))|.
Compiling DEFMETHOD VIEW-PAN-RIGHT (VIEW): 
[GC threshold exceeded with 23,848,632 bytes in use.  Commencing GC.]
[GC completed with 21,524,040 bytes retained and 2,324,592 bytes freed.]
[GC will next occur when at least 23,524,040 bytes are in use.]
Converted |(PCL::FAST-METHOD VIEW-PAN-LEFT (VIEW))|.
Compiling DEFMETHOD VIEW-PAN-LEFT (VIEW): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD VIEW-PAN-UP (VIEW))|.
Compiling DEFMETHOD VIEW-PAN-UP (VIEW): 
Converted |(PCL::FAST-METHOD VIEW-PAN-DOWN (VIEW))|.
Compiling DEFMETHOD VIEW-PAN-DOWN (VIEW): 
Byte Compiling Top-Level Form: 

clue:pictures/view-pan.x86f written.
Compilation finished in 0:00:04.
[GC threshold exceeded with 23,526,088 bytes in use.  Commencing GC.]
[GC completed with 21,775,136 bytes retained and 1,750,952 bytes freed.]
[GC will next occur when at least 23,775,136 bytes are in use.]
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/view-pan.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:07:06 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/utilities.lisp 16 NOV 96 08:48:01 pm

Converted HANDLE-EMBEDDED-FORMS.
Compiling DEFUN HANDLE-EMBEDDED-FORMS: 
Converted SCAN-FORM.
Compiling DEFUN SCAN-FORM: 
Converted BEEP.
Compiling DEFUN BEEP: 
Converted PROMPT-USER-FOR.
Compiling DEFUN PROMPT-USER-FOR: 
Converted GET-DEFINED-SYMBOL-FOR.
Compiling DEFUN GET-DEFINED-SYMBOL-FOR: 
Byte Compiling Top-Level Form: 

File: /usr/local/fakeroot/work/clue-19970309/pictures/utilities.lisp

In: DEFUN HANDLE-EMBEDDED-FORMS
  (MAKE-GRAPHIC ITEM)
Warning: Undefined function: MAKE-GRAPHIC


Warning: This function is undefined:
  MAKE-GRAPHIC


Compilation unit finished.
  2 warnings


clue:pictures/utilities.x86f written.
Compilation finished in 0:00:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/utilities.x86f".

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:07:07 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/save.lisp 19 JUL 90 09:05:17 pm

Converted |(PCL::FAST-METHOD SAVE-GRAPHIC :BEFORE (GRAPHIC (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC :BEFORE (GRAPHIC (EQL :NESTED-FORMS)): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL GRAPHIC>: 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (GRAPHIC (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (GRAPHIC (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC :AFTER (GRAPHIC (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC :AFTER (GRAPHIC (EQL :NESTED-FORMS)): 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL EDGE>: 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (TRANSFORM (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (TRANSFORM (EQL :NESTED-FORMS)): 
[GC threshold exceeded with 23,842,040 bytes in use.  Commencing GC.]
[GC completed with 22,040,088 bytes retained and 1,801,952 bytes freed.]
[GC will next occur when at least 24,040,088 bytes are in use.]
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (GSTATE (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (GSTATE (EQL :NESTED-FORMS)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (CIRCLE (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (CIRCLE (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (ELLIPSE (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (ELLIPSE (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (GRAPHIC-IMAGE (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (GRAPHIC-IMAGE (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (IMAGE-X (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (IMAGE-X (EQL :NESTED-FORMS)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (IMAGE-XY (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (IMAGE-XY (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (IMAGE-Z (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (IMAGE-Z (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (LABEL (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (LABEL (EQL :NESTED-FORMS)): 
[GC threshold exceeded with 24,147,656 bytes in use.  Commencing GC.]
[GC completed with 22,531,680 bytes retained and 1,615,976 bytes freed.]
[GC will next occur when at least 24,531,680 bytes are in use.]
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (LINE (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (LINE (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (POLYPOINT (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (POLYPOINT (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (RECTANGLE (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (RECTANGLE (EQL :NESTED-FORMS)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (SCENE (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (SCENE (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (VIEW (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (VIEW (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (ARRAY (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (ARRAY (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (CHARACTER (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (CHARACTER (EQL :NESTED-FORMS)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (NUMBER (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (NUMBER (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (SYMBOL (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (SYMBOL (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (LIST (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (LIST (EQL :NESTED-FORMS)): 
Byte Compiling Top-Level Form: 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (STRING (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (STRING (EQL :NESTED-FORMS)): 
[GC threshold exceeded with 24,592,344 bytes in use.  Commencing GC.]
[GC completed with 20,325,688 bytes retained and 4,266,656 bytes freed.]
[GC will next occur when at least 22,325,688 bytes are in use.]
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (INTEGER (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (INTEGER (EQL :NESTED-FORMS)): 
Converted |(PCL::FAST-METHOD SAVE-GRAPHIC (FLOAT (EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD SAVE-GRAPHIC (FLOAT (EQL :NESTED-FORMS)): 
Byte Compiling Top-Level Form: 

clue:pictures/save.x86f written.
Compilation finished in 0:00:08.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/save.x86f".
Compiling LAMBDA (#:G2013 #:G2014 #:G2016 #:G2017): 
Compiling Top-Level Form: 
Compiling LAMBDA (PCL::EFFECTIVE-METHOD-GENSYM-0 PCL::EFFECTIVE-METHOD-GENSYM-1 PCL::EFFECTIVE-METHOD-GENSYM-2): 
Compiling Top-Level Form: 
Compiling LAMBDA (PCL::EFFECTIVE-METHOD-GENSYM-0 PCL::EFFECTIVE-METHOD-GENSYM-1 PCL::EFFECTIVE-METHOD-GENSYM-2): 
Compiling Top-Level Form: 
[GC threshold exceeded with 22,326,776 bytes in use.  Commencing GC.]
[GC completed with 20,879,336 bytes retained and 1,447,440 bytes freed.]
[GC will next occur when at least 22,879,336 bytes are in use.]
[GC threshold exceeded with 22,880,512 bytes in use.  Commencing GC.]
[GC completed with 21,201,880 bytes retained and 1,678,632 bytes freed.]
[GC will next occur when at least 23,201,880 bytes are in use.]

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:07:20 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/restore.lisp 19 JUL 90 09:05:12 pm

Converted |(PCL::FAST-METHOD RESTORE-GRAPHIC ((EQL :NESTED-FORMS)))|.
Compiling DEFMETHOD RESTORE-GRAPHIC ((EQL :NESTED-FORMS)): 
[GC threshold exceeded with 23,452,904 bytes in use.  Commencing GC.]
[GC completed with 21,426,304 bytes retained and 2,026,600 bytes freed.]
[GC will next occur when at least 23,426,304 bytes are in use.]
Converted MAKE-GRAPHIC.
Compiling DEFUN MAKE-GRAPHIC: 
Byte Compiling Top-Level Form: 

clue:pictures/restore.x86f written.
Compilation finished in 0:00:01.
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/pictures/restore.x86f".
Compiling LAMBDA (#:G2304 #:G2305 #:G2307 #:G2308): 
Compiling Top-Level Form: 

Python version 1.0, VM version Intel x86 on 14 OCT 98 09:07:22 pm.
Compiling: /usr/local/fakeroot/work/clue-19970309/pictures/precom.lisp 07 MAR 97 09:56:21 pm

Compiling LAMBDA (#:G0 #:G1 #:G3 #:G4): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G6 #:G7 #:G8 #:G9 #:G11 #:G12): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G38 #:G39 #:G42 #:G43): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G46 #:G47 #:G50 #:G51): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G54 #:G55 #:G58 #:G59): [GC threshold exceeded with 23,431,104 bytes in use.  Commencing GC.]
[GC completed with 22,071,752 bytes retained and 1,359,352 bytes freed.]
[GC will next occur when at least 24,071,752 bytes are in use.]

Compiling Top-Level Form: 
Compiling LAMBDA (#:G62 #:G63 #:G66 #:G67): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G82 #:G83 #:G84 #:G85 #:G87 #:G88): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G90 #:G91 #:G92 #:G93 #:G105 #:G106): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G118 #:G119 #:G120 #:G122 #:G123): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G125 #:G126 #:G128 #:G129): [GC threshold exceeded with 24,076,776 bytes in use.  Commencing GC.]
[GC completed with 22,879,640 bytes retained and 1,197,136 bytes freed.]
[GC will next occur when at least 24,879,640 bytes are in use.]

Compiling Top-Level Form: 
Compiling LAMBDA (#:G131 #:G132 #:G135 #:G136): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G139 #:G140 #:G143 #:G144): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G147 #:G148 #:G150 #:G151): 
Compiling Top-Level Form: 
Compiling LAMBDA (#:G153 #:G154 #:G156 #:G157): 
Compiling Top-Level Form: 
[GC threshold exceeded with 24,882,840 bytes in use.  Commencing GC.]
[GC completed with 21,750,664 bytes retained and 3,132,176 bytes freed.]
[GC will next occur when at least 23,750,664 bytes are in use.]
[GC threshold exceeded with 23,756,760 bytes in use.  Commencing GC.]
[GC completed with 21,858,832 bytes retained and 1,897,928 bytes freed.]
[GC will next occur when at least 23,858,832 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
[GC threshold exceeded with 23,901,688 bytes in use.  Commencing GC.]
[GC completed with 22,025,152 bytes retained and 1,876,536 bytes freed.]
[GC will next occur when at least 24,025,152 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Byte Compiling Top-Level Form: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
[GC threshold exceeded with 24,046,560 bytes in use.  Commencing GC.]
[GC completed with 22,315,648 bytes retained and 1,730,912 bytes freed.]
[GC will next occur when at least 24,315,648 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PICTURES:VIEW>: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Byte Compiling Top-Level Form: 
Compiling Creation Form for #<KERNEL::CLASS-CELL PICTURES:GRAPHIC>: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
[GC threshold exceeded with 24,645,032 bytes in use.  Commencing GC.]
[GC completed with 22,450,240 bytes retained and 2,194,792 bytes freed.]
[GC will next occur when at least 24,450,240 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
[GC threshold exceeded with 24,491,984 bytes in use.  Commencing GC.]
[GC completed with 22,816,088 bytes retained and 1,675,896 bytes freed.]
[GC will next occur when at least 24,816,088 bytes are in use.]
Compiling PCL::PRECOMPILE-RANDOM-CODE-SEGMENTS PICTURES: 
Byte Compiling Top-Level Form: 

clue:pictures/precom.x86f written.
Compilation finished in 0:00:23.
;; Loading #p"/usr/local/fakeroot/work/cmucl-2.4.6/src/tools/setup.lisp".
;; Loading #p"/usr/local/fakeroot/work/clue-19970309/make-subsystems.lisp".
"clue-library.x86f" out of date.
"clio-library.x86f" out of date.
"pictures-library.x86f" out of date.
(pvaneynd@slartibartfast:/usr/local/fakeroot/work/clue-19970309) $]0;/usr/local/fakeroot/work/clue-19970309[Kexit
exit

Script done on Wed Oct 14 21:21:31 1998