/[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.29 by sboukarev, Mon Dec 3 03:43:16 2012 UTC revision 1.30 by heller, Sat Jan 5 08:50:24 2013 UTC
# Line 407  Line 407 
407          (pc-source-location lfun pc)          (pc-source-location lfun pc)
408          (function-source-location lfun)))))          (function-source-location lfun)))))
409    
410    (defimplementation frame-package (frame-number)
411      (with-frame (p context) frame-number
412        (let* ((lfun (ccl:frame-function p context))
413               (name (ccl:function-name lfun)))
414          (labels ((name-package (name)
415                     (etypecase name
416                       (null nil)
417                       (symbol (symbol-package name))
418                       ((cons (eql setf) symbol) (symbol-package (cadr name)))
419                       ((cons (eql :internal)) (name-package (car (last name))))
420                       ((cons (and symbol (not keyword)) (cons list null))
421                        (symbol-package (car name))))))
422            (name-package name)))))
423    
424  (defimplementation eval-in-frame (form index)  (defimplementation eval-in-frame (form index)
425    (with-frame (p context) index    (with-frame (p context) index
426      (let ((vars (ccl:frame-named-variables p context)))      (let ((vars (ccl:frame-named-variables p context)))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

  ViewVC Help
Powered by ViewVC 1.1.5