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

Diff of /slime/swank.lisp

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

revision 1.135 by heller, Thu Mar 4 22:12:44 2004 UTC revision 1.136 by mbaringer, Fri Mar 5 14:26:14 2004 UTC
# Line 859  has changed, ignore the request." Line 859  has changed, ignore the request."
859  (defslimefun eval-string-in-frame (string index)  (defslimefun eval-string-in-frame (string index)
860    (to-string (eval-in-frame (from-string string) index)))    (to-string (eval-in-frame (from-string string) index)))
861    
862    (defun frame-locals-for-emacs (frame-index)
863      (mapcar (lambda (frame-locals)
864                (loop
865                   for (key value) on frame-locals by #'cddr
866                   collect key
867                   if (member key (list :name :value))
868                     collect (to-string value)
869                   else
870                     collect value))
871              (frame-locals frame-index)))
872    
873    
874  ;;;; Evaluation  ;;;; Evaluation
875    

Legend:
Removed from v.1.135  
changed lines
  Added in v.1.136

  ViewVC Help
Powered by ViewVC 1.1.5