[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv14418

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-current-package): Return REPL's package,
if other are unavailable and if slime-repl is loaded.


--- /project/slime/cvsroot/slime/ChangeLog	2009/10/12 08:02:22	1.1872
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/15 13:10:09	1.1873
@@ -1,3 +1,8 @@
+2009-10-15  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-current-package): Return REPL's package,
+	if other are unavailable and if slime-repl is loaded.
+
 2009-10-12  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* slime.el: Update copyright.
--- /project/slime/cvsroot/slime/slime.el	2009/10/12 08:02:21	1.1226
+++ /project/slime/cvsroot/slime/slime.el	2009/10/15 13:10:09	1.1227
@@ -2258,7 +2258,9 @@
   (or slime-buffer-package
       (save-restriction
         (widen)
-        (slime-find-buffer-package))))
+        (slime-find-buffer-package))
+      (when (fboundp 'slime-lisp-package)
+        (slime-lisp-package))))
 
 (defvar slime-find-buffer-package-function 'slime-search-buffer-package
   "*Function to use for `slime-find-buffer-package'.