"Search Files" exception when no "In Folder" specified

[ddp]

Leaving the "In Folder:" field blank in "Tools" > "Search Files..." results in the following (1.3):

* Error in event process: Array index -1 out of bounds for "" .

(442A48) : 0 (FUNCALL #'#<(:INTERNAL GUI::sendEvent:?|)> #<SIMPLE-ERROR #x300041B6B09D>) 149

(#:G5207)

#:G5207: #<SIMPLE-ERROR #x300041B6B09D>

#:COMPILER-VAR: (NIL) #:G5204: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF950>

(442A70) : 1 (SIGNAL #<SIMPLE-ERROR #x300041B6B09D>) 981

(CONDITION &REST CCL::ARGS)

CONDITION: #<SIMPLE-ERROR #x300041B6B09D> CCL::ARGS: NIL

CCL::%HANDLERS%: ((ERROR) (ERROR)) CCL::TAG: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x493DBF>) CCL::HANDLERS: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x493DBF>)

CCL::FN: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::sendEvent:?|) #x493DBF>

(442AC8) : 2 (%ERROR #<SIMPLE-ERROR #x300041B6B09D> (-1 "") 558468) 117

(CONDITION CCL::ARGS CCL::ERROR-POINTER)

CONDITION: #<SIMPLE-ERROR #x300041B6B09D> CCL::ARGS: (-1 "") CCL::ERROR-POINTER: 558468

(442AF0) : 3 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 2485

NIL

CCL::FRAME-PTR: 558468 CCL::FN: #<METHOD-FUNCTION GUI::GET-FULL-DIR-STRING (STRING)> CCL::OP0: 205 CCL::OP1: 200 CCL::OP2: 103 CCL::SKIP: 3 CCL::XP: #<A Foreign Pointer #x7FFF5FBFF660> CCL::XCF: #<A Foreign Pointer #x442C20>

(442B40) : 4 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493CCF>) 181

(CCL::THUNK)

CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493CCF>

COUNT: 0 CCL::*ERROR-REENTRY-COUNT*: 0

(442B80) : 5 (FUNCALL #'#<CCL::%XERR-DISP> 17591849975238) 493

(#:G129179)

#:G129179: 17591849975238

#:G129189: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFEE30> CCL::XP: #<A Foreign Pointer #x7FFF5FBFF660> CCL::XCF: #<A Foreign Pointer #x442C20> #:G129190: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x493CCF>

(442BB8) : 6 (%PASCAL-FUNCTIONS% 2 17591849975238) 397

(CCL::INDEX CCL::ARGS-PTR-FIXNUM)

CCL::INDEX: 2 CCL::ARGS-PTR-FIXNUM: 17591849975238

CCL::LISP-FUNCTION: #<Compiled-function CCL::%XERR-DISP (Non-Global) #x3000405E1CCF> WITHOUT-INTERRUPTS: NIL CCL::*CALLBACK-TRACE-P*: NIL

*(442C20) : 8 (FUNCALL #'#<#<STANDARD-METHOD GUI::GET-FULL-DIR-STRING (STRING)>> "") 109

(GUI::STR)

GUI::STR: ""

GUI::RET: ""

(442C80) : 9 (FUNCALL #'#<#<STANDARD-METHOD GUI::GET-FULL-DIR-STRING (NS:NS-STRING)>> #<NS-MUTABLE-STRING "" (#x7FFF70218220)>) 85

(GUI::NSSTRING)

GUI::NSSTRING: #<NS-MUTABLE-STRING "" (#x7FFF70218220)>

(442CA0) : 10 (FUNCALL #'#<(:INTERNAL GUI::doSearch?|)>) 261

NIL

#:G32960: #<SEARCH-FILES-WINDOW-CONTROLLER <SearchFilesWindowController: 0x16ea1af0> (#x16EA1AF0)> GUI::FIND-NSTR: #<NS-MUTABLE-STRING "forge" (#x16EF3C10)> GUI::FOLDER-NSTR: #<NS-MUTABLE-STRING "" (#x7FFF70218220)> GUI::FILE-NAME-NSTR: #<NS-CONSTANT-STRING "*.lisp" (#x1A0480)> GUI::WC: #<SEARCH-FILES-WINDOW-CONTROLLER <SearchFilesWindowController: 0x16ea1af0> (#x16EA1AF0)>

(442CD8) : 11 (HANDLE-INVOKING-LISP-FUNCTION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::doSearch?|) #x300041B6B8DF> NIL NIL #<APPKIT-PROCESS Initial(0) [Active] #x3000404AFE4D>) 605

(GUI::THUNK GUI::RESULT-HANDLER GUI::CONTEXT &OPTIONAL GUI::INVOKING-PROCESS)

GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::doSearch?|) #x300041B6B8DF>

GUI::RESULT-HANDLER: NIL GUI::CONTEXT: NIL GUI::INVOKING-PROCESS: #<APPKIT-PROCESS Initial(0) [Active] #x3000404AFE4D>

GUI::*INVOKING-EVENT-PROCESS*: #<APPKIT-PROCESS Initial(0) [Active] #x3000404AFE4D> GUI::*INVOKING-EVENT-CONTEXT*: NIL

(442D48) : 12 (FUNCALL #'#<#<STANDARD-METHOD GUI::INVOKE-LISP-FUNCTION (NS:NS-APPLICATION T)>> #<LISP-APPLICATION <LispApplication: 0x1be5d0> (#x1BE5D0)> 1) 357

(GUI::SELF GUI::ID)

GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x1be5d0> (#x1BE5D0)> GUI::ID: 1

#:WHOLE5114: (#<COMPILED-LEXICAL-CLOSURE # #x300041B6B8DF> NIL NIL . #<APPKIT-PROCESS Initial(0) [Active] #x3000404AFE4D>) #:ARGS5115: #<CCL::DESTRUCTURE-STATE #x493D2D>

GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::doSearch?|) #x300041B6B8DF>

GUI::RESULT-HANDLER: NIL GUI::CONTEXT: NIL #:REST5116: #<APPKIT-PROCESS Initial(0) [Active] #x3000404AFE4D>

(442DA0) : 13 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|> 17591849975594) 1037

(#:G5203)

#:G5203: 17591849975594

#:G5219: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF950> #:G5204: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFF950> #:COMPILER-VAR: (NIL)

#:G5209: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::sendEvent:?|) #x493DBF>

#:G5220: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #x493DBF>) CCL::%HANDLERS%: ((CONDITION #) (ERROR)) GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x1be5d0> (#x1BE5D0)> GUI::_CMD: #<A Foreign Pointer #x7FFF823B6D48> GUI::E: #<NS-EVENT NSEvent: type=AppDefined? loc=(0,0) time=0.0 flags=0 win=0x0 winNum=0 ctxt=0x0 subtype=17 data1=1 data2=0 (#x18D0CF10)>

(442E10) : 14 (%PASCAL-FUNCTIONS% 14 17591849975594) 397

(CCL::INDEX CCL::ARGS-PTR-FIXNUM)

CCL::INDEX: 14 CCL::ARGS-PTR-FIXNUM: 17591849975594

CCL::LISP-FUNCTION: #<Compiled-function GUI::sendEvent:?| (Non-Global) #x30004141353F>

WITHOUT-INTERRUPTS: NIL CCL::*CALLBACK-TRACE-P*: NIL

(442ED0) : 16 (FUNCALL #'#<Anonymous Function #x30004132E96F> #<LISP-APPLICATION <LispApplication: 0x1be5d0> (#x1BE5D0)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF8246DD68>)) 205

(#:G2814 #:G2815)

#:G2814: #<LISP-APPLICATION <LispApplication: 0x1be5d0> (#x1BE5D0)> #:G2815: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF8246DD68>)

(442EF0) : 17 (FUNCALL #'#<(:INTERNAL CCL::SEND-UNAMBIGUOUS-MESSAGE (SHARED-INITIALIZE :AFTER (CCL::OBJC-DISPATCH-FUNCTION T)))> #<LISP-APPLICATION <LispApplication: 0x1be5d0> (#x1BE5D0)>) 533

(CCL::RECEIVER &REST CCL::ARGS)

CCL::RECEIVER: #<LISP-APPLICATION <LispApplication: 0x1be5d0> (#x1BE5D0)> CCL::ARGS: NIL

CCL::SELECTOR: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF8246DD68>) FUNCTION: #<Anonymous Function #x30004132E96F>

(442F30) : 18 (EVENT-LOOP NIL) 389

(&OPTIONAL GUI::END-TEST)

GUI::END-TEST: NIL

GUI::APP: #<LISP-APPLICATION <LispApplication: 0x1be5d0> (#x1BE5D0)> *BREAK-ON-ERRORS*: NIL #:G7036: (ERROR) CCL::%HANDLERS%: ((ERROR)) GUI::*EVENT-PROCESS-REPORTED-CONDITIONS*: (#<SIMPLE-ERROR #x300041B6B09D>)

(442FA8) : 19 (RUN-EVENT-LOOP) 117

NIL

[jaj]

Reassigned to jaj. Fixed while working on Search files improvements. Leaving it open until checked in.

[gz]

This got fixed by disabling the search button when the folder is blank