Changeset 3416

Timestamp:

07/09/08 07:52:08 (6 months ago)

Author:

hans

Message:

update slime

Files:

• trunk/thirdparty/slime/CVS/Entries (modified) (1 diff)
• trunk/thirdparty/slime/ChangeLog (modified) (1 diff)
• trunk/thirdparty/slime/contrib/CVS/Entries (modified) (1 diff)
• trunk/thirdparty/slime/contrib/ChangeLog (modified) (1 diff)
• trunk/thirdparty/slime/contrib/slime-parse.el (modified) (1 diff)
• trunk/thirdparty/slime/contrib/swank-asdf.lisp (modified) (1 diff)
• trunk/thirdparty/slime/doc/CVS/Entries (modified) (1 diff)
• trunk/thirdparty/slime/slime.el (modified) (19 diffs)
• trunk/thirdparty/slime/swank-allegro.lisp (modified) (1 diff)
• trunk/thirdparty/slime/swank-backend.lisp (modified) (1 diff)
• trunk/thirdparty/slime/swank-cmucl.lisp (modified) (2 diffs)
• trunk/thirdparty/slime/swank-lispworks.lisp (modified) (1 diff)
• trunk/thirdparty/slime/swank-sbcl.lisp (modified) (8 diffs)
• trunk/thirdparty/slime/swank.lisp (modified) (2 diffs)

trunk/thirdparty/slime/CVS/Entries

@@ -1 +1 @@
-D/contrib////
-D/doc////
-/.cvsignore/1.5/Tue Mar 11 05:01:33 2008//
-/NEWS/1.9/Tue Mar 11 05:01:33 2008//
-/PROBLEMS/1.8/Tue Mar 11 05:01:33 2008//
-/README/1.14/Tue Mar 11 05:01:33 2008//
-/hyperspec.el/1.11/Tue Mar 11 05:01:33 2008//
-/metering.lisp/1.4/Tue Mar 11 05:01:33 2008//
-/mkdist.sh/1.7/Tue Mar 11 05:01:33 2008//
-/nregex.lisp/1.4/Tue Mar 11 05:01:33 2008//
-/sbcl-pprint-patch.lisp/1.1/Tue Mar 11 05:01:33 2008//
-/slime-autoloads.el/1.5/Wed Mar 12 07:05:18 2008//
-/swank-gray.lisp/1.10/Tue Mar 11 05:01:33 2008//
-/test-all.sh/1.2/Tue Mar 11 05:01:33 2008//
-/test.sh/1.10/Wed Mar 12 07:05:31 2008//
-/xref.lisp/1.2/Tue Mar 11 05:01:33 2008//
-/HACKING/1.9/Fri Apr  4 05:23:12 2008//
-/swank-source-path-parser.lisp/1.20/Fri Apr  4 05:23:12 2008//
-/ChangeLog/1.1353/Mon May 12 18:52:03 2008//
-/slime.el/1.938/Mon May 12 18:52:03 2008//
-/swank-abcl.lisp/1.49/Mon May 12 18:52:03 2008//
-/swank-allegro.lisp/1.102/Mon May 12 18:52:03 2008//
-/swank-backend.lisp/1.132/Result of merge//
-/swank-clisp.lisp/1.69/Mon May 12 18:52:04 2008//
-/swank-cmucl.lisp/1.179/Result of merge//
-/swank-corman.lisp/1.16/Mon May 12 18:52:05 2008//
-/swank-ecl.lisp/1.23/Mon May 12 18:52:05 2008//
-/swank-lispworks.lisp/1.99/Mon May 12 18:52:05 2008//
-/swank-loader.lisp/1.85/Result of merge//
-/swank-openmcl.lisp/1.125/Mon May 12 18:52:05 2008//
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

trunk/thirdparty/slime/ChangeLog

@@ +1 @@
+2008-07-05  Tobias C. Rittweiler  <tcr@freebits.de>
+
+        * swank.lisp: Revert Melis' change from 2008-07-04; Global IO
+        redirection seems currently to be broken, and while it's not due
+        to that commit (it seems that it's been broken since longer), I
+        want to be on a safe bet.
+
+2008-07-05  Tobias C. Rittweiler  <tcr@freebits.de>
+
+        `M-x slime-lisp-threads' will now contain a summary of what's
+        currently executed in a thread that was created by Swank.
+
+        * swank-backend.lisp (thread-description, set-thread-description):
+        New interface functions to associate strings with threads.
+        * swank-sbcl.lisp (thread-description, set-thread-description):
+        Implemented.
+
+        * swank.lisp (call-with-thread-description),
+        (with-thread-description): New.
+        (read-from-emacs): Now temporarily sets the thread-description of
+        the current thread to a summary of what's going to be executed by
+        the current request.
+        (defslimefun list-threads): Changed return value to also contain
+        a thread's description.
+
+        * slime.el (slime-list-threads, slime-thread-insert): Adapted to
+        new return value of LIST-THREADS.
+
+2008-07-04  Gábor Melis  <mega@retes.hu>
+
+        * swank.lisp (call-with-redirected-io): Rebind only standard
+        streams if *GLOBALLY-REDIRECT-IO*. Fixes lost output after
+        disconnect, reconnect.
+
+2008-07-04  Willem Broekema  <metawilm@gmail.com>
+
+        * slime-allegro.lisp (fspec-definition-locations): Workaround for
+        the issue that Allegro does not record the source file location
+        for methods defined inside a defgeneric form. The idea is that if
+        the source location of a method is not found, then the defgeneric
+        form is almost certainly the right place.
+
+2008-07-04  Tobias C. Rittweiler  <tcr@freebits.de>
+
+        * slime.el (slime-call-defun): Properly signal error message when
+        used in a context that is not a function definition.
+
+2008-07-04  Richard M Kreuter  <kreuter@progn.net>
+
+        * swank-sbcl.lisp (code-location-source-location),
+        (code-location-debug-source-name): Patched for incompatible
+        structure change in SBCL 1.0.18.10.
+
+2008-07-04  Tobias C. Rittweiler  <tcr@freebits.de>
+
+        * slime.el (slime-call-defun): Broken on DEFMETHOD forms. Fix
+        that. Also, don't insert package qualifier anymore if the inserted
+        qualifier is the same as the current REPL package.
+
+2008-07-02  Martin Simmons  <martin@lispworks.com>
+        * swank-lispworks.lisp (install-debugger-globally): hook into the
+        environment globally to catch BREAK.
+
+2008-06-07  Tobias C. Rittweiler  <tcr@freebits.de>
+
+        * slime.el (def-slime-test find-definition.2, arglist):
+        SWANK:COMPILE-STRING-FOR-EMACS since recently takes 5 instead of 4
+        parameters. Fix that.
+
+2008-06-07  Tobias C. Rittweiler  <tcr@freebits.de>
+
+        * slime.el (slime-extract-context, slime-parse-context): Recognize
+        more toplevel forms, e.g. DEFINE-COMPILER-MACRO &c. Such that
+        `slime-parse-toplevel-form' will also recognize these.
+        (slime-trace-query): Adapted to above changes. Errors if spec is
+        untraceable.
+        (slime-call-defun): Adapted to also support the new toplevel forms.
+
+        (slime-cl-symbol-name),
+        (slime-cl-symbol-package),
+        (slime-qualify-cl-symbol-name): Resurrected from the `slime-parse'
+        contrib, as they've been used by `slime-call-defun'.
+
+2008-06-02  Raymond Toy  <toy.raymond@gmail.com>
+
+        Unicode support for CMUCL.
+
+        * swank-cmucl.lisp (accept-connection, make-socket-io-stream):
+        Handle external-format argument.
+        (find-external-format): Implemented.
+        (*external-format-to-coding-system*): New variable.
+
+2008-05-19  Helmut Eller  <heller@common-lisp.net>
+
+        * swank-sbcl.lisp: Don't require asdf.
+
+2008-05-19  Helmut Eller  <heller@common-lisp.net>
+
+        * swank-sbcl.lisp (swank-compile-string): Add reader-conditionals
+        for sb-ext::restrict-compiler-policy.
+
+2008-05-19  Geo Carncross  <geocar@gmail.com>
+
+        * contrib/swank-asdf.lisp: Require asdf.
+
+2008-05-17  Helmut Eller  <heller@common-lisp.net>
+
+        * slime.el (slime-prin1-to-string): Bind print-length and
+        print-level.
+
+2008-05-17  Helmut Eller  <heller@common-lisp.net>
+
+        * slime.el (slime-inspector-limit): New variable.
+        (slime-inspector-insert-content): Use it.
+        (slime-inspector-fetch-chunk, slime-inspector-fetch)
+        (slime-inspector-next-range, slime-inspector-join-chunks): New.
+
-2008-05-08  Geo Carncross  <geocar@gmail.com>
-

trunk/thirdparty/slime/contrib/CVS/Entries

@@ -1 @@
-README/1.3/Tue Mar 11 05:01:33
-bridge.el/1.1/Tue Mar 11 05:01:33
-inferior-slime.el/1.2/Tue Mar 11 05:01:33
-slime-asdf.el/1.3/Tue Mar 11 05:01:33
-banner.el/1.4/Tue Mar 11 05:01:33
-c-p-c.el/1.9/Tue Mar 11 05:01:33
-editing-commands.el/1.6/Tue Mar 11 05:01:33
-fancy-inspector.el/1.3/Tue Mar 11 05:01:33
-fancy.el/1.5/Tue Mar 11 05:01:33
-highlight-edits.el/1.3/Tue Mar 11 05:01:33
-motd.el/1.1/Tue Mar 11 05:01:33
-parse.el/1.10/Tue Mar 11 05:01:33
-presentation-streams.el/1.2/Tue Mar 11 05:01:33
-references.el/1.4/Tue Mar 11 05:01:33
-scheme.el/1.1/Tue Mar 11 05:01:33
-scratch.el/1.4/Tue Mar 11 05:01:33
-typeout-frame.el/1.6/Tue Mar 11 05:01:33
-xref-browser.el/1.2/Tue Mar 11 05:01:33
-wank-asdf.lisp/1.1/Tue Mar 11 05:01:33
-wank-c-p-c.lisp/1.2/Tue Mar 11 05:01:33
-wank-goo.goo/1.1/Tue Mar 11 05:01:33
-wank-indentation.lisp/1.1/Tue Mar 11 05:01:33
-wank-listener-hooks.lisp/1.1/Tue Mar 11 05:01:33
-wank-motd.lisp/1.1/Tue Mar 11 05:01:33
-presentation-streams.lisp/1.5/Tue Mar 11 05:01:33
-presentations.lisp/1.5/Tue Mar 11 05:01:33
-lime-fuzzy.el/1.7/Fri Mar 14 15:35:51
-uzzy.lisp/1.8/Fri Mar 14 15:35:52
-lime-autodoc.el/1.8/Fri Apr  4 05:23:14
-lime-tramp.el/1.3/Fri Apr  4 05:23:14
-mit-scheme.scm/1.3/Fri Apr  4 05:23:16
-ChangeLog/1.106/Mon May 12 18:52:06
-lime-indentation.el/1.2/Mon May 12 18:52:06
-lime-presentations.el/1.15/Mon May 12 18:52:06
-arglists.lisp/1.21/Mon May 12 18:52:06
-fancy-inspector.lisp/1.15/Mon May 12 18:52:06
-kawa.scm/1.7/Mon May 12 18:52:06
+ChangeLog/1.107/Wed Jul  9 05:10:01
+README/1.3/Mon Jun 30 06:11:05
+bridge.el/1.1/Mon Jun 30 06:11:05
+inferior-slime.el/1.2/Mon Jun 30 06:11:05
+asdf.el/1.3/Mon Jun 30 06:11:05
+autodoc.el/1.8/Mon Jun 30 06:11:05
+banner.el/1.4/Mon Jun 30 06:11:05
+c-p-c.el/1.9/Mon Jun 30 06:11:05
+editing-commands.el/1.6/Mon Jun 30 06:11:05
+fancy-inspector.el/1.3/Mon Jun 30 06:11:05
+fancy.el/1.5/Mon Jun 30 06:11:05
+fuzzy.el/1.7/Mon Jun 30 06:11:05
+highlight-edits.el/1.3/Mon Jun 30 06:11:05
+indentation.el/1.2/Mon Jun 30 06:11:05
+motd.el/1.1/Mon Jun 30 06:11:05
+parse.el/1.11/Wed Jul  9 05:10:02
+presentation-streams.el/1.2/Mon Jun 30 06:11:05
+presentations.el/1.15/Mon Jun 30 06:11:05
+lime-references.el/1.4/Mon Jun 30 06:11:05
+lime-scheme.el/1.1/Mon Jun 30 06:11:05
+lime-scratch.el/1.4/Mon Jun 30 06:11:05
+lime-tramp.el/1.3/Mon Jun 30 06:11:05
+lime-typeout-frame.el/1.6/Mon Jun 30 06:11:05
+lime-xref-browser.el/1.2/Mon Jun 30 06:11:05
+arglists.lisp/1.21/Mon Jun 30 06:11:05
+asdf.lisp/1.3/Wed Jul  9 05:10:02
+wank-c-p-c.lisp/1.2/Mon Jun 30 06:11:05
+ancy-inspector.lisp/1.15/Mon Jun 30 06:11:05
+wank-fuzzy.lisp/1.8/Mon Jun 30 06:11:05
+wank-goo.goo/1.1/Mon Jun 30 06:11:05
+indentation.lisp/1.1/Mon Jun 30 06:11:05
+swank-kawa.scm/1.7/Mon Jun 30 06:11:05
+wank-listener-hooks.lisp/1.1/Mon Jun 30 06:11:05
+wank-mit-scheme.scm/1.3/Mon Jun 30 06:11:05
+motd.lisp/1.1/Mon Jun 30 06:11:05
+presentation-streams.lisp/1.5/Mon Jun 30 06:11:05
+presentations.lisp/1.5/Mon Jun 30 06:11:05
-D

trunk/thirdparty/slime/contrib/ChangeLog

@@ +1 @@
+2008-06-07  Tobias C. Rittweiler  <tcr@freebits.de>
+
+        * slime-parse.el (slime-cl-symbol-name),
+        (slime-cl-symbol-package),
+        (slime-qualify-cl-symbol-name): Moved back to `slime.el' as
+        they're still used there.
+
-2008-04-17  Gábor Melis <mega@retes.hu>
-

trunk/thirdparty/slime/contrib/slime-parse.el

@@ -26 +26 @@
-             (slime-make-form-spec-from-string 
-              (concat (slime-incomplete-sexp-at-point) ")"))))))))
-
-;; XXX: unused function
-(defun slime-cl-symbol-external-ref-p (symbol)
-  "Does SYMBOL refer to an external symbol?
-FOO:BAR is an external reference.
-FOO::BAR is not, and nor is BAR."
-  (let ((name (if (stringp symbol) symbol (symbol-name symbol))))
-    (and (string-match ":" name)
-         (not (string-match "::" name)))))
-
-(defun slime-cl-symbol-name (symbol)
-  (let ((n (if (stringp symbol) symbol (symbol-name symbol))))
-    (if (string-match ":\\([^:]*\\)$" n)
-        (let ((symbol-part (match-string 1 n)))
-          (if (string-match "^|\\(.*\\)|$" symbol-part)
-              (match-string 1 symbol-part)
-              symbol-part))
-      n)))
-
-(defun slime-cl-symbol-package (symbol &optional default)
-  (let ((n (if (stringp symbol) symbol (symbol-name symbol))))
-    (if (string-match "^\\([^:]*\\):" n)
-        (match-string 1 n)
-      default)))
-
-;; XXX: unused function
-(defun slime-qualify-cl-symbol (symbol-or-name)
-  "Like `slime-qualify-cl-symbol-name', but interns the result."
-  (intern (slime-qualify-cl-symbol-name symbol-or-name)))
-
-(defun slime-qualify-cl-symbol-name (symbol-or-name)
-  "Return a package-qualified symbol-name that indicates the CL symbol
-SYMBOL. If SYMBOL doesn't already have a package prefix the current
-package is used."
-  (let ((s (if (stringp symbol-or-name)
-               symbol-or-name
-             (symbol-name symbol-or-name))))
-    (if (slime-cl-symbol-package s)
-        s
-      (format "%s::%s"
-              (let* ((package (slime-current-package)))
-                ;; package is a string like ":cl-user" or "CL-USER".
-                (if (and package (string-match "^:" package))
-                    (substring package 1)
-                  package))
-              (slime-cl-symbol-name s)))))
-
-
-(defun slime-parse-sexp-at-point (&optional n skip-blanks-p)

trunk/thirdparty/slime/contrib/swank-asdf.lisp

@@ -9 +9 @@
-
-(in-package :swank)
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (require :asdf))
-
-(defslimefun operate-on-system-for-emacs (system-name operation &rest keywords)

trunk/thirdparty/slime/doc/CVS/Entries

@@ -1 @@
-Tue Mar 11 05:01:3
-Tue Mar 11 05:01:3
-Tue Mar 11 05:01:3
-Tue Mar 11 05:01:3
-Tue Mar 11 05:01:3
-Tue Mar 11 05:01:3
-Tue Mar 11 05:01:3
-Tue Mar 11 05:01:3
+Mon Jun 30 06:11:0
+Mon Jun 30 06:11:0
+Mon Jun 30 06:11:0
+Mon Jun 30 06:11:0
+Mon Jun 30 06:11:0
+Mon Jun 30 06:11:0
+Mon Jun 30 06:11:0
+Mon Jun 30 06:11:0
-D

trunk/thirdparty/slime/slime.el

@@ -1665 +1665 @@
-This is more compatible with the CL reader."
-  (with-temp-buffer
-
-
+
+
+
+
-      (prin1 sexp (current-buffer))
-      (buffer-string))))
@@ -4498 +4500 @@
-                                        (let ((spec (read el)))
-                                          (if (eq (car spec) 'EQL)
-
+
+
-                                            (error "don't understand specializer: %s,%s" el (car spec))))
-                                      (concat ".+?\n\\{0,1\\}.+?\\<" el "\\>")))
@@ -4563 +4566 @@
-        (slime-search-call-site fname)))
-    (point)))
-
-(defmacro slime-point-moves-p (&rest body)
-  "Execute BODY and return true if the current buffer's point moved."
-  (let ((pointvar (gensym "point-")))
-    `(let ((,pointvar (point)))
-       (save-current-buffer ,@body)
-       (/= ,pointvar (point)))))
-
-(put 'slime-point-moves-p 'lisp-indent-function 0)
-
-(defun slime-forward-sexp (&optional count)
-  "Like `forward-sexp', but understands reader-conditionals (#- and #+)."
-  (dotimes (i (or count 1))
-    (while (slime-point-moves-p (slime-forward-blanks)
-                                (slime-forward-reader-comment)
-                                (slime-forward-reader-conditional)))
-    (forward-sexp)))
-
-(defun slime-forward-blanks ()
-  "Move forward over all whitespace and newlines at point."
-  (ignore-errors
-    (while (slime-point-moves-p
-             (skip-syntax-forward " ")
-             ;; newlines aren't in lisp-mode's whitespace syntax class
-             (when (eolp) (forward-char))))))
-
-;; Emacs 21's forward-sexp understands #| |# comments in lisp-mode
-;; buffers, but (at least) Emacs 20's doesn't, so here it is.
-(defun slime-forward-reader-comment ()
-  "Move forward over #|...|# reader comments. The comments may be nested."
-  (when (looking-at "#|")
-    (goto-char (match-end 0))
-    (while (not (looking-at "|#"))
-      (re-search-forward (regexp-opt '("|#" "#|")))
-      (goto-char (match-beginning 0))
-      (when (looking-at "#|")           ; nested comment
-        (slime-forward-reader-comment)))
-    (goto-char (match-end 0))))
-
-(defun slime-forward-reader-conditional ()
-  "Move past any reader conditional (#+ or #-) at point."
-  (when (or (looking-at "#\\+")
-            (looking-at "#-"))
-    (goto-char (match-end 0))
-    (let* ((plus-conditional-p (eq (char-before) ?+))
-           (result (slime-eval-feature-conditional (read (current-buffer)))))
-      (unless (if plus-conditional-p result (not result))
-        ;; skip this sexp
-        (slime-forward-sexp)))))
-
-(defun slime-keywordify (symbol)
-  "Make a keyword out of the symbol SYMBOL."
-  (let ((name (downcase (symbol-name symbol))))
-    (intern (if (eq ?: (aref name 0)) 
-                name 
-              (concat ":" name)))))
-
-(defun slime-eval-feature-conditional (e)
-  "Interpret a reader conditional expression."
-  (if (symbolp e)
-      (memq (slime-keywordify e) (slime-lisp-features))
-    (funcall (ecase (slime-keywordify (car e))
-               (:and #'every)
-               (:or #'some)
-               (:not (lambda (f l) (not (apply f l)))))
-             #'slime-eval-feature-conditional
-             (cdr e))))
-
-
@@ -5389 +5325 @@
-
-(defun slime-call-defun ()
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-;;;; Edit Lisp value
@@ -5501 +5448 @@
-           ((setf n)
-            (slime-read-from-minibuffer "(Un)trace: " (prin1-to-string spec)))
-(:defun :defmacro)
+:defun
-            (slime-read-from-minibuffer "(Un)trace: " (prin1-to-string n)))
-           ((:defgeneric n)
@@ -5528 +5475 @@
-           (((:labels :flet) &rest _)
-            (slime-read-from-minibuffer "(Un)trace local function: "
-
+
+
-
-(defun slime-extract-context ()
@@ -5542 +5490 @@
- (defun ... (...) ... (n.ame ...) ...)   -> (:call (:defun ...) name)
- (defun ... (...) ... (setf (n.ame ...)  -> (:call (:defun ...) (setf name))
+
+ (defmacro n.ame (...) ...)              -> (:defmacro name)
+ (defsetf n.ame (...) ...)               -> (:defsetf name)
+ (define-setf-expander n.ame (...) ...)  -> (:define-setf-expander name)
+ (define-modify-macro n.ame (...) ...)   -> (:define-modify-macro name)
+ (define-compiler-macro n.ame (...) ...) -> (:define-compiler-macro name)
-
-For other contexts we return the symbol at point."
@@ -5585 +5539 @@
-                   (t
-                    `(:call ,toplevel ,name)))))
+          ((slime-in-expression-p '(define-compiler-macro *))
+           `(:define-compiler-macro ,name))
+          ((slime-in-expression-p '(define-modify-macro *))
+           `(:define-modify-macro ,name))
+          ((slime-in-expression-p '(define-setf-expander *))
+           `(:define-setf-expander ,name))
+          ((slime-in-expression-p '(defsetf *))
+           `(:defsetf ,name))
-          (t 
-           name))))
@@ -5626 +5588 @@
-
-(defun slime-parse-toplevel-form ()
-
-
-
-
-
+
+
+
+
+
+
-                 
-(defun slime-arglist-specializers (arglist)
@@ -6208 +6171 @@
-             (goto-char point))))))))
-
-       
-(defun slime-macroexpand-1 (&optional repeatedly)
-  "Display the macro expansion of the form at point.  The form is
@@ -7172 +7134 @@
-        (erase-buffer)
-        (loop for idx from 0 
-name status id
-
+id name status desc
+desc 
-        (goto-char (point-min))
-        (setq buffer-read-only t)
-        (pop-to-buffer (current-buffer))))))
-
-
+tatus s
-  (slime-propertize-region `(thread-id ,idx)
-    (insert (format "%3s: " id))
@@ -7184 +7146 @@
-    (insert-char ?\  (- 30 (current-column)))
-    (let ((summary-start (point)))
+      (insert " " status)
-      (insert " " summary)
-      (unless (bolp) (insert "\n"))
@@ -7414 +7377 @@
-              (move-to-column (cdr point)))))))))
-
+(defvar slime-inspector-limit 500)
+
-(defun slime-inspector-insert-content (content)
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-    (when (and prev (> start 0))
-range-button (max 0 (- start limit))
+more-button
-    (mapc #'slime-inspector-insert-ispec ispecs)
-    (when (and next (< end len))
-range-button end (min len (+ end limit))
+more-button end
-
-(defun slime-inspector-insert-ispec (ispec)
@@ -7479 +7445 @@
-           (push (slime-inspector-position) slime-inspector-mark-stack))
-          (range-button
-rang
+mor
-          (action-number 
-           (slime-eval-async `(swank::inspector-call-nth-action ,action-number)
@@ -7604 +7570 @@
-                        (slime-open-inspector parts point)))))
-
-range-button (start end
+more-button (index
-  (slime-insert-propertized 
-start end
+index
-         'mouse-face 'highlight
-         'face 'slime-inspector-action-face)
-   (if previous " [--more--]\n" " [--more--]")))
-
-rang
-start end previous
-eval-async
-`(swank:inspector-range ,start ,end)
-
-ontent
+mor
+index prev
+inspector-fetch-chunk
+(list '() (1+ index) index index) prev
+ 
+hunk
-        (let ((inhibit-read-only t))
-          (apply #'delete-region (slime-property-bounds 'slime-range-button))
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-(slime-define-keys slime-inspector-mode-map
@@ -8487 +8485 @@
-         ,(buffer-name)
-         ,0
+         ,nil
-         ,nil))
-      (let ((bufname (buffer-name)))
@@ -8525 +8524 @@
-      ("swank::emacs-connected" "(swank::emacs-connected )")
-      ("swank::compile-string-for-emacs"
-
+ debug
-      ("swank::connection.socket-io"
-       "(swank::connection.socket-io \\(struct\\(ure\\)?\\|object\\|instance\\))")
@@ -9092 +9091 @@
-      (or (/= beg 1) (/= end (1+ total))))))
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-;;;;; Extracting Lisp forms from the buffer or user
-
@@ -9166 +9267 @@
-      (error "No expression at point.")))
-
+
-;;;; Portability library
-

trunk/thirdparty/slime/swank-allegro.lisp

@@ -415 +415 @@
-   (t
-    (let ((defs (excl::find-source-file fspec)))
+      (when (and (null defs)
+                 (listp fspec)
+                 (string= (car fspec) '#:method))
+        ;; If methods are defined in a defgeneric form, the source location is
+        ;; recorded for the gf but not for the methods. Therefore fall back to
+        ;; the gf as the likely place of definition.
+        (setq defs (excl::find-source-file (second fspec))))
-      (if (null defs)
-          (list

trunk/thirdparty/slime/swank-backend.lisp

@@ -959 +959 @@
-   "")
-
+(definterface thread-description (thread)
+  "Return a string describing THREAD."
+  (declare (ignore thread))
+  "")
+
+(definterface set-thread-description (thread description)
+  "Set THREAD's description to DESCRIPTION."
+  (declare (ignore thread description))
+  "")
+
-(definterface make-lock (&key name)
-   "Make a lock for thread synchronization.

trunk/thirdparty/slime/swank-cmucl.lisp

@@ -101 +101 @@
-(defimplementation accept-connection (socket &key
-                                      external-format buffering timeout)
-
-
-
+
+
+
+
-
-(defimplementation find-external-format (coding-system)
@@ -122 +123 @@
-    (car (ext:host-entry-addr-list hostent))))
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-  "Create a new input/output fd-stream for FD."
+  #-unicode(declare (ignore external-format))
-  (sys:make-fd-stream fd :input t :output t :element-type 'base-char
-
+
+
+
-
-;;;;; Signal-driven I/O

trunk/thirdparty/slime/swank-lispworks.lisp

@@ -226 +226 @@
-      (funcall fun))))
-
+(defimplementation install-debugger-globally (function)
+  (setq *debugger-hook* function)
+  (setf (env:environment) (slime-env function '())))
+
-(defvar *sldb-top-frame*)
-

trunk/thirdparty/slime/swank-sbcl.lisp

@@ -15 +15 @@
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (require 'asdf)
-  (require 'sb-bsd-sockets)
-  (require 'sb-introspect)
@@ -21 +20 @@
-  (require 'sb-cltl2))
-
-
+
+
+
+
-
-(import-from :sb-gray *gray-stream-symbols* :swank-backend)
@@ -48 +50 @@
-    (if (find-symbol "FRAME-HAS-DEBUG-TAG-P" "SB-DEBUG")
-        '(:and)
-
+
+
+
+