[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	swank-allegro.lisp 
Log Message:
(compile-from-temp-file): Suppress Allegro's redefinition warnings;
they are pointless when we are compiling via a temporary file.
(profile-report): Implement.


--- /project/slime/cvsroot/slime/swank-allegro.lisp	2006/02/10 16:54:01	1.82
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2006/03/14 04:30:14	1.83
@@ -306,7 +306,12 @@
    (lambda (stream filename)
        (write-string string stream)
        (finish-output stream)
-       (let ((binary-filename (compile-file filename :load-after-compile t)))
+       (let ((binary-filename
+              (excl:without-redefinition-warnings
+                ;; Suppress Allegro's redefinition warnings; they are
+                ;; pointless when we are compiling via a temporary
+                ;; file.
+                (compile-file filename :load-after-compile t))))
          (when binary-filename
            (delete-file binary-filename))))))
 
@@ -472,6 +477,11 @@
                             2)
     (xref-result result)))
 
+;;;; Profiling
+
+(defimplementation profile-report ()
+  (prof:show-call-graph))
+
 ;;;; Inspecting
 
 (defclass acl-inspector (inspector)