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

[Marco Baringer]

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

Modified Files:
	ChangeLog slime.el swank-openmcl.lisp 
Log Message:
See Changelog entry 2004-05-06 Marco Baringer

Date: Thu May  6 03:38:41 2004
Author: mbaringer

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.367 slime/ChangeLog:1.368
--- slime/ChangeLog:1.367	Tue May  4 15:17:43 2004
+++ slime/ChangeLog	Thu May  6 03:38:41 2004
@@ -1,3 +1,12 @@
+2004-05-06  Marco Baringer <mb at bese.it>
+
+	* slime.el (slime-repl-sayoonara): Don't attempt to quit the lisp
+	if we're not connected.
+
+	* swank-openmcl.lisp (*buffer-offset*, *buffer-name*): Supply
+	default values. This avoids unbound value errors when compiling an
+	asdf system signals errors.
+	
 2004-05-04  Alan Shutko  <ats at acm.org>
 
 	* slime.el (slime-compiler-notes-show-details/mouse): New command.


Index: slime/slime.el
diff -u slime/slime.el:1.295 slime/slime.el:1.296
--- slime/slime.el:1.295	Tue May  4 15:12:15 2004
+++ slime/slime.el	Thu May  6 03:38:41 2004
@@ -5952,7 +5952,7 @@
 (defmacro defslime-repl-shortcut (elisp-name names &rest options)
   "Define a new repl shortcut. ELISP-NAME is a symbol specifying
   the name of the interactive function to create, or NIL if no
-  function whould be created. NAMES is a list of (full-name .
+  function should be created. NAMES is a list of (full-name .
   aliases). OPTIONS is an olist specifying the handler and the
   help text."
   `(progn
@@ -6052,7 +6052,8 @@
 (defslime-repl-shortcut slime-repl-sayoonara ("sayoonara")
   (:handler (lambda ()
               (interactive)
-              (slime-eval-async '(swank:quit-lisp) nil (lambda (_) nil))
+              (when (slime-connected-p)
+                (slime-eval-async '(swank:quit-lisp) nil (lambda (_) nil)))
               (slime-kill-all-buffers)))
   (:one-liner "Quit the lisp and close all SLIME buffers."))
 


Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.73 slime/swank-openmcl.lisp:1.74
--- slime/swank-openmcl.lisp:1.73	Fri Apr 30 19:16:28 2004
+++ slime/swank-openmcl.lisp	Thu May  6 03:38:41 2004
@@ -161,8 +161,8 @@
 
 ;;; Compilation
 
-(defvar *buffer-offset*)
-(defvar *buffer-name*)
+(defvar *buffer-offset* nil)
+(defvar *buffer-name* nil)
 
 (defun condition-source-position (condition)
   "Return the position in the source file of a compiler condition."