From df9b3c8049545694a11b1c7d85e48739d1eb55be Mon Sep 17 00:00:00 2001 From: troydm Date: Sat, 2 Jan 2021 18:00:11 +0200 Subject: [PATCH 1/2] jsonrpc transport tcp quickloading workaround fix --- roswell/cl-lsp.ros | 3 +++ 1 file changed, 3 insertions(+) diff --git a/roswell/cl-lsp.ros b/roswell/cl-lsp.ros index 063a3db..360c75e 100755 --- a/roswell/cl-lsp.ros +++ b/roswell/cl-lsp.ros @@ -15,6 +15,9 @@ exec ros -Q -- $0 "$@" (defun main (&rest argv) (let ((mode (or (first argv) "tcp"))) (cond ((equal mode "tcp") + #+quicklisp + (ql:quickload "jsonrpc/transport/tcp" :silent t) + #-quicklisp (let ((port (second argv))) (if port (bt:make-thread (lambda () (cl-lsp/main:run-tcp-mode :port (parse-integer port)))) From 1c4ca00cb857b5343e79056b7e95c7471d3a7ea7 Mon Sep 17 00:00:00 2001 From: troydm Date: Sat, 2 Jan 2021 18:05:26 +0200 Subject: [PATCH 2/2] minor fix --- roswell/cl-lsp.ros | 2 -- 1 file changed, 2 deletions(-) diff --git a/roswell/cl-lsp.ros b/roswell/cl-lsp.ros index 360c75e..d059991 100755 --- a/roswell/cl-lsp.ros +++ b/roswell/cl-lsp.ros @@ -15,9 +15,7 @@ exec ros -Q -- $0 "$@" (defun main (&rest argv) (let ((mode (or (first argv) "tcp"))) (cond ((equal mode "tcp") - #+quicklisp (ql:quickload "jsonrpc/transport/tcp" :silent t) - #-quicklisp (let ((port (second argv))) (if port (bt:make-thread (lambda () (cl-lsp/main:run-tcp-mode :port (parse-integer port))))