Changeset 8440

Timestamp:

02/01/05 03:38:22 (18 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/slime.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/slime.lisp

@@ -1 +1 @@
 ;;; slime.lisp
 ;;;
-;;; Copyright (C) 2004 Peter Graves
-;;; $Id: slime.lisp,v 1.26 2004-09-21 13:53:08 piso Exp $
+;;; Copyright (C) 2004-2005 Peter Graves
+;;; $Id: slime.lisp,v 1.27 2005-02-01 03:38:22 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -107 +107 @@
   (setf *repl-buffer* (current-buffer))
   (unless (slime-local-p)
-    (make-thread #'(lambda () (read-port-and-connect 60)))))
+    (make-thread #'(lambda () (read-port-and-connect 60))
+                 :name "slime read-port-and-connect")))
 
 (defun slime-busy-p ()
@@ -447 +448 @@
 (map-key-for-mode "Ctrl Alt I" "(slime:slime-complete-symbol)" "Lisp")
 (map-key-for-mode "Space" "(slime:slime-space)" "Lisp Shell")
-(map-key-for-mode "Space" "(slime:slime-space)" "Lisp")
+;; (map-key-for-mode "Space" "(slime:slime-space)" "Lisp")
 (map-key-for-mode "Alt ." "(slime:slime-edit-definition)" "Lisp Shell")
 (map-key-for-mode "Alt ." "(slime:slime-edit-definition)" "Lisp")