Re: [STUMP] [STUMPWM] [PATCH] fuzzy autocompletion for input

[Ben Spencer]

On Mon, Oct 4, 2010 at 3:56 AM, Evgeny <address@hidden> wrote:
> Here is update, I just did a little code refactoring.

Hi,

This new version gives me errors under certain circumstances, see
backtrace below.  The previous version seemed to work fine.  This is
under CCL 1.5-dev-r13281M-trunk.


 (7F88044CFF48) : 1 (PRINT-BACKTRACE 100) 149
 (7F88044CFF68) : 2 (BACKTRACE-STRING) 189
 (7F88044CFFC0) : 3 (FUNCALL #'#<(:INTERNAL STUMPWM::EVAL-COMMAND)>
#<SIMPLE-ERROR #x302002A493DD>) 93
 (7F88044D0008) : 4 (SIGNAL #<SIMPLE-ERROR #x302002A493DD>) 981
 (7F88044D0060) : 5 (%ERROR #<SIMPLE-ERROR #x302002A493DD> (1 "a")
17527770554423) 117
 (7F88044D0088) : 6 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 2733
 (7F88044D00D8) : 7 (FUNCALL-WITH-ERROR-REENTRY-DETECTION
#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)
#x7F8805D57B0F>) 181
 (7F88044D0118) : 8 (FUNCALL #'#<CCL::%XERR-DISP> 17527770867698) 557
 (7F88044D0150) : 9 (%PASCAL-FUNCTIONS% 2 17527770867698) 397
*(7F88044D01B8) : 10 (FUNCALL #'#<(:INTERNAL STUMPWM::%DISTANCE
STUMPWM::FUZZY-MATCH)> "a" 1 1 "abort-iresize" 6 13) 149
 (7F88044D0268) : 11 (FUNCALL #'#<(:INTERNAL STUMPWM::DISTANCE
STUMPWM::FUZZY-MATCH)> "a" "abort-iresize") 1141
 (7F88044D02F0) : 12 (FUZZY-MATCH "a" "abort-iresize") 37
 (7F88044D0310) : 13 (INPUT-FIND-COMPLETIONS/FUZZY "a" ("abort"
"abort-iresize" "balance-frames" "banish" "bind" ...)) 805
 (7F88044D0368) : 14 (INPUT-FIND-COMPLETIONS "a" ("abort"
"abort-iresize" "balance-frames" "banish" "bind" ...)) 477
 (7F88044D03A0) : 15 (INPUT-COMPLETE #S(STUMPWM::INPUT-LINE :STRING
"a" :POSITION 1 ...) :FORWARD) 397
 (7F88044D03C0) : 16 (INPUT-COMPLETE-FORWARD #S(STUMPWM::INPUT-LINE
:STRING "a" :POSITION 1 ...) #S(STUMPWM::KEY :KEYSYM 65289 :SHIFT NIL
...)) 69
 (7F88044D03E8) : 17 (FUNCALL #'#<(:INTERNAL STUMPWM::PROCESS-KEY
STUMPWM::PROCESS-INPUT)> 23 0) 189
 (7F88044D0420) : 18 (PROCESS-INPUT #S<screen #<SCREEN :0.0
1280x800x24 TRUE-COLOR>> ": " #S(STUMPWM::INPUT-LINE :STRING "a"
:POSITION 1 ...) 23 0) 61
 (7F88044D0458) : 19 (FUNCALL #'#<(:INTERNAL STUMPWM::KEY-LOOP
READ-ONE-LINE)>) 549
 (7F88044D0490) : 20 (READ-ONE-LINE #S<screen #<SCREEN :0.0
1280x800x24 TRUE-COLOR>> ": " :INITIAL-INPUT "" :REQUIRE-MATCH T) 621
 (7F88044D0560) : 21 (COMPLETING-READ #S<screen #<SCREEN :0.0
1280x800x24 TRUE-COLOR>> ": " ("abort" "abort-iresize"
"balance-frames" "banish" "bind" ...) :INITIAL-INPUT "" :REQUIRE-MATCH
T) 597
 (7F88044D0608) : 22 (COLON NIL) 213
 (7F88044D0648) : 23 (CALL-INTERACTIVELY "colon"
#S(STUMPWM::ARGUMENT-LINE :STRING "colon" :START 6)) 2197
 (7F88044D0698) : 24 (FUNCALL #'#<(:INTERNAL
STUMPWM::PARSE-AND-RUN-COMMAND STUMPWM::EVAL-COMMAND)> "colon") 181
 (7F88044D06E8) : 25 (EVAL-COMMAND "colon" T) 573
 (7F88044D0758) : 26 (FUNCALL #'#<#:G68068> :DISPLAY #<DISPLAY :0 (The
X.Org Foundation R10707000)> :EVENT-KEY :KEY-PRESS :EVENT-CODE 2
:SEND-EVENT-P NIL :CODE 38 :SEQUENCE 50668 :TIME 111941174 :ROOT
#<WINDOW :0 104> :WINDOW #<WINDOW :0 1000012> :EVENT-WINDOW #<WINDOW
:0 1000012> :CHILD #<WINDOW :0 100002F> :ROOT-X 737 :ROOT-Y 280 :X 733
:Y 279 :STATE 4 :SAME-SCREEN-P T) 389
 (7F88044D07A0) : 27 (HANDLE-EVENT :DISPLAY #<DISPLAY :0 (The X.Org
Foundation R10707000)> :EVENT-KEY :KEY-PRESS :EVENT-CODE 2
:SEND-EVENT-P NIL :CODE 38 :SEQUENCE 50668 :TIME 111941174 :ROOT
#<WINDOW :0 104> :WINDOW #<WINDOW :0 1000012> :EVENT-WINDOW #<WINDOW
:0 1000012> :CHILD #<WINDOW :0 100002F> :ROOT-X 737 :ROOT-Y 280 :X 733
:Y 279 :STATE 4 :SAME-SCREEN-P T) 877
 (7F88044D0838) : 28 (PROCESS-EVENT #<DISPLAY :0 (The X.Org Foundation
R10707000)> :HANDLER #<Compiled-function STUMPWM::HANDLE-EVENT
#x3020026023CF> :TIMEOUT NIL :PEEK-P NIL :DISCARD-P NIL
:FORCE-OUTPUT-P T) 1309
 (7F88044D0988) : 29 (FUNCALL #'#<STUMPWM::STUMPWM-INTERNAL-LOOP>) 709
 (7F88044D09C0) : 30 (FUNCALL #'#<STUMPWM::STUMPWM-INTERNAL> ":0.0") 3509
 (7F88044D0A68) : 31 (FUNCALL #'#<STUMPWM> ":0.0") 165
 (7F88044D0A88) : 32 (CALL-CHECK-REGS STUMPWM) 229
 (7F88044D0AC0) : 33 (TOPLEVEL-EVAL (STUMPWM) NIL) 717
 (7F88044D0B68) : 34 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to
*TERMINAL-IO* #x30200097C9BD> :OUTPUT-STREAM #<SYNONYM-STREAM to
*TERMINAL-IO* #x30200097C85D> :BREAK-LEVEL 0 :PROMPT-FUNCTION
#<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)
#x300000660E1F>) 2317
 (7F88044D0DC8) : 35 (TOPLEVEL-LOOP) 109
 (7F88044D0DF8) : 36 (FUNCALL #'#<(:INTERNAL (CCL:TOPLEVEL-FUNCTION
(CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 117
 (7F88044D0E18) : 37 (FUNCALL #'#<(:INTERNAL
CCL::MAKE-MCL-LISTENER-PROCESS)>) 645
 (7F88044D0EB0) : 38 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER
listener(1) [Active] #x30200097B89D> (#<CCL:COMPILED-LEXICAL-CLOSURE #
#x30200097B2BF>)) 725
 (7F88044D0F48) : 39 (FUNCALL #'#<(:INTERNAL
(CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS)))> #<TTY-LISTENER
listener(1) [Active] #x30200097B89D> (#<CCL:COMPILED-LEXICAL-CLOSURE #
#x30200097B2BF>)) 389
 (7F88044D0F98) : 40 (FUNCALL #'#<(:INTERNAL
CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 301