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

[Helmut Eller]

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

Modified Files:
	swank-clisp.lisp 
Log Message:
(frame-var-value): New backend function.

Date: Fri Jun 25 01:05:29 2004
Author: heller

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.32 slime/swank-clisp.lisp:1.33
--- slime/swank-clisp.lisp:1.32	Sun May 16 17:25:24 2004
+++ slime/swank-clisp.lisp	Fri Jun 25 01:05:29 2004
@@ -25,7 +25,7 @@
 (in-package :swank-backend)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (use-package "SOCKET")
+  ;;(use-package "SOCKET")
   (use-package "GRAY"))
 
 (eval-when (:compile-toplevel :execute)
@@ -197,6 +197,9 @@
      (frame-do-benv frame (svref frame-env 2))
      (frame-do-genv frame (svref frame-env 3))
      (frame-do-denv frame (svref frame-env 4)))))
+
+(defimplementation frame-var-value (frame var)
+  (getf (nth var (frame-locals frame)) :value))
 
 ;; Interpreter-Variablen-Environment has the shape
 ;; NIL or #(v1 val1 ... vn valn NEXT-ENV).