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

Diff of /slime/swank-ccl.lisp

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

revision 1.13 by sboukarev, Sun Jan 3 15:58:29 2010 UTC revision 1.14 by sboukarev, Thu Jan 21 23:21:26 2010 UTC
# Line 434  Line 434 
434                       (format stream " ~s" arg)))))                       (format stream " ~s" arg)))))
435        (format stream ")"))))        (format stream ")"))))
436    
437    (defmacro with-frame ((p context) frame-number &body body)
438      `(call/frame ,frame-number (lambda (,p ,context) . ,body)))
439    
440  (defimplementation frame-call (frame-number)  (defimplementation frame-call (frame-number)
441    (with-frame (p context) frame-number    (with-frame (p context) frame-number
442      (with-output-to-string (stream)      (with-output-to-string (stream)
# Line 446  Line 449 
449         (funcall if-found p context)))         (funcall if-found p context)))
450     frame-number))     frame-number))
451    
 (defmacro with-frame ((p context) frame-number &body body)  
   `(call/frame ,frame-number (lambda (,p ,context) . ,body)))  
452    
453  (defimplementation frame-var-value (frame var)  (defimplementation frame-var-value (frame var)
454    (with-frame (p context) frame    (with-frame (p context) frame

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5