[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
* swank-openmcl.lisp (frame-catch-tags): Disabled, as it prevents
FRAME-LOCALS from working in lx8632.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/11 08:30:52	1.1555
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/16 21:15:08	1.1556
@@ -1,3 +1,8 @@
+2008-10-16  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-openmcl.lisp (frame-catch-tags): Disabled as it prevents
+	FRAME-LOCALS from working in lx8632.
+
 2008-10-10  Nikodemus Siivola <nikodemus at random-state.net>
 
 	* slime.el (slime-inspector-toggle-verbose): New function.
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/09/21 11:17:51	1.140
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2008/10/16 21:15:13	1.141
@@ -54,7 +54,8 @@
 
 (import-from :ccl *gray-stream-symbols* :swank-backend)
 
-(require 'xref)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (require 'xref))
 
 ;;; swank-mop
 
@@ -527,6 +528,8 @@
                          result))))
              (return-from frame-locals (nreverse result)))))))))
 
+
+#+(or)
 (defimplementation frame-catch-tags (index &aux my-frame)
   (block frame-catch-tags
     (map-backtrace 
@@ -549,6 +552,8 @@
                                      (typep (car tag) 'restart))
                                 `(:restart ,(restart-name (car tag)))))))))))))
 
+(defimplementation frame-catch-tags (index &aux my-frame) nil)
+
 (defimplementation disassemble-frame (the-frame-number)
   (let ((function-to-disassemble nil))
     (block find-frame