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

[Helmut Eller]

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

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

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

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.38 slime/swank-allegro.lisp:1.39
--- slime/swank-allegro.lisp:1.38	Mon Jun 21 23:24:48 2004
+++ slime/swank-allegro.lisp	Fri Jun 25 01:05:21 2004
@@ -55,9 +55,12 @@
   (princ-to-string c))
 
 (defimplementation condition-references (c)
-  (declare (ignore))
+  (declare (ignore c))
   '())
 
+(defimplementation call-with-syntax-hooks (fn)
+  (funcall fn))
+
 ;;;; Unix signals
 
 (defimplementation call-without-interrupts (fn)
@@ -77,9 +80,6 @@
 (defimplementation default-directory ()
   (excl:chdir))
 
-(defimplementation call-with-syntax-hooks (fn)
-  (funcall fn))
-
 ;;;; Misc
 
 (defimplementation arglist (symbol)
@@ -147,6 +147,10 @@
 			:id 0
 			:value (debugger:frame-var-value frame i)))))
 
+(defimplementation frame-var-value (frame var)
+  (let ((frame (nth-frame frame)))
+    (debugger:frame-var-value frame var)))
+        
 (defimplementation frame-catch-tags (index)
   (declare (ignore index))
   nil)