X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=22cec64d58f898fad9ce4c68b22110bdd4b4c103;hp=5fe20bbefe633d6a9f1c1e0009f11e0cef32c9d6;hb=3cd1b16491b64549d5e00e32e75ce069cd8d201f;hpb=843d2b6fcbc794e06e2fb5e9b2842175ffcb7ec5

diff --git a/swank.R b/swank.R
index 5fe20bb..22cec64 100644
--- a/swank.R
+++ b/swank.R
@@ -622,3 +622,17 @@ emacsInspect.numeric <- function(numeric) {
   setwd(directory)
   `swank:default-directory`(slimeConnection, sldbState)
 }
+
+`swank:load-file` <- function(slimeConnection, sldbState, filename) {
+  source(filename, local=FALSE)
+  TRUE
+}
+
+`swank:compile-file-for-emacs` <- function(slimeConnection, sldbState, filename, loadp, ...) {
+  if(loadp==quote(`t`)) {
+    source(filename, local=FALSE)
+  } else {
+    parse(filename)
+  }
+  TRUE
+}