implement swank:quit-lisp

diff --git a/swank.R b/swank.R
index 0de35f74997d9128489df019e7dec55251da00ce..00967c558d916290739138a0c4177267fe697e57 100644 (file)
--- a/swank.R
+++ b/swank.R
@@ -691,3 +691,7 @@ emacsInspect.numeric <- function(numeric) {
   times <- system.time(parse(filename))
   list(quote(`:compilation-result`), list(), TRUE, times[3], substitute(loadp), filename)
 }
+
+`swank:quit-lisp` <- function(slimeConnection, sldbState) {
+  quit()
+}