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

[Marco Baringer]

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

Modified Files:
	swank-cmucl.lisp ChangeLog 
Log Message:
See ChangeLog entry 2004-03-26 Marco Baringer

Date: Fri Mar 26 04:21:05 2004
Author: mbaringer

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.89 slime/swank-cmucl.lisp:1.90
--- slime/swank-cmucl.lisp:1.89	Thu Mar 18 16:55:07 2004
+++ slime/swank-cmucl.lisp	Fri Mar 26 04:21:05 2004
@@ -148,10 +148,6 @@
 (defimplementation lisp-implementation-type-name ()
   "cmucl")
 
-(defimplementation set-default-directory (directory)
-  (setf (ext:default-directory) directory)
-  (namestring (setf *default-pathname-defaults* (ext:default-directory))))
-
 
 ;;;; Stream handling
 
@@ -900,7 +896,7 @@
 ;;                                :progress t
 ;;                                :trace-stream *standard-output*))))
 
-(defun set-default-directory (directory)
+(defimplementation set-default-directory (directory)
   (setf (ext:default-directory) (namestring directory))
   ;; Setting *default-pathname-defaults* to an absolute directory
   ;; makes the behavior of MERGE-PATHNAMES a bit more intuitive.


Index: slime/ChangeLog
diff -u slime/ChangeLog:1.308 slime/ChangeLog:1.309
--- slime/ChangeLog:1.308	Thu Mar 25 19:48:04 2004
+++ slime/ChangeLog	Fri Mar 26 04:21:05 2004
@@ -1,3 +1,8 @@
+2004-03-26  Marco Baringer <mb at bese.it>
+
+	* swank-cmucl.lisp (set-default-directory): Define only once;
+	define with defimplementation, not defun.
+
 2004-03-26  Luke Gorrie  <luke at bluetail.com>
 
 	* slime.el (slime-merge-notes-for-display): New function to merge