[slime-cvs] CVS slime

[trittweiler]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv32010

Modified Files:
	slime.el ChangeLog 
Log Message:

	* slime.el (slime-compilation-unit): Renamed to
	`slime-compilation-result'.
	(slime-last-compilation-unit): Renamed to
	`slime-last-compilation-result'.
	(slime-compiler-notes, slime-compiler-results): Adapted accordingly.
	(slime-compilation-finished): Ditto.


--- /project/slime/cvsroot/slime/slime.el	2008/09/10 23:12:43	1.1010
+++ /project/slime/cvsroot/slime/slime.el	2008/09/10 23:18:35	1.1011
@@ -3868,23 +3868,23 @@
         ((< n 0) 0)
         (t n)))
 
-(defstruct (slime-compilation-unit
+(defstruct (slime-compilation-result
              (:type list)
-             (:conc-name slime-compilation-unit.)
+             (:conc-name slime-compilation-result.)
              (:constructor nil)
              (:copier nil))
   tag notes results durations)
 
-(defvar slime-last-compilation-unit nil
+(defvar slime-last-compilation-result nil
   "The result of the most recently issued compilation.")
 
 (defun slime-compiler-notes ()
   "Return all compiler notes, warnings, and errors."
-  (slime-compilation-unit.notes slime-last-compilation-unit))
+  (slime-compilation-result.notes slime-last-compilation-result))
 
 (defun slime-compiler-results ()
   "Return the results of the most recently issued compilations."
-  (slime-compilation-unit.results slime-last-compilation-unit))
+  (slime-compilation-result.results slime-last-compilation-result))
 
 
 (defun slime-compile-and-load-file ()
@@ -3959,11 +3959,11 @@
     (lambda (result)
       (slime-compilation-finished result buffer snapshot))))
 
-(defun slime-compilation-finished (compilation-unit buffer &optional emacs-snapshot)
-  (with-struct (slime-compilation-unit. notes durations) compilation-unit
+(defun slime-compilation-finished (compilation-result buffer &optional emacs-snapshot)
+  (with-struct (slime-compilation-result. notes durations) compilation-result
     (with-current-buffer buffer
       (setf slime-compilation-just-finished t)
-      (setf slime-last-compilation-unit compilation-unit)
+      (setf slime-last-compilation-result compilation-result)
       (slime-show-note-counts notes (reduce #'+ durations))
       (when slime-highlight-compiler-notes
         (slime-highlight-notes notes)))
--- /project/slime/cvsroot/slime/ChangeLog	2008/09/10 23:12:43	1.1497
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/10 23:18:36	1.1498
@@ -1,5 +1,14 @@
 2008-09-11  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (slime-compilation-unit): Renamed to
+	`slime-compilation-result'.
+	(slime-last-compilation-unit): Renamed to
+	`slime-last-compilation-result'.
+	(slime-compiler-notes, slime-compiler-results): Adapted accordingly.
+	(slime-compilation-finished): Ditto.
+
+2008-09-11  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime.el (slime-popup-buffer-restore-snapshot): Make sure that
 	the buffer-local variable containing the popup buffer's snapshot
 	is set to nil in the right buffer.