[slime-cvs] CVS update: slime/swank.lisp

[Alan Ruttenberg]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv7091/slime

Modified Files:
	swank.lisp 
Log Message:

Date: Sat May 21 07:04:03 2005
Author: aruttenberg

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.301 slime/swank.lisp:1.302
--- slime/swank.lisp:1.301	Fri May 20 07:41:45 2005
+++ slime/swank.lisp	Sat May 21 07:04:02 2005
@@ -1858,10 +1858,10 @@
 
 (defslimefun get-repl-result (id)
   "Get the result of the previous REPL evaluation with ID."
-  (let ((previous-output (assoc id *repl-results*)))
+  (let ((previous-output (assoc (- id) *repl-results*)))
     (when (null previous-output)
       (if *record-repl-results*
-          (error "Attempt to access no longer existing result (number ~D)." id)
+          (error "Attempt to access no longer existing result (number ~D)." (- id))
           (error "Attempt to access unrecorded result (number ~D). ~&See ~S."
                  id '*record-repl-results*)))
     (cdr previous-output)))