Helmut Eller <heller <at> common-lisp.net> writes:

A backtrace here would be useful.

------------------------------------------- Bug Report Friday 28 Jul 2006 at 10:21:06 AM

lisp version: 7.0 [Windows] (Jul 21, 2006 17:02) cg version: 1.54.2.17.2.12 platform: NT 5.1.2600 Service Pack 1

Error: Bad type of object (SYNONYM-STREAM) passed to parent. The object was #<SYNONYM-STREAM @ #x20be0492>.

-------------------------------------------- Backtrace for process "Listener 1" --------------------------------------------

ERROR DATUM (REQUIRED) --> "Bad type of object (~a) passed to parent. ~ The object was ~s." ARGUMENTS (REST) --> (SYNONYM-STREAM #<SYNONYM-STREAM @ #x20be0492>) local-0 (LOCAL) --> (SYNONYM-STREAM #<SYNONYM-STREAM @ #x20be0492>) local-1 (LOCAL) --> "Bad type of object (~a) passed to parent. ~ The object was ~s." local-2 (LOCAL) --> #<SIMPLE-ERROR @ #x20ed0ef2> local-3 (LOCAL) --> 97 local-4 (LOCAL) --> NIL local-5 (LOCAL) --> #<STANDARD-CLASS SYNONYM-STREAM> local-6 (LOCAL) --> #<Printer Error, obj=#x1f74b887: Can't coerce 77046520 to type SIMPLE-STRING.> UNKNOWN (UNKNOWN) --> NIL

(METHOD PARENT (T)) OBJECT (REQUIRED) --> #<SYNONYM-STREAM @ #x20be0492> local-0 (LOCAL) --> #<SYNONYM-STREAM @ #x20be0492>

(METHOD IDE-PROXY-TASK (READ-EVAL-DATA)) STRUCT-ARGUMENT (REQUIRED) --> #S(IDE.BASE::READ-EVAL-DATA :START-POS 7214 :END-POS 7219 :STRING "nil ") local-0 (LOCAL) --> #<Vector @ #x20ed17ba> local-1 (LOCAL) --> 0 local-2 (LOCAL) --> NIL local-3 (LOCAL) --> 30558901 local-4 (LOCAL) --> 30558901 local-5 (LOCAL) --> 135843258 local-6 (LOCAL) --> 0 local-7 (LOCAL) --> 4 local-8 (LOCAL) --> 137199902 local-9 (LOCAL) --> #<Function (METHOD IDE.BASE:IDE-PROXY-TASK (IDE.BASE::READ-EVAL-DATA))> local-10 (LOCAL) --> 132222450 local-11 (LOCAL) --> 0 local-12 (LOCAL) --> :BAD-FRAME-VAR-VALUE local-13 (LOCAL) --> 12434102 local-14 (LOCAL) --> "nil " local-15 (LOCAL) --> T local-16 (LOCAL) --> #<MP:PROCESS Listener 1(4) @ #x20b601e2> local-17 (LOCAL) --> NIL local-18 (LOCAL) --> #S(IDE.BASE::READ-EVAL-DATA :START-POS 7214 :END-POS 7219 :STRING "nil ") local-19 (LOCAL) --> 12434102 local-20 (LOCAL) --> #\null local-21 (LOCAL) --> 12434134 local-22 (LOCAL) --> #<Function CHECK-ANNOTATIONS-AND-WRITE> local-23 (LOCAL) --> #<XP-SIMPLE-STREAM printing "" pos 0 @ #x20ed114a> local-24 (LOCAL) --> "Listener 1" local-25 (LOCAL) --> :BAD-FRAME-VAR-VALUE local-26 (LOCAL) --> EXCL::*WITHOUT-INTERRUPTS* local-27 (LOCAL) --> T local-28 (LOCAL) --> :BAD-FRAME-VAR-VALUE local-29 (LOCAL) --> 0 local-30 (LOCAL) --> #\I local-31 (LOCAL) --> 27

(METHOD HANDLE-PROXY-TASKS (EVAL-PROCESS-WINDOW)) EVAL-WINDOW (REQUIRED) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> local-0 (LOCAL) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> local-1 (LOCAL) --> #<MP:PROCESS-LOCK IDE Process Lock @ #x20b34e92> local-2 (LOCAL) --> #<MP:PROCESS Listener 1(4) @ #x20b601e2> local-3 (LOCAL) --> 0 local-4 (LOCAL) --> NIL local-5 (LOCAL) --> NIL local-6 (LOCAL) --> NIL local-7 (LOCAL) --> "Lock" local-8 (LOCAL) --> 137298716 local-9 (LOCAL) --> #S(IDE.BASE::READ-EVAL-DATA :START-POS 7214 :END-POS 7219 :STRING "nil ") local-10 (LOCAL) --> #<Vector @ #x20ed04b2> local-11 (LOCAL) --> #S(IDE.BASE::READ-EVAL-DATA :START-POS 7214 :END-POS 7219 :STRING "nil ") local-12 (LOCAL) --> NIL local-13 (LOCAL) --> #<MP:PROCESS-LOCK IDE Process Lock @ #x20b34e92> local-14 (LOCAL) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> local-15 (LOCAL) --> #S(IDE.BASE::READ-EVAL-DATA :START-POS 7214 :END-POS 7219 :STRING "nil ") local-16 (LOCAL) --> #<STANDARD-GENERIC-FUNCTION (SETF IDE.BASE::EVAL-PROCESS-TASKS)>

(METHOD WINDOW-PROCEDURE (BASIC-PANE (EQL PROXY-TASK-MESSAGE) T T)) WINDOW (REQUIRED) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> MSG (REQUIRED) --> 33169 WPARAM (REQUIRED) --> 0 LPARAM (REQUIRED) --> 0

WINDOW-PROCEDURE-CALLBACK G6941 (REQUIRED) --> :UNKNOWN local-0 (LOCAL) --> 0 local-1 (LOCAL) --> T local-2 (LOCAL) --> 525340 local-3 (LOCAL) --> 33169 local-4 (LOCAL) --> 0 local-5 (LOCAL) --> 0 local-6 (LOCAL) --> 12434410 local-7 (LOCAL) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> local-8 (LOCAL) --> 132219671 local-9 (LOCAL) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> local-10 (LOCAL) --> "CG-USER" local-11 (LOCAL) --> #<XP-SIMPLE-STREAM printing "" pos 0 @ #x20ed114a>

DISPATCH-WINDOW-MESSAGE local-0 (LOCAL) --> #<screen @ #x20af8ffa>

PROCESS-SINGLE-EVENT NO-WAIT (OPTIONAL) --> NIL local-0 (LOCAL) --> 137311480 local-1 (LOCAL) --> NIL local-2 (LOCAL) --> :BAD-FRAME-VAR-VALUE

SIMPLE-EVENT-LOOP WINDOW (REQUIRED) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> EXIT-TEST (REQUIRED) --> NIL local-0 (LOCAL) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> local-1 (LOCAL) --> NIL

EVENT-LOOP-2 WINDOW (REQUIRED) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> EXIT-TEST (REQUIRED) --> NIL local-0 (LOCAL) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> local-1 (LOCAL) --> NIL

EVENT-LOOP WINDOW (KEYWORD) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> EXIT-TEST (KEYWORD) --> :UNSUPPLIED local-0 (LOCAL) --> 0 local-1 (LOCAL) --> NIL local-2 (LOCAL) --> #<EVAL-PROCESS-WINDOW IDE.BASE:EVAL-PROCESS-WINDOW in Listener 1 @ #x20b604ca> local-3 (LOCAL) --> NIL local-4 (LOCAL) --> 12434678 local-5 (LOCAL) --> #<LISTENER-PANE :LISTENER-PANE in IDE GUI @ #x20b60402> local-6 (LOCAL) --> #31? local-7 (LOCAL) --> #<Closure (:INTERNAL EVENT-LOOP 0) @ #x2f6f3b2> local-8 (LOCAL) --> (#<restart EXIT-EVENT-LOOP @ #x20f033fa>) local-9 (LOCAL) --> NIL

REP-ONE-COMMAND-EVENT-LOOP NIL (EXTRA-ARG) --> NIL NIL (EXTRA-ARG) --> NIL local-0 (LOCAL) --> :BAD-FRAME-VAR-VALUE local-1 (LOCAL) --> #<LISTENER-PANE :LISTENER-PANE in IDE GUI @ #x20b60402> local-2 (LOCAL) --> #<LISTENER-WINDOW :LISTENER-WINDOW-1 in IDE GUI @ #x20b605a2> local-3 (LOCAL) --> (#<STANDARD-METHOD OUTPUT-STREAM-P (FUNDAMENTAL-STREAM)> #<STANDARD-METHOD OUTPUT-STREAM-P (T)>)

IDE-TOP-LEVEL-READ-EVAL-PRINT-LOOP-2 local-0 (LOCAL) --> 12434926 local-1 (LOCAL) --> #<Closure (:INTERNAL IDE.BASE::IDE-TOP-LEVEL-READ-EVAL-PRINT-LOOP-2 0) @ #x2f6f792> local-2 (LOCAL) --> (#<restart ABORT @ #x20ed2112>) local-3 (LOCAL) --> NIL

IDE-TOP-LEVEL-READ-EVAL-PRINT-LOOP ARGS (REST) --> 0 local-0 (LOCAL) --> 0 local-1 (LOCAL) --> 12434987 local-2 (LOCAL) --> TPL::*INSIDE-READ-EVAL-PRINT* local-3 (LOCAL) --> #<Closure (:INTERNAL IDE.BASE::IDE-TOP-LEVEL-READ-EVAL-PRINT-LOOP 0) @ #x2f6f88a> local-4 (LOCAL) --> NIL local-5 (LOCAL) --> (#<restart IDE.BASE::EXIT-LISTENER @ #x20b84ba2>) local-6 (LOCAL) --> NIL UNKNOWN (UNKNOWN) --> NIL

TOP-LEVEL-READ-EVAL-PRINT-LOOP local-0 (LOCAL) --> (/ // /// * ** *** + ++ +++ - TPL:*PROMPT* TPL::.DIGESTED-PROMPT. TPL::.PROMPT-WARNING-ISSUED. TPL:*COMMAND-CHAR* TPL:*HISTORY* TPL:*EXIT-ON-EOF* TPL:*READ* TPL:*EVAL* TPL:*PRINT* TPL:*PRINT-LEVEL* TPL:*PRINT-LENGTH* TPL:*RESET-HOOK* TPL:*TIME-THRESHOLD* TPL::*HISTORY-LIST* TPL::*THIS-COMMAND-NUMBER* TPL::*HISTORY-LENGTH* TPL::*LAST-FILE-LOADED* TPL::*LAST-FILE-COMPILED* TPL:*AUTO-ZOOM* TPL:*ZOOM-DISPLAY* TPL:*ZOOM-PRINT-SPECIAL-BINDINGS* TPL:*ZOOM-PRINT-LENGTH* TPL:*ZOOM-PRINT-LEVEL* TPL:*ZOOM-PRINT-CIRCLE* TPL::*CURRENT-FRAME-POINTER-CHANGE-HOOK* TPL::*FOCUS-STACK* TPL::*ARRESTED-PROCESSES* TPL::*ZOOM-OUTPUT-STYLE* TPL:*ZOOM-SHOW-NEWER-FRAMES* TPL::*ZOOM-FUNCTION-STYLE* TPL::*ZOOM-PRINT-RELATIVE* TPL::*UNHIDE-ALL-FRAMES* TPL:*HELP-PAGE-LENGTH* TPL::*EOFS-SEEN* TPL::*SAVED-PACKAGE* TPL::*SAVED-FOCUS* TPL::*POP-HOOK* TPL::.REP-ONE-COMMAND. TPL::*MACRO-LAST-ARG* TPL::*CLOAD-LAST-ARGS* TPL::*INSIDE-READ-EVAL-PRINT*) local-1 (LOCAL) --> (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL "~&~ ~@[[Current process: ~a]~%~]~ ~@[[Current process focus: ~a]~%~]~ ~:[~ ~:[~ ~2*~ ~;~ [~:*~d~:[~;c~]~:[~;i~]] ~ ~]~ ~;~ [~:*~a] ~3*~ ~]~ ~a(~d): " (NIL) NIL #: 100 NIL NIL NIL NIL 5 10 NIL NIL NIL 0 0 NIL NIL T 8 NIL 3 3 NIL NIL NIL NIL :MODERATE T NIL NIL NIL 24 0 #<The COMMON-LISP-USER package> NIL NIL TPL::READ-EVAL-PRINT-ONE-COMMAND NIL NIL T) local-2 (LOCAL) --> NIL local-3 (LOCAL) --> (/ . /) local-4 (LOCAL) --> / local-5 (LOCAL) --> 202 local-6 (LOCAL) --> (TPL::*INSIDE-READ-EVAL-PRINT*) local-7 (LOCAL) --> IDE.BASE::IDE-TOP-LEVEL-READ-EVAL-PRINT-LOOP

START-INTERACTIVE-TOP-LEVEL *TERMINAL-IO* (REQUIRED) --> #<LISTENER-PANE :LISTENER-PANE in IDE GUI @ #x20b60402> FUNCTION (REQUIRED) --> TPL:TOP-LEVEL-READ-EVAL-PRINT-LOOP ARGS (REQUIRED) --> NIL INITIAL-BINDINGS (KEYWORD) --> :UNSUPPLIED local-0 (LOCAL) --> TPL:TOP-LEVEL-READ-EVAL-PRINT-LOOP local-1 (LOCAL) --> ((INSPECT::*INSPECTOR-HOOK* . INSPECT::*INSPECTOR-HOOK*) (SCM::*ED-HOOK* . SCM::*ED-HOOK*) (*PRINT-PPRINT-DISPATCH* . #S(EXCL::PPRINT-DISPATCH-STRUCT :CONSES-WITH-CARS #<EQ hash-table with 72 entries @ #x201228fa> :STRUCTURES #<EQUAL hash-table with 0 entries @ #x20122922> :OTHERS (#S(EXCL::ENTRY :TEST #<Function FUNCTION-CALL-P> :FN #<Function ALTERNATIVE-FN-CALL> :FULL-SPEC ((-5) (SATISFIES EXCL::FUNCTION-CALL-P))) #S(EXCL::ENTRY :TEST #<Function CONSP> :FN #<Function PPRINT-FILL-NO-ANNOTATION> :FULL-SPEC ((-10) CONS)) #S(EXCL::ENTRY :TEST #<Function ALWAYS-TRUE> :FN #<Function DEFAULT-USE-PRINT-OBJECT> :FULL-SPEC ((-10) T))))) (EXCL::*BREAK-ON-WARNINGS* . EXCL::*BREAK-ON-WARNINGS*) (*BREAK-ON-SIGNALS* . *BREAK-ON-SIGNALS*) (*RANDOM-STATE* MAKE-RANDOM-STATE NIL) (EXCL::*CASE-MODE* IF (EQ *CURRENT-CASE-MODE* :CASE-INSENSITIVE-UPPER) :STD :WW) (*PACKAGE* FIND-PACKAGE :USER) (*PRINT-LINES*) (*PRINT-MISER-WIDTH* . 40) (*PRINT-RIGHT-MARGIN*) (*PRINT-READABLY*) (*PRINT-GENSYM* . T) (*PRINT-ARRAY* . T) (*PRINT-CASE* QUOTE :UPCASE) (*PRINT-CIRCLE*) (*PRINT-LENGTH*) (*PRINT-LEVEL*) (*PRINT-RADIX*) (*PRINT-BASE* . 10) (*PRINT-PRETTY* SYS:GLOBAL-SYMBOL-VALUE '*PRINT-PRETTY*) (*PRINT-ESCAPE* . T) (EXCL::*DEBUG-ENCLOSE-PRINTER-ERRORS* . EXCL::*DEBUG-ENCLOSE-PRINTER-ERRORS*) (*ENCLOSE-PRINTER-ERRORS* . *ENCLOSE-PRINTER-ERRORS*) (*PRINT-NICKNAME* . *PRINT-NICKNAME*) (*READ-BASE* . 10) (*READ-DEFAULT-FLOAT-FORMAT* QUOTE SINGLE-FLOAT) (EXCL::STD-LISP-READTABLE COPY-READTABLE EXCL::STD-LISP-READTABLE) (*READTABLE* COPY-READTABLE NIL)) local-2 (LOCAL) --> NIL local-3 (LOCAL) --> NIL local-4 (LOCAL) --> #<MP:PROCESS Listener 1(4) @ #x20b601e2> local-5 (LOCAL) --> #<LISTENER-PANE :LISTENER-PANE in IDE GUI @ #x20b60402> local-6 (LOCAL) --> 126 local-7 (LOCAL) --> (TPL::INITIAL-LISTENER #<MP:PROCESS Listener 1(4) @ #x20b601e2> :NORMAL-EXTERIOR #<box 0 0 963 709> IDE.BASE::PROMPT-MARK #S(CG.TEXT-EDIT-PANE.MARK:MARK :POSITION 7345) :MARGIN-OFFSET-TOP 0 :MARGIN-OFFSET-LEFT 0 :HAS-CARET-P T :STATE :NORMAL :EXTERIOR #<Vector @ #x5f6d152> :DIALOG-UNITS-P NIL :OWNER #<LISTENER-FRAME :LISTENER-FRAME in IDE GUI @ #x20b60422> :DIALOG-HELP-FILE "Debug Window" :CHILD-NAME :LISTENER-PANE :PARENT #<LISTENER-FRAME :LISTENER-FRAME in IDE GUI @ #x20b60422> :INITIAL-LISTENER T :BURY-ON-TAB-DESELECTION T :LEFT 0 :TOP 23 :WIDTH 963 :HEIGHT 709) local-8 (LOCAL) --> TPL::INITIAL-LISTENER local-9 (LOCAL) --> #<STANDARD-GENERIC-FUNCTION (SETF IDE.BASE::LISTENER-READY)> local-10 (LOCAL) --> 202 local-11 (LOCAL) --> :BAD-FRAME-VAR-VALUE local-12 (LOCAL) --> (:HEIGHT 709) local-13 (LOCAL) --> 200

IDE-LISTENER-PROCESS-TOP INITIAL-LISTENER (KEYWORD) --> T local-0 (LOCAL) --> T local-1 (LOCAL) --> #<LISTENER-PANE :LISTENER-PANE in IDE GUI @ #x20b60402> local-2 (LOCAL) --> 0 local-3 (LOCAL) --> T local-4 (LOCAL) --> T local-5 (LOCAL) --> #<Vector @ #x20ed213a> local-6 (LOCAL) --> #<MP:PROCESS Listener 1(4) @ #x20b601e2> local-7 (LOCAL) --> NIL local-8 (LOCAL) --> #<STANDARD-GENERIC-FUNCTION (SETF SYS::PROCESS-PROPERTY-LIST)> local-9 (LOCAL) --> #<STANDARD-GENERIC-FUNCTION (SETF IDE.BASE::LISTENER-READY)> UNKNOWN (UNKNOWN) --> NIL

---------------------------------------------- Some Special Variables in Process "Listener 1" ----------------------------------------------

* NIL ** NIL *** NIL *ADDITIONAL-LOGICAL-PATHNAME-NAME-CHARS* NIL (global) *BREAK-ON-SIGNALS* NIL (global) *CL-DEFAULT-SPECIAL-BINDINGS* ((INSPECT::*INSPECTOR-HOOK* . INSPECT::*INSPECTOR-HOOK*) (SCM::*ED-HOOK* . SCM::*ED-HOOK*) (*PRINT-PPRINT-DISPATCH* . #S(EXCL::PPRINT-DISPATCH-STRUCT :CONSES-WITH-CARS # ...)) ...) (global) *CLEAR-INPUT-ON-ERROR* T (global) *CLTL1-IN-PACKAGE-COMPATIBILITY-P* NIL (global) *COMPILE-ADVICE* NIL (global) *COMPILE-FILE-PATHNAME* NIL (global) *COMPILE-FILE-TRUENAME* NIL (global) *COMPILE-PRINT* NIL (global) *COMPILE-VERBOSE* T (global) *COMPILER-NOT-AVAILABLE-WARNING* T (global) *CURRENT-CASE-MODE* :CASE-INSENSITIVE-UPPER (global) *DAYLIGHT-SAVING-TIME-OBSERVED* T (global) *DEBUG-IO* #<LISTENER-PANE :LISTENER-PANE#1= in IDE GUI @ #x20b60402>#1# *DEBUGGER-HOOK* NIL (global) *DEFAULT-EXTERNAL-FORMAT* :DEFAULT (global) *DEFAULT-PATHNAME-DEFAULTS* #P"C:\Program Files\acl70-trial\" (global) *DRIBBLE-BUG-HOOKS* NIL (global) *ELI-DAEMON-SOCKET-HOOK* #<Function (:INTERNAL (:TOP-LEVEL-FORM "eli.cl" 2308) 0) @ #x202d0f2a> (global) *ENABLE-PACKAGE-LOCKED-ERRORS* T (global) *ENCLOSE-PRINTER-ERRORS* T (global) *ERROR-OUTPUT* #<LISTENER-PANE :LISTENER-PANE#1= in IDE GUI @ #x20b60402>#1# *FASL-CIRCLE-DEFAULT* T (global) *FASL-DEFAULT-TYPE* "fasl" (global) *FEATURES* (:CL-PPCRE :ASDF :ALLEGRO-CL-TRIAL ...) (global) *GC-AFTER-HOOK* #<Closure DEFAULT-GC-AFTER-HOOK @ #x200123aa> (global) *GENSYM-COUNTER* 826 (global) *GLOBAL-GC-BEHAVIOR* :AUTO-AND-WARN (global) *IGNORE-PACKAGE-NAME-CASE* NIL (global) *INIT-FILE-NAMES* (".clinit.cl" "clinit.cl") (global) *INITIAL-TERMINAL-IO* #<TERMINAL-SIMPLE-STREAM [initial terminal io] fd 0/1 @ #x2011715a> (global) *INTERN-ALLOWS-SYMBOL* T (global) *LIBFASL* NIL (global) *LOAD-DOCUMENTATION* T (global) *LOAD-FOREIGN-TYPES* ("dll" "exe") (global) *LOAD-LOCAL-NAMES-INFO* T (global) *LOAD-PATHNAME* NIL (global) *LOAD-PRINT* NIL (global) *LOAD-SOURCE-FILE-INFO* T (global) *LOAD-TRUENAME* NIL (global) *LOAD-VERBOSE* T (global) *LOAD-XREF-INFO* T (global) *LOCALE* #<locale "English_United States" [(:E-CRLF :1252-BASE)] @ #x206efdda> (global) *MACROEXPAND-HOOK* FUNCALL (global) *MODULES* ("STREAMC" "ASDF" "efft-1252-base" ...) (global) *OPEN-RENAME-FUNCTION* #<Function OPEN-RENAME-FUNCTION> (global) *OPEN-RENAME-PREFIX* "" (global) *OPEN-RENAME-SUFFIX* "bak" (global) *PACKAGE* #<The COMMON-GRAPHICS-USER package> *PATHNAME-CUSTOMARY-CASE* :LOWER (global) *PPRINT-GRAVITY* T (global) *PRINT-ARRAY* T (global) *PRINT-BASE* 10 *PRINT-CASE* :UPCASE (global) *PRINT-CIRCLE* NIL (global) *PRINT-CIRCLE-GRAVITY* T (global) *PRINT-ESCAPE* T (global) *PRINT-GENSYM* T (global) *PRINT-LENGTH* NIL (global) *PRINT-LEVEL* NIL (global) *PRINT-LINES* NIL (global) *PRINT-MISER-WIDTH* 40 (global) *PRINT-NICKNAME* NIL (global) *PRINT-PPRINT-DISPATCH* #S(EXCL::PPRINT-DISPATCH-STRUCT :CONSES-WITH-CARS #<EQ hash-table with 72 entries @

#x201228fa> ...) (global) *PRINT-PRETTY* T (global) *PRINT-RADIX* NIL (global) *PRINT-READABLY* NIL *PRINT-RIGHT-MARGIN* NIL (global) *PRINT-STARTUP-MESSAGE* ((:COMPILER-SWITCHES . T) (:COMPILER-EXPLAIN . T) (:COMPILER-OPTIMIZATIONS . T) ...) (global) *PRINT-STRUCTURE* T (global) *QUERY-IO* #<LISTENER-PANE :LISTENER-PANE#1= in IDE GUI @ #x20b60402>#1# *RANDOM-STATE* #S(RANDOM-STATE :MTI 166 ...) (global) *READ-BASE* 10 *READ-DEFAULT-FLOAT-FORMAT* SINGLE-FLOAT (global) *READ-EVAL* T (global) *READ-INIT-FILES* (".clinit.cl" "clinit.cl") (global) *READ-SUPPRESS* NIL *READTABLE* #<readtable @ #x200e7c5a> (global) *RECORD-SOURCE-FILE-INFO* T (global) *RECORD-XREF-INFO* T (global) *REDEFINITION-PATHNAME-COMPARISON-HOOK* NIL (global) *REDEFINITION-WARNINGS* ('PROJECT ':OBSOLETE :SETF-METHOD ...) (global) *RESTART-ACTIONS* NIL (global) *RESTART-APP-FUNCTION* NIL (global) *RESTART-INIT-FUNCTION* (LAMBDA NIL (SET (INTERN # :CG.BASE) NIL) ...) (global) *SAVE-FUNCTION-LAMBDA-EXPRESSION* NIL (global) *SIGNALS* ((16 . SYS::SIGALRM-HANDLER) (14 . SYS::SIGALRM-HANDLER) (1000 . EXCL::SIG-HANDLER-STACK-OVERFLOW) ...) (global) *SOURCE-PATHNAME* NIL (global) *STANDARD-INPUT* #<LISTENER-PANE :LISTENER-PANE#1= in IDE GUI @ #x20b60402>#1# *STANDARD-OUTPUT* #<LISTENER-PANE :LISTENER-PANE#1= in IDE GUI @ #x20b60402>#1# *STD-CONTROL-OUT-TABLE* #<Vector @ #x200e2952> (global) *STEP-PRINT-LENGTH* 5 (global) *STEP-PRINT-LEVEL* 4 (global) *STRICT-PROBE-FILE* NIL (global) *SYSTEM-MESSAGES* NIL (global) *TENURED-BYTES-LIMIT* 8388608 (global) *TERMINAL-CONTROL-IN-TABLE* #<Vector @ #x200e29da> (global) *TERMINAL-IO* #<LISTENER-PANE :LISTENER-PANE#1= in IDE GUI @ #x20b60402>#1# *TRACE-OUTPUT* #<LISTENER-PANE :LISTENER-PANE#1= in IDE GUI @ #x20b60402>#1# *TRACE-PRINT-LENGTH* NIL (global) *TRACE-PRINT-LEVEL* NIL (global)

------------------------------ Output from print-system-state ------------------------------

LISP-IMPLEMENTATION-TYPE: International Allegro CL Trial Edition LISP-IMPLEMENTATION-VERSION: 7.0 [Windows] (Jul 21, 2006 17:02) MACHINE-TYPE: x86 MACHINE-VERSION: x86 SOFTWARE-TYPE: Microsoft Windows 98/Me and 2000/XP/Server 2003 SOFTWARE-VERSION: Generic SHORT-SITE-NAME: IL27-7496 PRESTOP: NIL CL-VERSION-TYPE: :FINAL CL-GENERATION-NUMBER: 1 *FEATURES*: :CL-PPCRE, :ASDF, :ALLEGRO-CL-TRIAL, :IDE, :COMMON-GRAPHICS, :ACL-SOCKET, :HIPER-SOCKET, :PROFILER, :MULTIPROCESSING, :FLAVORS, :LITTLE-ENDIAN, :GSGC, :COMPILER, :USE-STRUCTS-IN-COMPILER, :CLOS, :VERIFY-CAR-CDR, :DYNLOAD, :DLWIN, :X86, :MSWINDOWS, :MICROSOFT, :MICROSOFT-32, :ENCAPSULATING-EFS, :RELATIVE-PACKAGE-NAMES, :MODULE-VERSIONS, :IEEE, :IEEE-FLOATING-POINT, :CONFORMING-IEEE, :ICS, :COMMON-LISP, :ANSI-CL, :DRAFT-ANSI-CL-2, :X3J13, :ALLEGRO, :EXCL, :FRANZ-INC, :ALLEGRO-VERSION>=, :ALLEGRO-VERSION=, :OS-THREADS, :PROCESS7, :SYMBOL-VALUE-VECTOR, :DYNLOAD-ACL-LIBRARY, :ALLEGRO-V7.0, :SSL-SUPPORT. *MODULES*: "STREAMC", "ASDF", "efft-1252-base", "EF-1252", "efft-latin1-base", "efft-void", "efft-utf8-base", "IDE.INTRO", "IDE.NAVIGATOR", "IDE.FORM", "RES", "PE", "IDE.PROJECT", "IDE.INSPECTOR", "IDE.APROPOS", "IDE.TRACE", "IDE.CLASS-GRAPHER", "IDE.FIND-DEFINITIONS", "IDE.FIND-IN-FILES", "IDE.EDITOR", "IDE.GRAPHER", "IDE.CLASS-BROWSER", "IDE.CLIPBOARD", "IDE.KEYSHORT", "IDE.PACKAGE-LIST", "IDE.PATCH-DIALOG", "IDE.PROCESS-BROWSER", "IDE.WINDOW-LIST", "IDE.BASE", "IDE", "CG.GRID-WIDGET.DRAG-AND-DROP", "CG.PROPERTY", "CG.YES-NO-STRING", "CG.GRID-WIDGET", "CG.OUTLINE.EDIT-IN-PLACE", "CG.SAMPLE-FILE-MENU", "CG.PAREN-MATCHING", "CG.RICH-EDIT-PANE.CLIPBOARD", "CG.RICH-EDIT-PANE.PRINTING", "CG.RICH-EDIT", "CG.EDIT-IN-PLACE", "CG.STRING-DIALOG", "CG.MULTI-LINE-LISP-TEXT", "CG.TEXT-EDIT-PANE.FILE-IO", "CG.TEXT-EDIT-PANE.MARK", "CG.LISP-EDIT-PANE", "CG.RICH-EDIT-PANE", "CG.CHOOSE-PRINTER", "CG.DIRECTORY-DIALOG", "CG.MESSAGE-DIALOG", "CG.TEMPLATE-STRING", "CG.MULTI-LINE-EDITABLE-TEXT", "CG.LISP-TEXT", "CG.TEXT-EDIT-PANE", "CG.STATUS-BAR", "CG.CHOICE-LIST", "CG.FIND-STRING-DIALOG", "CG.MULTI-PICTURE-BUTTON.TOOLTIP", "CG.MULTI-PICTURE-BUTTON.DRAG-AND-DROP", "CG.DROPPING-OUTLINE", "CG.OUTLINE.DRAG-AND-DROP", "CG.PICTURE-WIDGET.PALETTE", "CG.UP-DOWN-CONTROL", "CG.STATIC-TEXT", "CG.EDITABLE-TEXT", "CG.LETTERED-MENU", "CG.WEB-BROWSER.DDE", "DDE", "CG.YES-NO-LIST", "CG.DRAWABLE.CLIPBOARD", "CG.MULTI-PICTURE-BUTTON", "CG.OUTLINE", "CG.PICTURE-WIDGET", "CG.HEADER-CONTROL", "CG.PROGRESS-INDICATOR", "CG.COMBO-BOX", "CG.LIST-VIEW", "CG.SCROLL-BAR", "CG.TRACKBAR", "CG.TAB-CONTROL", "CG.TEXT-WIDGET", "CG.BUTTON", "CG.CHECK-BOX", "CG.RADIO-BUTTON", "CG.SHORTCUT-MENU", "CG.MENU.TOOLTIP", "OLE-DEV", "OLECOMP", "OLE", "SHELLGUIDS", "FFCOMPAT", "CG.WEB-BROWSER", "CG.PIXMAP.PRINTING", "CG.CURSOR-PIXMAP", "CG.PROJECT-WINDOW", "CG.BITMAP-PANE.CLIPBOARD", "CG.PIXMAP-WIDGET", "CG.DRAWABLE", "CG.GROUP-BOX", "CG.TEXT-OR-COMBO", "CG.COMMON-CONTROL", "CG.ITEM-LIST", "CG.SCROLL-BAR-MIXIN", "CG.TOGGLING-WIDGET", "CG.MENU", "CG.CLIPBOARD.PIXMAP", "CG.CLIPBOARD-STACK", "CG.COMTAB", "CG.DRAG-AND-DROP-IMAGE", "CG.HOTSPOT", "CG.ICON-PIXMAP", "CG.TOOLTIP", "CG.TRAY", "CG.GESTURE-EMULATION", "CG.PIXMAP.FILE-IO", "CG.GET-PIXMAP", "CG.PIXMAP.ROTATE", "CG.FILL-TEXTURE", "CG.BITMAP-PANE", "CG.COLOR-DIALOG", "CG.DIRECTORY-DIALOG-OS", "CG.FILE-DIALOG", "CG.FONT-DIALOG", "CG.LISP-WIDGET", "CG.OS-WIDGET", "CG.MCI", "CG.KEYBOARD-SHORTCUTS", "CG.CARET", "CG.CLIPBOARD", "CG.CURVE", "CG.DRAG-AND-DROP", "CG.GET-POSITION", "CG.GRAPHICS-CONTEXT", "CG.ICON", "CG.PALETTE", "CG.SELECTED-OBJECT", "CG.TIMER", "CG.TOOLBAR", "CG.WRAP-STRING", "CG.OS-WINDOW", "CG.PIXMAP", "CG.PRINTING", "CG.SCALING-STREAM", "CG.BITMAP-STREAM", "CG.UTILITY-DIALOG", "CG.DIALOG-ITEM", "CG.WIN", "CG.BASE", "CG", "CG-DDE-UTILS", "EFMACS", "IORDEFS", "IODEFS", "WINAPI-DEV", "WINAPI", "DEVELENV", "URI", "MCOMBIN", "CONSTRUCTOR", "LOOP", "SOCKET", "SOCK", "DISASM", "DIS386", "INSPECT", "PROF-S", "PROF", "TRACE", "WALKER", "XREF-S", "XREF", "SCM", "EMACS", "ELI", "SOCK-S", "LZE", "LEP", "PROC2COMMON", "PROCESS", "COMPFTYPE", "DEFFTYPE", "FOREIGN", "FOREIGN-FUNCTIONS", "DEFSYSTEM", "DEFSYS", "DEFSYS-S", "TPL-PROC", "DEBUG", "TPL-DEBUG", "SRECORD", "REGEXP", "SAFESEQ", "SEQ2", "LIST2", "PROC2-S", "EXCL", "FOREIGN-S", "COMPILER", "COMPILER-S", "PPRINT", "TOPLEVEL", "COND", "FRAME", "IQFRAME", "ICS", "EF-UTF8", "EF-VOID", "EF-LATIN1", "EF-E-CRCRLF", "EF-E-CRLF", "EF-CRCRLF", "EF-CRLF". *CURRENT-CASE-MODE*: :CASE-INSENSITIVE-UPPER *PRINT-CASE*: :UPCASE *DUMPLISP-GENERATION-TICK*: 1 *DEFAULT-PATHNAME-DEFAULTS*: #P"C:\Program Files\acl70-trial\" *REQUIRE-SEARCH-LIST*: :FIRST, #P"sys:;code;.fasl", #P"sys:;private;.fasl", #P"sys:;clos;.fasl", #P"sys:;sys;.fasl", #P"sys:;winapi;.fasl", #P"sys:;ole;.fasl", (:LIB-BUNDLE #P"sys:;code;.fasl"), (:LIB-BUNDLE #P"sys:;private;.fasl"), (:LIB-BUNDLE #P"sys:;clos;.fasl"), (:LIB-BUNDLE #P"sys:;sys;.fasl"), (:LIB-BUNDLE #P"sys:;winapi;.fasl"), (:LIB-BUNDLE #P"sys:;ole;.fasl"). *AUTOLOAD-SEARCH-LIST*: :FIRST, #P"sys:;code;.fasl", #P"sys:;private;.fasl", #P"sys:;clos;.fasl", #P"sys:;sys;.fasl", #P"sys:;winapi;.fasl", #P"sys:;ole;.fasl", (:LIB-BUNDLE #P"sys:;code;.fasl"), (:LIB-BUNDLE #P"sys:;private;.fasl"), (:LIB-BUNDLE #P"sys:;clos;.fasl"), (:LIB-BUNDLE #P"sys:;sys;.fasl"), (:LIB-BUNDLE #P"sys:;winapi;.fasl"), (:LIB-BUNDLE #P"sys:;ole;.fasl"). *LOAD-SEARCH-LIST*: #P"", #P(:TYPE "fasl"), #P(:TYPE "cl"), #P(:TYPE "lisp"). *LOCALE*: #<locale "English_United States" [(:E-CRLF :1252-BASE)] @ #x206efdda> Command line arguments: "C:\Program Files\acl70-trial\allegro-ansi.exe" "-I" "C:\Program Files\acl70-trial\allegro-ansi.dxl" This Lisp expires in 23 days. The processor affinity mask is 1 Licensee: Damien Kick, Motorola The stored home location is C:\Program Files\acl70-trial. The scheduler has been started in this image. Current optimization qualities: ((SAFETY 1) (SPACE 1) (SPEED 1) (COMPILATION-SPEED 1) (DEBUG 2)) Current IDE patches: ide-form-02: "Form skeleton code generation was broken in open-files-in-gnu-emacs mode." ide-project-05: "Default Run Project standard output to IDE listener (not console)." ide-inspector-02: "Inspecting a stack frame in the IDE Inspector showed no info." ide-find-in-files-01: "Stop downcasing filenames in the Find In Files dialog." ide-editor-03: "Don't downcase filenames in editor or leave auto-selected buffer selected." al009-01: "The IDE could set the global value of *standard-output* to an IDE listener." al008-01: "IDE listener hang after error evaluating selected code above the prompt." al007-01: "The :pop top-level command in the IDE GUI process would exit lisp." al006-01: "Options dialog clipped its buttons when title-bar height is large." al005-01: "IDE prompt position confused after typing a space before the prompt." al004-01: "IDE editor breaks if you click on long line past column 1024." al003-01: "Two right-button menus could appear in the IDE for a multi-picture-button." al002-01: "Find Definitions did not find CG/IDE source in the right directory." al001-01: "An IDE listener evaluation trapped EOF errors in user code." Current CG patches: cg-grid-widget-01: "Resizing a grid-widget subsection with a sub-minimum-size sibling." cg-paren-matching-02: "The IDE editor colorized multiple escape symbol names as comments." cg-rich-edit-02: "Rich-edit-dialog .bil files from before 7.0 have a package glitch." cg-text-edit-pane-03: "Read-only on a standalone text-edit-pane returned the initial value." cg-status-bar-01: "A (non-common) status-bar arbitrarily converted newlines to spaces." cg-multi-picture-button-01: "Make multi-picture-buttons handle masked pixmaps." cg-outline-01: "No way to invoke on-change when click on an outline's currrent value." cg-list-view-02: "List-view auto-size truncated header if longer than all item strings." cg-tab-control-02: "Adding a widget to the current tab of a hidden tab-control left the widget exposed." cg-shortcut-menu-01: "Misplaced shortcut menus on a second monitor that uses negative coordinates." cg-web-browser-02: "Make invoke-private-html-browser work better with Firefox." cg-menu-02: "IDE Menu Editor could confuse unrelated menus." cg-os-widget-01: "Screen device-context glitch on a process switch at a precise moment." cg-printing-01: "A new double-sided option for printing." cg-dialog-item-06: "Explicitly changing the "available" property of a widget on a hidden tab-control tab." ak003-01: "An IDE exit error could occur after control-insert in the listener." ak002-01: "Option to not show the console on error in a debuggable CG standalone." ak001-01: "Child windows resized incorrectly when parent resizing turns on scrollbar." Current COMPILER patches: ab014-01: "Fix fasl file creation when *print-radix* is t." ab012-01: "Implement ignore declaration for functions." ab011-01: "[x86 only] Speed up immediate floats at high speeds." ab010-01: "Fix def-foreign-variable access compilation." ab009-01: "Fix multiply/accumulate bug on power 32-bit acchitectures." ab007-01: "Fix infinite macroexpansion of declare forms." ab006-01: "Fix a type propagation bug with ftype proclamations." ab005-01: "Fix package fasling on large indexed files." ab004-01: "Fix compilation of (symbol-function nil)." ab003-01: "Fix svref compilation with * element-type-declaration." ab002-01: "Fix modrem type propagation." ab001-01: "Extend fasl writer to allow for long constant lists." Current LISP-WITH-BUNDLE-UPDATE patches: aa012-01: "Shadow patch for code/ef-fat-le.fasl." aa011-01: "Shadow patch for code/ef-jvm-utf8.fasl" Current LISP patches: aa024-01: "Have user-homedir prefer HOMEDRIVE/HOMEPATH over HOME." aa023-01: "Add support for proper signalling of ssl errors." aa022-01: "Fix cached argument count when method is removed." aa021-02: "The contents of the previous version of this patch have been relocated to code/excl.002." aa020-01: "Support for streamp patch." aa019-01: "Fix method combination initialization." aa018-01: "Fix variable-information for specials when no env is given." aa017-01: "Fix make-instances-obsolete to retain specialized slot methods." aa013-01: "Fix dividing of a ratio by zero giving 0 rather than error." aa010-01: "Fix infinite macroexpansion of declare and simple-case forms." aa009-01: "Speedup native-to-string for efs :latin1-base and :octets." aa008-01: "Fix function spec handler for labels, flets,:internal." aa007-01: "Fix overzealous effective-slot-definition sharing." aa006-01: "Fix rational comparisons with infinities and NaNs." aa005-01: "Fix short and char arguments to foreign callbacks." aa004-01: "wild-pathname-p no longer considers ? and * wild, when part of a component." aa003-01: "Fix the pretty-printing of degenerate handler-case forms." [Not loaded: withdrawn patch] aa003-02: "This patch has been replaced by full-fasl patch code/pprint.fasl" [Not loaded: withdrawn patch] aa002-01: "Fix non-pretty tab printing." aa001-01: "Add `syntax' keyword argument to common-lisp:namestring." Current BUNDLE-VERSION-STAMP patches: aa012-01: "Shadow patch for code/ef-fat-le.fasl." aa011-01: "Shadow patch for code/ef-jvm-utf8.fasl" Current LISP-BUILDTIME-BUNDLE-VERSION-STAMP patches: aa012-01: "Shadow patch for code/ef-fat-le.fasl." aa011-01: "Shadow patch for code/ef-jvm-utf8.fasl" Current SYSTEM patches: olecomp-02: "v1: support for ole.001; v2: support for ole.002." ole-dev-02: "v1: support for ole.001; v2: support for ole.002." ole-02: "v1: extract lisp definitions from typelibs; v2: update to v1 patch." uri-01: "Make sure #u is defined properly." loop-02: "v1: remove unused variable warning for package iteration; v2: remove unused variable warnings for for-across iteration." sock-02: "v1: Preliminary IPv6 support; v2: make waiting for socket I/O more efficient." trace-01: "v1: Fix trace.fasl to no longer be dependent on changes to remhash." lep-01: "v1: support for i18n in xemacs." proc2common-05: "v1: fix mp:process-kill bug; v2: fix throwing to tag thread-kill bug; v3: thread resources exhaused fix; v4: improve thread accounting efficiency; v5: prevent process-interrupt of a terminated process corruption." compftype-01: "v1: Fix zero-extension bugs in Alpha 32-bit." defftype-02: "v1: Fix zero-extension bugs in Alpha 32-bit; v2: define :signed-nat & :unsigned-nat." debug-01: "v1: fix profiler for unknown C functions." proc2-s-02: "v1: fix mp:process-kill bug; v2: thread resources exhaused fix." proc2base-04: "v1: thread resources exhaused fix; v2: improve thread accounting efficiency; v3: clear clock queue on restart; v4: fix clock queue corruption." excl-02: "v1: support for improved blowfish support; v2: base64-encode-stream, support for another patch." init-02: "v1: internal change for mp patch; v2: sync for upcoming Trial release." init2-01: "v1: sync for upcoming Trial release." pprint-02: "v1: Fix pprint-dispatch for handler-case. v2: Fix pretty-printing in runtimes." aclstartup-02: "v1: make SSL work from init files; remove ACL_STARTUP_HOOK; v2: sync for upcoming Trial release." misc-02: "v1: Fix misc.fasl to no longer be dependent on changes to gethash; v2: support for aclstart.001/ssl.004" streamd-02: "v1: large file support. v2: fix :if-exists :append open option to be more robust." syscall-01: "Add option to run-shell-command for windows to not share file handles." filesys-01: "v1: support for large file support." reader-01: "Make sure #u is defined properly." hash-05: "v1: Fix maphash to work with other hash fcns on dirty hashtable. v2: Enhance cons hashing speed. v3: Enhance cons hash-code generation speed. v4: Enhance remhash performance. v5: Fix size calculation in make-hash-table." seq-01: "v1: Enhance remove-duplictes speed for simple calls." startup-03: "v1: sync for upcoming Trial release; v2: support for improved blowfish support; v3: exports for mime/send-letter w/attachments" Object file signatures: _ACLID_lisp_build_1500 IDE: 1.48.2.20.2.16 OLE: 3.2.6.2.26.8 CG: 1.54.2.17.2.12 WinAPI: 2.2.6.5.16.2 disass386: $Revision: 1.44.22.2 $ inspect: $Revision: 1.105.6.2 $ prof: $Revision: 2.118.6.4.2.1 $ trace: $Revision: 1.82.22.2.34.1 $ emacs: $Revision: 1.29 $ process: $Revision: 1.139 $ foreign: $Revision: 1.178.60.1 $ ffdyn: $Revision: 2.39.26.1 $ Presto fasl set:

---------------------------- Configuration Customizations ----------------------------

COLOR-FOR-CHARACTERS [default #S(RGB :RED 190 :GREEN 0 :BLUE 0)] --> #S(RGB :RED 190 :GREEN 0 :BLUE 0) COLOR-FOR-EXTERNAL-ALLEGRO-SYMBOLS [default #S(RGB :RED 128 :GREEN 0 :BLUE 128)] --> #S(RGB :RED 128 :GREEN 0 :BLUE 128) COLOR-FOR-EXTERNAL-CG-SYMBOLS [default #S(RGB :RED 200 :GREEN 100 :BLUE 0)] --> #S(RGB :RED 200 :GREEN 100 :BLUE 0) COLOR-FOR-EXTERNAL-CL-SYMBOLS [default #S(RGB :RED 0 :GREEN 0 :BLUE 180)] --> #S(RGB :RED 0 :GREEN 0 :BLUE 180) COLOR-FOR-GLOBAL-VARIABLES [default #S(RGB :RED 240 :GREEN 0 :BLUE 0)] --> #S(RGB :RED 240 :GREEN 0 :BLUE 0) COLOR-FOR-STRINGS [default #S(RGB :RED 190 :GREEN 0 :BLUE 0)] --> #S(RGB :RED 190 :GREEN 0 :BLUE 0) FIXED-FONT [default NIL] --> #.(MAKE-FONT-EX :MODERN "FixedSys" 13) PROPORTIONAL-FONT [default NIL] --> #.(MAKE-FONT-EX NIL "Tahoma / Default" 11) PATCH-REMINDER-PREVIOUS-TIME [default NIL] --> 3362507987

-------------------------------------------