From f0e61c84f770a997753de7c6928eacbb89756a1d Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Wed, 6 Apr 2011 08:55:46 +0100
Subject: [PATCH] implement swank:quit-lisp

---
 swank.R | 4 ++++
 1 file changed, 4 insertions(+)

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()
+}
-- 
2.39.5