`swank:describe-function` and `swank:describe-symbol` implementations

[swankr.git] / swank-presentations.R

diff --git a/swank-presentations.R b/swank-presentations.R
index 0832fafd931b59bcb6177f4b13781d8a9bec4417..6ac0e75af1dd190a0998ec8d3d689c03bc3e1b6d 100644 (file)
--- a/swank-presentations.R
+++ b/swank-presentations.R
@@ -27,7 +27,6 @@ sendReplResultFunction <- presentReplResult
 }
 
 `swank:lookup-presented-object` <- function(slimeConnection, sldbState, id) {
-  str(ls(slimeConnection))
   if(exists(as.character(id), envir=slimeConnection$idToObject)) {
     value <- get(as.character(id), envir=slimeConnection$idToObject)
     list(value, TRUE)