Cusomtizing *print-case* Breaks Restarts about vlime

[phmarek]

Sorry about the delay - will try to reproduce and fix, but it may take some time.

[phmarek]

Would you please try and patch the line https://github.com/vlime/vlime/blob/master/vim/autoload/vlime/ui/sldb.vim#L505 so that the RESTARTABLE is lower-case?

That should do the trick.

[charJe]

It is still not working <CR> just opens a window with sbcl/src/code/eval.lisp line 160.

[charJe]

It still works work with :upcase. I may not have reloaded the sldb.vim correctly; I used :w | so %.

[phmarek]

Well, quite a lot of functions get stored in a dictionary for the connection and called from there - so reloading a single file won't work.

You could try reconnecting -- but restarting the editor is the easiest way, usually.

[charJe]

Alright I think I am loading the plugin correctly (using set runtimepath^=/home/charles/vlime/vim in .vimrc). I confirm that changing the RESTARTABLE to lowercase does NOT change the behavior in any way for me.

[phmarek]

Please try 30363fe, I could successfully compile a function and restart it.

[charJe]

I tried that. When I connect to the server or evaluate some code that would invoke the debugger I get the following errors in vim:

line 3:
E117: Unknown function: vlime#SymbolName
E116: Invalid arguments for function toupper(vlime#SymbolName(msg_type)), v:null)
E116: Invalid arguments for function get(self.server_event_handlers, toupper(vlime#SymbolName(msg_type)), v:null)
line 4:
E121: Undefined variable: Handler
E116: Invalid arguments for function type(Handler) == v:t_func

[phmarek]

Sorry about that... I'm using the json-branch and can't test non-json any more, my FASLs conflict all the time.

What about 6e410e0? Please try that one.
Thank you for your patience!

[charJe]

Applying this patch to 6e410e0 works. I think the main thing was that the regex was only looking for restarts that were all upper case.
0001-Search-for-restarts-that-might-be-lowercase-due-to-p.txt

From 6cd927316623213e87cb64759e6c818b0829944b Mon Sep 17 00:00:00 2001
From: Charles Jackson <[email protected]>
Date: Wed, 20 Sep 2023 19:12:56 -0500
Subject: [PATCH] Search for restarts that might be lowercase due to
 *print-case*

---
 vim/autoload/vlime.vim         | 4 ++--
 vim/autoload/vlime/ui/sldb.vim | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/vim/autoload/vlime.vim b/vim/autoload/vlime.vim
index abdb7d9..9f06fec 100644
--- a/vim/autoload/vlime.vim
+++ b/vim/autoload/vlime.vim
@@ -1377,7 +1377,7 @@ endfunction
 function! vlime#OnServerEvent(chan, msg) dict
     let msg_type = a:msg[0]
     " Accomodate *PRINT-CASE*
-    let Handler = get(self.server_event_handlers, toupper(msg_type), v:null)
+    let Handler = vlime#Get(self.server_event_handlers, msg_type['name'], v:null)
     if type(Handler) == v:t_func
         call Handler(self, a:msg)
     elseif get(g:, '_vlime_debug', v:false)
@@ -1849,7 +1849,7 @@ function! vlime#KeywordList2Dict(input)
     if type(a:input) == v:t_list
         let dct = {}
         for el in a:input
-            if type(el) == v:t_list && type(el[0]) == v:t_dict && el[0]["package"] == 'KEYWORD'
+            if type(el) == v:t_list && type(el[0]) == v:t_dict && (el[0]["package"] == 'KEYWORD' || el[0]["package"] == 'keyword')
                 let dct[ el[0]["name"] ] = el[1]
             endif
         endfor
diff --git a/vim/autoload/vlime/ui/sldb.vim b/vim/autoload/vlime/ui/sldb.vim
index 8d00341..b1d2465 100644
--- a/vim/autoload/vlime/ui/sldb.vim
+++ b/vim/autoload/vlime/ui/sldb.vim
@@ -340,7 +340,7 @@ endfunction
 function! s:MatchRestart()
     let line = getline('.')
     let matches = matchlist(line,
-                \ '\v^  R\s+([0-9]+)\.\s+\*?[A-Z\-]+\s+-\s.+$')
+                \ '\v^  R\s+([0-9]+)\.\s+\*?[a-zA-Z\-]+\s+-\s.+$')
     return (len(matches) > 0) ? (matches[1] + 0) : -1
 endfunction
 
-- 
2.34.1

[phmarek]

Thanks, got it as 2d2192e.