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

[Marco Baringer]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
Typo in defimplementation emacs-connected.

Date: Wed Nov 17 16:17:26 2004
Author: mbaringer

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.88 slime/swank-openmcl.lisp:1.89
--- slime/swank-openmcl.lisp:1.88	Tue Nov 16 00:07:00 2004
+++ slime/swank-openmcl.lisp	Wed Nov 17 16:17:26 2004
@@ -140,7 +140,7 @@
   (ccl:accept-connection socket :wait t))
 
 (defimplementation emacs-connected ()
-  (setq ccl::*interactive-abort-process* ccl::*current-process*)
+  (setq ccl::*interactive-abort-process* ccl::*current-process*))
 
 (defimplementation make-stream-interactive (stream)
   (push stream ccl::*auto-flush-streams*))