/[slime]/slime/swank-clisp.lisp
ViewVC logotype

Diff of /slime/swank-clisp.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by lgorrie, Mon May 17 00:25:24 2004 UTC revision 1.33 by heller, Fri Jun 25 08:05:29 2004 UTC
# Line 25  Line 25 
25  (in-package :swank-backend)  (in-package :swank-backend)
26    
27  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
28    (use-package "SOCKET")    ;;(use-package "SOCKET")
29    (use-package "GRAY"))    (use-package "GRAY"))
30    
31  (eval-when (:compile-toplevel :execute)  (eval-when (:compile-toplevel :execute)
# Line 198  Return NIL if the symbol is unbound." Line 198  Return NIL if the symbol is unbound."
198       (frame-do-genv frame (svref frame-env 3))       (frame-do-genv frame (svref frame-env 3))
199       (frame-do-denv frame (svref frame-env 4)))))       (frame-do-denv frame (svref frame-env 4)))))
200    
201    (defimplementation frame-var-value (frame var)
202      (getf (nth var (frame-locals frame)) :value))
203    
204  ;; Interpreter-Variablen-Environment has the shape  ;; Interpreter-Variablen-Environment has the shape
205  ;; NIL or #(v1 val1 ... vn valn NEXT-ENV).  ;; NIL or #(v1 val1 ... vn valn NEXT-ENV).
206    

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

  ViewVC Help
Powered by ViewVC 1.1.5