[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-cmucl.lisp 
Log Message:
* swank-cmucl.lisp
(inspect-alien-record, mv-function-end-breakpoint-values): Avoid
compiler warnigns.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/11 08:30:43	1.1554
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/11 08:30:52	1.1555
@@ -22,6 +22,9 @@
 	(emacs-inspect [code-component]): Try to detect
 	byte-code-components.
 
+	(inspect-alien-record, mv-function-end-breakpoint-values): Avoid
+	compiler warnigns.
+
 2008-10-04  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank-sbcl.lisp: Add support for WHO-SPECIALIZES. This requires
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2008/10/11 08:30:43	1.198
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2008/10/11 08:30:52	1.199
@@ -1682,7 +1682,7 @@
 (defun breakpoint-values (breakpoint)
   "Return the list of return values for a return point."
   (flet ((1st (sc) (sigcontext-object sc (car vm::register-arg-offsets))))
-    (let ((sc (locally (declare (optimize (ext:inhibit-warnings 3)))
+    (let ((sc (locally (declare (optimize (speed 0)))
                 (alien:sap-alien *breakpoint-sigcontext* (* unix:sigcontext))))
           (cl (di:breakpoint-what breakpoint)))
       (ecase (di:code-location-kind cl)
@@ -1706,7 +1706,7 @@
 (defun mv-function-end-breakpoint-values (sigcontext)
   (let ((sym (find-symbol "FUNCTION-END-BREAKPOINT-VALUES/STANDARD" :di)))
     (cond (sym (funcall sym sigcontext))
-          (t (di::get-function-end-breakpoint-values sigcontext)))))
+          (t (funcall 'di::get-function-end-breakpoint-values sigcontext)))))
 
 (defun debug-function-returns (debug-fun)
   "Return the return style of DEBUG-FUN."
@@ -1990,6 +1990,7 @@
         (:name name))
        (loop for field in fields 
              append (let ((slot (alien::alien-record-field-name field)))
+                      (declare (optimize (speed 0)))
                       (label-value-line slot (alien:slot alien slot))))))))
 
 (defun inspect-alien-pointer (alien)