From: Christophe Rhodes <csr21@cantab.net>
Date: Wed, 6 Apr 2011 07:55:46 +0000 (+0100)
Subject: implement swank:quit-lisp
X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=f0e61c84f770a997753de7c6928eacbb89756a1d;p=swankr.git

implement swank:quit-lisp
---

diff --git a/swank.R b/swank.R
index 0de35f7..00967c5 100644
--- 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()
+}