<?xml version="1.0"?>
<paste-with-annotations>
  <paste>
    <number>
      <integer>60588</integer>
    </number>
    <user>
      <string>EvilSporkMan</string>
    </user>
    <title>
      <string>Error on running mode-line</string>
    </title>
    <contents>
      <string>Just pulled latest git and did ; reload. I'm running CLISP...

ENDP: A proper list must not end with #&lt;XLIB:WINDOW CLOSED-DISPLAY #x00C00001 #x000334447630&gt;

&lt;1/183&gt; #&lt;SYSTEM-FUNCTION SHOW-STACK&gt; 3
&lt;2/179&gt; #&lt;COMPILED-FUNCTION STUMPWM::PRINT-BACKTRACE&gt;
[178] unwind-protect frame
- #&lt;COMPILED-FUNCTION STUMPWM::BACKTRACE-STRING&gt;
&lt;3/172&gt; #&lt;COMPILED-FUNCTION STUMPWM::BACKTRACE-STRING&gt;
- :TOP-LEVEL
- #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-1-1&gt;
&lt;4/168&gt; #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-1-1&gt;
- #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-1-1&gt;
- #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP&gt;
&lt;5/164&gt; #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP&gt;
- #&lt;SIMPLE-TYPE-ERROR #x000334482D90&gt;
&lt;6/159&gt; #&lt;SYSTEM-FUNCTION SIGNAL&gt; 1
[158] frame binding variables (~ = dynamically):
  | ~ *PRINT-READABLY* &lt;--&gt; NIL
- #&lt;SIMPLE-TYPE-ERROR #x000334482D90&gt;
&lt;7/152&gt; #&lt;SYSTEM-FUNCTION ENDP&gt;
- NIL
- #&lt;COMPILED-FUNCTION STUMPWM::FMT-URGENT-WINDOW-LIST&gt;
&lt;8/147&gt; #&lt;COMPILED-FUNCTION STUMPWM::FMT-URGENT-WINDOW-LIST&gt;
- STUMPWM::FMT-URGENT-WINDOW-LIST
- STUMPWM::FMT-URGENT-WINDOW-LIST
- NIL
- &quot; | BAT: 89% CPU: ^[  5%^]   | &quot;
- #&lt;COMPILED-FUNCTION STUMPWM::FORMAT-EXPAND&gt;
- &quot; | %b %c %t | %u&quot;
&lt;9/137&gt; #&lt;COMPILED-FUNCTION STUMPWM::FORMAT-EXPAND&gt;
- STUMPWM::FORMAT-EXPAND
- &quot; | %b %c %t | %u&quot;
&lt;10/132&gt; #&lt;COMPILED-FUNCTION #:|282 284 (DEFMETHOD MODE-LINE-FORMAT-ELT (#) ...)-42-1-1|&gt;
&lt;11/132&gt; #&lt;STANDARD-GENERIC-FUNCTION STUMPWM::MODE-LINE-FORMAT-ELT&gt;
- (&quot;Sun May 11 09:29:53 PDT 2008&quot;)
- STUMPWM::MODE-LINE-FORMAT-ELT
&lt;12/129&gt; #&lt;SYSTEM-FUNCTION MAPCAR&gt;
- CONCATENATE
- #(NIL ((:EVAL (STUMPWM:RUN-SHELL-COMMAND &quot;date | tr -d [:cntrl:]&quot; T)) &quot; | %b %c %t | %u&quot;))
- ((:EVAL (STUMPWM:RUN-SHELL-COMMAND &quot;date | tr -d [:cntrl:]&quot; T)) &quot; | %b %c %t | %u&quot;)
&lt;13/122&gt; #&lt;COMPILED-FUNCTION #:|298 310 (DEFMETHOD MODE-LINE-FORMAT-ELT (#) ...)-45-1-1|&gt;
&lt;14/122&gt; #&lt;STANDARD-GENERIC-FUNCTION STUMPWM::MODE-LINE-FORMAT-ELT&gt;
- #&lt;COMPILED-FUNCTION #:|286 293 (DEFMETHOD MODE-LINE-FORMAT-ELT (#) ...)-43-1-1|&gt;
&lt;15/119&gt; #&lt;COMPILED-FUNCTION #:|286 293 (DEFMETHOD MODE-LINE-FORMAT-ELT (#) ...)-43-1-1|&gt;
&lt;16/119&gt; #&lt;STANDARD-GENERIC-FUNCTION STUMPWM::MODE-LINE-FORMAT-ELT&gt;
- #&lt;COMPILED-FUNCTION STUMPWM::MODE-LINE-FORMAT-STRING&gt;
&lt;17/117&gt; #&lt;COMPILED-FUNCTION STUMPWM::MODE-LINE-FORMAT-STRING&gt;
[116] frame binding variables (~ = dynamically):
  | ~ STUMPWM::*CURRENT-MODE-LINE-FORMATTER-ARGS* &lt;--&gt; NIL
- #&lt;COMPILED-FUNCTION STUMPWM::REDRAW-MODE-LINE&gt;
- 
#S(STUMPWM::MODE-LINE :SCREEN #S&lt;screen #&lt;XLIB:SCREEN #x000334447488&gt;&gt; :HEAD #S(frame 0 NIL 0 0 1280 800)
   :WINDOW #&lt;XLIB:WINDOW 1278x17+0+0 localhost #x00C00042 #x00033445EF20&gt; :FORMAT STUMPWM:*SCREEN-MODE-LINE-FORMAT* :POSITION :TOP :CONTENTS NIL
   :CC
   #S(STUMPWM::CCONTEXT :WIN #&lt;XLIB:WINDOW 1278x17+0+0 localhost #x00C00042 #x00033445EF20&gt; :GC #&lt;XLIB:GCONTEXT #x00033445F1A8&gt; :DEFAULT-FG 8355711
      :DEFAULT-BRIGHT 12566463 :DEFAULT-BG 3355443)
   :HEIGHT 19 :FACTOR 781/800 :MODE :STUMP)
&lt;18/109&gt; #&lt;COMPILED-FUNCTION STUMPWM::REDRAW-MODE-LINE&gt;
- #S(frame 0 NIL 0 0 1280 800)
- #&lt;COMPILED-FUNCTION STUMPWM::UPDATE-MODE-LINES&gt;
&lt;19/103&gt; #&lt;COMPILED-FUNCTION STUMPWM::UPDATE-MODE-LINES&gt;
- (#S&lt;screen #&lt;XLIB:SCREEN #x000334447488&gt;&gt;)
- STUMPWM::UPDATE-MODE-LINES
&lt;20/101&gt; #&lt;SYSTEM-FUNCTION MAPC&gt;
&lt;21/98&gt; #&lt;COMPILED-FUNCTION STUMPWM::UPDATE-ALL-MODE-LINES&gt;
- T
- #(NIL &quot;colon&quot;)
- &quot;colon&quot;
&lt;22/94&gt; #&lt;COMPILED-FUNCTION STUMPWM::INTERACTIVE-COMMAND&gt;
- &quot;colon&quot;
- 0
- 
(:DISPLAY #&lt;XLIB:DISPLAY localhost:0 (The X.Org Foundation R10400090) X11.0 #x000334447358&gt; :EVENT-CODE 2 :SEND-EVENT-P NIL :SEQUENCE 4795 :EVENT-KEY
 :KEY-PRESS :CODE 115 :WINDOW #&lt;XLIB:WINDOW 1278x798+0+0 localhost #x00E001F4 #x00033444ED88&gt; :EVENT-WINDOW
 #&lt;XLIB:WINDOW 1278x798+0+0 localhost #x00E001F4 #x00033444ED88&gt; :CHILD #&lt;XLIB:WINDOW 1099x635+150+75 localhost #x00E00EF5 #x000334452778&gt; :ROOT
 #&lt;XLIB:WINDOW 1280x800+0+0 localhost #x00000068 #x0003344474B8&gt; :X 669 :Y 408 :ROOT-X 670 :ROOT-Y 409 :STATE 0 :TIME 1227976 :SAME-SCREEN-P T)
&lt;23/90&gt; #&lt;COMPILED-FUNCTION #:G74962&gt;
[86] frame binding variables (~ = dynamically):
  | ~ SYSTEM::*ACTIVE-RESTARTS* &lt;--&gt; 
(#S(RESTART :NAME STUMPWM::QUIT-STUMPWM :TEST #&lt;COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST&gt; :INVOKE-TAG #:SIMPLE-RESTART-82110 :INVOKE-FUNCTION NIL
    :REPORT #&lt;FUNCTION :LAMBDA (STREAM) (FORMAT STREAM &quot;Quit Stumpwm&quot;)&gt; :INTERACTIVE #&lt;COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE&gt;
    :MEANINGFULP T))
- #&lt;COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-2&gt;
&lt;24/79&gt; #&lt;COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-2&gt;
[78] handler frame for conditions (OR XLIB:WINDOW-ERROR XLIB:DRAWABLE-ERROR)
- #&lt;COMPILED-FUNCTION STUMPWM::HANDLE-EVENT-1&gt;
- 99
- 
#(#(NIL
    (:DISPLAY #&lt;XLIB:DISPLAY localhost:0 (The X.Org Foundation R10400090) X11.0 #x000334447358&gt; :EVENT-CODE 2 :SEND-EVENT-P NIL :SEQUENCE 4795 :EVENT-KEY
     :KEY-PRESS :CODE 115 :WINDOW #&lt;XLIB:WINDOW 1278x798+0+0 localhost #x00E001F4 #x00033444ED88&gt; :EVENT-WINDOW
     #&lt;XLIB:WINDOW 1278x798+0+0 localhost #x00E001F4 #x00033444ED88&gt; :CHILD #&lt;XLIB:WINDOW 1099x635+150+75 localhost #x00E00EF5 #x000334452778&gt; :ROOT
     #&lt;XLIB:WINDOW 1280x800+0+0 localhost #x00000068 #x0003344474B8&gt; :X 669 :Y 408 :ROOT-X 670 :ROOT-Y 409 :STATE 0 :TIME 1227976 :SAME-SCREEN-P T))
  #&lt;COMPILED-FUNCTION #:G74962&gt;)
- #&lt;COMPILED-FUNCTION STUMPWM::HANDLE-EVENT&gt;
- #&lt;XLIB:DISPLAY localhost:0 (The X.Org Foundation R10400090) X11.0 #x000334447358&gt;
&lt;25/64&gt; #&lt;COMPILED-FUNCTION STUMPWM::HANDLE-EVENT&gt;
- #&lt;UNBOUND&gt;
- #&lt;UNBOUND&gt;
- #&lt;COMPILED-FUNCTION STUMPWM::HANDLE-EVENT&gt;
&lt;26/61&gt; #&lt;ADD-ON-SYSTEM-FUNCTION XLIB:PROCESS-EVENT&gt; 2
- 1
- #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-2&gt;
&lt;27/52&gt; #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-2&gt;
[51] handler frame for conditions ERROR
- #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP-1&gt;
&lt;28/44&gt; #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL-LOOP&gt;
[44] frame binding variables (~ = dynamically):
  | ~ *PACKAGE* &lt;--&gt; #&lt;PACKAGE COMMON-LISP-USER&gt;
[39] frame binding variables (~ = dynamically):
  | ~ SYSTEM::*ACTIVE-RESTARTS* &lt;--&gt; NIL
- #(NIL &quot;&quot;)
- NIL
- &quot;&quot;
- &quot;:0&quot;
&lt;29/27&gt; #&lt;COMPILED-FUNCTION STUMPWM::STUMPWM-INTERNAL&gt;
- #&lt;COMPILED-FUNCTION STUMPWM:STUMPWM&gt;
&lt;30/22&gt; #&lt;COMPILED-FUNCTION STUMPWM:STUMPWM&gt;
- #&lt;COMPILED-FUNCTION STUMPWM:STUMPWM&gt;
- ((QUIT))
[10] frame binding variables #&lt;FRAME-POINTER 10&gt; binds (~ = dynamically):
  Next environment: NIL
&lt;31/4&gt; #&lt;FUNCTION :LAMBDA NIL (STUMPWM:STUMPWM) (QUIT)&gt; 0
- #&lt;FUNCTION :LAMBDA NIL (STUMPWM:STUMPWM) (QUIT)&gt;
&lt;32/2&gt; #&lt;COMPILED-FUNCTION EXT::SAVEINITMEM-1&gt;
&lt;33/3&gt; #&lt;SYSTEM-FUNCTION SYSTEM::DRIVER&gt;
&lt;34/3&gt; #&lt;SYSTEM-FUNCTION SYSTEM::DRIVER&gt;
- #&lt;ADDRESS #x000000000000&gt;
- #&lt;ADDRESS #x000000000000&gt;
</string>
    </contents>
    <universal-time>
      <integer>3419512260</integer>
    </universal-time>
    <channel>
      <string>#stumpwm</string>
    </channel>
    <colorization-mode>
      <string></string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <keyword>TRUE</keyword>
    </is-unicode>
  </paste>
</paste-with-annotations>