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

Diff of /slime/swank.lisp

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

revision 1.257 by heller, Thu Oct 28 22:16:01 2004 UTC revision 1.258 by heller, Mon Nov 1 17:15:55 2004 UTC
# Line 3076  See `methods-by-applicability'.") Line 3076  See `methods-by-applicability'.")
3076               (label-value-line "Precision" (float-precision f))))))               (label-value-line "Precision" (float-precision f))))))
3077    
3078  (defvar *inspectee*)  (defvar *inspectee*)
3079  (defvar *inspectee-parts* (make-array 10 :adjustable t :fill-pointer 0))  (defvar *inspectee-parts*)
3080  (defvar *inspectee-actions* (make-array 10 :adjustable t :fill-pointer 0))  (defvar *inspectee-actions*)
3081  (defvar *inspector-stack* '())  (defvar *inspector-stack* '())
3082  (defvar *inspector-history* (make-array 10 :adjustable t :fill-pointer 0))  (defvar *inspector-history* (make-array 10 :adjustable t :fill-pointer 0))
3083  (declaim (type vector *inspector-history*))  (declaim (type vector *inspector-history*))
# Line 3117  See `methods-by-applicability'.") Line 3117  See `methods-by-applicability'.")
3117                     (action-part-for-emacs label lambda)))))))                     (action-part-for-emacs label lambda)))))))
3118    
3119  (defun assign-index (object vector)  (defun assign-index (object vector)
3120    (or (position object vector)    (let ((index (fill-pointer vector)))
3121        (progn (vector-push-extend object vector)      (vector-push-extend object vector)
3122               (position object vector))))      index))
3123    
3124  (defun value-part-for-emacs (object string)  (defun value-part-for-emacs (object string)
3125    (list :value    (list :value

Legend:
Removed from v.1.257  
changed lines
  Added in v.1.258

  ViewVC Help
Powered by ViewVC 1.1.5