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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(frame-package): Delete it.  Include the package name for local
variables because it is utterly confusing if `eval-in-frame' doesn't
work due to missing package prefixes.

Date: Wed Dec 15 23:40:42 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.133 slime/swank-cmucl.lisp:1.134
--- slime/swank-cmucl.lisp:1.133	Sun Dec  5 22:13:22 2004
+++ slime/swank-cmucl.lisp	Wed Dec 15 23:40:42 2004
@@ -1536,15 +1536,6 @@
       (error (e)
         (ignore-errors (princ e stream))))))
 
-(defimplementation frame-package (frame-number)
-  (find-package
-   (ignore-errors
-     (c::compiled-debug-info-package
-      (kernel:%code-debug-info
-       (kernel:function-code-header
-        (di:debug-function-function
-         (di:frame-debug-function (nth-frame frame-number)))))))))
-          
 (defimplementation frame-source-location-for-emacs (index)
   (code-location-source-location (di:frame-code-location (nth-frame index))))