X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank-presentations.R;h=6ac0e75af1dd190a0998ec8d3d689c03bc3e1b6d;hp=0832fafd931b59bcb6177f4b13781d8a9bec4417;hb=fdb4f4d744580b9dc6db92489610f32e42cec15e;hpb=1b24056279f85b8b6988f8d35eceaf98ba3dc615 diff --git a/swank-presentations.R b/swank-presentations.R index 0832faf..6ac0e75 100644 --- 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)