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

Diff of /slime/swank.lisp

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

revision 1.396 by heller, Sun Aug 27 11:01:43 2006 UTC revision 1.397 by mbaringer, Wed Sep 13 14:31:41 2006 UTC
# Line 2195  by adding a template for the missing arg Line 2195  by adding a template for the missing arg
2195                                       highlight)                                       highlight)
2196    "Return the arglist for FORM as a string."    "Return the arglist for FORM as a string."
2197    (when (consp form)    (when (consp form)
2198      (let ((operator-form (first form))      (destructuring-bind (operator-form &rest argument-forms)
2199            (argument-forms (rest form)))          form
2200        (let ((form-completion        (let ((form-completion
2201               (form-completion operator-form argument-forms               (form-completion operator-form argument-forms
2202                                :remove-args nil)))                                :remove-args nil)))
# Line 2317  forward keywords to OPERATOR." Line 2317  forward keywords to OPERATOR."
2317    
2318  (defvar *nil-surrogate* (make-symbol "nil-surrogate"))  (defvar *nil-surrogate* (make-symbol "nil-surrogate"))
2319    
2320  ;; XXX thread safety?  ;; XXX thread safety? [2006-09-13] mb: not in the slightest (fwiw the
2321    ;; rest of slime isn't thread safe either), do we really care?
2322  (defun save-presented-object (object)  (defun save-presented-object (object)
2323    "Save OBJECT and return the assigned id.    "Save OBJECT and return the assigned id.
2324  If OBJECT was saved previously return the old id."  If OBJECT was saved previously return the old id."
# Line 2359  The secondary value indicates the absenc Line 2360  The secondary value indicates the absenc
2360            (:no-error (value)            (:no-error (value)
2361              (values value t))))              (values value t))))
2362         ((:inspected-part part-index)         ((:inspected-part part-index)
2363            (declare (special *inspectee-parts*))
2364          (if (< part-index (length *inspectee-parts*))          (if (< part-index (length *inspectee-parts*))
2365              (values (inspector-nth-part part-index) t)              (values (inspector-nth-part part-index) t)
2366              (values nil nil)))))))              (values nil nil)))))))
# Line 4027  NIL is returned if the list is circular. Line 4029  NIL is returned if the list is circular.
4029             (loop for key being the hash-keys of ht             (loop for key being the hash-keys of ht
4030                for value being the hash-values of ht                for value being the hash-values of ht
4031                repeat (or *slime-inspect-contents-limit* most-positive-fixnum)                repeat (or *slime-inspect-contents-limit* most-positive-fixnum)
4032                append `((:value ,key) " = " (:value ,value) (:newline))                append `((:value ,key) " = " (:value ,value) (:newline))))))
               )  
   
            )))  
4033    
4034  (defmethod inspect-bigger-piece-actions (thing size)  (defmethod inspect-bigger-piece-actions (thing size)
4035    (append    (append
# Line 4048  NIL is returned if the list is circular. Line 4047  NIL is returned if the list is circular.
4047                 (let ((*slime-inspect-contents-limit* nil))                 (let ((*slime-inspect-contents-limit* nil))
4048                   (values                   (values
4049                    (swank::inspect-object thing)                    (swank::inspect-object thing)
4050                    :replace)                    :replace)))))
                  ))))  
4051    
4052  (defmethod inspect-show-more-action (thing)  (defmethod inspect-show-more-action (thing)
4053    `(:action ,(format nil "~a elements shown. Prompt for how many to inspect..."    `(:action ,(format nil "~a elements shown. Prompt for how many to inspect..."
# Line 4059  NIL is returned if the list is circular. Line 4057  NIL is returned if the list is circular.
4057                        (progn (format t "How many elements should be shown? ") (read))))                        (progn (format t "How many elements should be shown? ") (read))))
4058                   (values                   (values
4059                    (swank::inspect-object thing)                    (swank::inspect-object thing)
4060                    :replace)                    :replace)))))
                  ))  
             ))  
4061    
4062  (defmethod inspect-for-emacs ((array array) inspector)  (defmethod inspect-for-emacs ((array array) inspector)
4063    (declare (ignore inspector))    (declare (ignore inspector))
# Line 4661  See `methods-by-applicability'.") Line 4657  See `methods-by-applicability'.")
4657          (inspect-for-emacs object inspector)          (inspect-for-emacs object inspector)
4658        (list :title title        (list :title title
4659              :type (to-string (type-of object))              :type (to-string (type-of object))
4660              :content (inspector-content-for-emacs content)))))              :content (inspector-content-for-emacs content)
4661                :id (assign-index object *inspectee-parts*)))))
4662    
4663  (defslimefun inspector-nth-part (index)  (defslimefun inspector-nth-part (index)
4664    (aref *inspectee-parts* index))    (aref *inspectee-parts* index))

Legend:
Removed from v.1.396  
changed lines
  Added in v.1.397

  ViewVC Help
Powered by ViewVC 1.1.5