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

Diff of /slime/swank.lisp

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

revision 1.688 by trittweiler, Sun Feb 7 11:44:41 2010 UTC revision 1.689 by heller, Wed Feb 17 17:04:46 2010 UTC
# Line 3260  DSPEC is a string and LOCATION a source Line 3260  DSPEC is a string and LOCATION a source
3260          (format nil "#~D=~A" pos string)          (format nil "#~D=~A" pos string)
3261          string)))          string)))
3262    
   
   
3263  (defun content-range (list start end)  (defun content-range (list start end)
3264    (typecase list    (typecase list
3265      (list (let ((len (length list)))      (list (let ((len (length list)))
# Line 3314  Return nil if there's no previous object Line 3312  Return nil if there's no previous object
3312    (setf (istate.verbose *istate*) (not (istate.verbose *istate*)))    (setf (istate.verbose *istate*) (not (istate.verbose *istate*)))
3313    (istate>elisp *istate*))    (istate>elisp *istate*))
3314    
3315    (defslimefun inspector-eval (string)
3316      (let* ((obj (istate.object *istate*))
3317             (context (eval-context obj))
3318             (form (with-buffer-syntax ((cdr (assoc '*package* context)))
3319                     (read-from-string string)))
3320             (ignorable (remove-if #'boundp (mapcar #'car context))))
3321        (to-string (eval `(let ((* ',obj) (- ',form)
3322                                . ,(loop for (var . val) in context collect
3323                                         `(,var ',val)))
3324                            (declare (ignorable . ,ignorable))
3325                            ,form)))))
3326    
3327  (defslimefun quit-inspector ()  (defslimefun quit-inspector ()
3328    (reset-inspector)    (reset-inspector)
3329    nil)    nil)

Legend:
Removed from v.1.688  
changed lines
  Added in v.1.689

  ViewVC Help
Powered by ViewVC 1.1.5