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

Diff of /slime/swank.lisp

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

revision 1.393 by mkoeppe, Sun Aug 20 09:36:59 2006 UTC revision 1.394 by mkoeppe, Tue Aug 22 09:31:10 2006 UTC
# Line 2324  If OBJECT was saved previously return th Line 2324  If OBJECT was saved previously return th
2324  (defun lookup-presented-object (id)  (defun lookup-presented-object (id)
2325    "Retrieve the object corresponding to ID.    "Retrieve the object corresponding to ID.
2326  The secondary value indicates the absence of an entry."  The secondary value indicates the absence of an entry."
2327    (multiple-value-bind (object foundp)    (etypecase id
2328        (gethash id *presentation-id-to-object*)      (integer
2329      (cond       ;;
2330        ((eql object *nil-surrogate*)       (multiple-value-bind (object foundp)
2331         ;; A stored nil object           (gethash id *presentation-id-to-object*)
2332         (values nil t))         (cond
2333        ((null object)           ((eql object *nil-surrogate*)
2334         ;; Object that was replaced by nil in the weak hash table            ;; A stored nil object
2335         ;; when the object was garbage collected.            (values nil t))
2336         (values nil nil))           ((null object)
2337        (t            ;; Object that was replaced by nil in the weak hash table
2338         (values object foundp)))))            ;; when the object was garbage collected.
2339              (values nil nil))
2340             (t
2341              (values object foundp)))))
2342        (cons
2343         (destructure-case id
2344           ((:frame-var frame index)
2345            (handler-case
2346                (frame-var-value frame index)
2347              (:no-error (value)
2348                (values value t))
2349              (t (condition)
2350                (declare (ignore condition))
2351                (values nil nil))))
2352           ((:inspected-part part-index)
2353            (if (< part-index (length *inspectee-parts*))
2354                (values (inspector-nth-part part-index) t)
2355                (values nil nil)))))))
2356    
2357  (defslimefun get-repl-result (id)  (defslimefun get-repl-result (id)
2358    "Get the result of the previous REPL evaluation with ID."    "Get the result of the previous REPL evaluation with ID."
# Line 4584  See `methods-by-applicability'.") Line 4601  See `methods-by-applicability'.")
4601          *inspectee-actions* (make-array 10 :adjustable t :fill-pointer 0)          *inspectee-actions* (make-array 10 :adjustable t :fill-pointer 0)
4602          *inspector-history* (make-array 10 :adjustable t :fill-pointer 0)))          *inspector-history* (make-array 10 :adjustable t :fill-pointer 0)))
4603    
4604  (defslimefun init-inspector (string)  (defslimefun init-inspector (string &optional (reset t))
4605    (with-buffer-syntax ()    (with-buffer-syntax ()
4606      (reset-inspector)      (when reset
4607          (reset-inspector))
4608      (inspect-object (eval (read-from-string string)))))      (inspect-object (eval (read-from-string string)))))
4609    
4610  (defun print-part-to-string (value)  (defun print-part-to-string (value)

Legend:
Removed from v.1.393  
changed lines
  Added in v.1.394

  ViewVC Help
Powered by ViewVC 1.1.5