Permalink
Browse files

Merge commit '47dec9fcf9d5b8d0fb51309f3be6d29e1cd2ecb0' into develop

  • Loading branch information...
hugoduncan committed May 4, 2011
2 parents 7ca06b6 + 47dec9f commit b5b918d74389333bbf23920afe9df8f546cb32ee
View
@@ -1,141 +1,3 @@
-2011-04-16 Stas Boukarev <stassats@gmail.com>
-
- * slime.el (slime-load-failed-fasl): New variable. Accepts `ask',
- `always', and `never' symbols. Loads or not loads fasls produced by
- compile-file which returned non-nil failure-p.
-
-2011-04-14 Stas Boukarev <stassats@gmail.com>
-
- * swank.lisp (list-threads): Call `use-threads-p' only when
- *emacs-connection* is non-nil. `use-threads-p' wouldn't work in
- this case, and there is no need to remove a worker thread from the
- list if it's not connected.
- This fixes an issue with calling swank:stop-server when slime
- isn't connected.
-
-2011-03-13 Stas Boukarev <stassats@gmail.com>
-
- * swank.lisp (format-restarts-for-emacs): Add
- without-printing-errors around restart printing.
-
-2011-03-09 Helmut Eller <heller@common-lisp.net>
-
- Remove slime-sexp-at-point-for-macroexpansion.
-
- * slime.el (slime-sexp-at-point-for-macroexpansion): Deleted.
- (slime-eval-macroexpand): Use slime-sexp-at-point instead.
- (slime-eval-macroexpand-inplace): Use
- slime-bounds-of-sexp-at-point directly.
-
-2011-03-09 Helmut Eller <heller@common-lisp.net>
-
- Move some of the logic from slime-sexp-at-point-for-macroexpansion
- into slime-sexp-at-point.
-
- * slime.el (slime-bounds-of-sexp-at-point): New. Special case if
- we are at '( as slime-sexp-at-point-for-macroexpansion does.
- (slime-bounds-of-symbol-at-point): New.
- (slime-symbol-at-point, slime-sexp-at-point): Use the above.
-
-2011-02-24 Stas Boukarev <stassats@gmail.com>
-
- * swank-allegro.lisp (find-topframe): Fix excl::int-newest-frame
- invocation for the latest alpha version of Allegro.
- Patch by G�bor Melis.
-
-2011-02-18 Stas Boukarev <stassats@gmail.com>
-
- * slime.el (slime-init-popup-buffer): Don't use
- multiple-value-setq on a list, XEmacs doesn't like it.
-
-2011-02-18 Stas Boukarev <stassats@gmail.com>
-
- * slime.el (slime-insert-threads): Make sure newlines have the
- same thread-id property as the rest of the line. This fixes
- confusion when point is at the end of a line.
-
-2011-02-13 Stas Boukarev <stassats@gmail.com>
-
- * slime.el (slime-inspector-operate-on-point): Don't save the
- point when inspecting a different object.
- (slime-inspector-operate-on-point): If there is no action property
- directly at the point, try looking at (1- (point)), many
- inspectable objects are presented the end of the line, so it's
- easier to navigate to them by C-e and still being able to activate
- it.
-
-2011-02-08 Stas Boukarev <stassats@gmail.com>
-
- * slime.el (slime-choose-overlay-region): Don't use `list' instead
- of `values', GNU Emacs fakes multiple values with lists, but
- XEmacs uses real multiple values.
- Reported by Raymond Toy.
-
-2011-02-04 Helmut Eller <heller@common-lisp.net>
-
- Be careful with interning.
-
- * swank.lisp (find-definitions-for-emacs): Use parse-symbol.
-
-2011-02-04 Helmut Eller <heller@common-lisp.net>
-
- Don't double encode results for eval-in-emacs.
-
- * slime.el (slime-check-eval-in-emacs-result): New.
- (slime-eval-for-lisp): Use it.
- * swank.lisp (unreadable-object): Removed.
-
-2011-02-02 Stas Boukarev <stassats@gmail.com>
-
- * swank.lisp (eval-in-emacs): Return unreadable results from Emacs
- as an unreadable-object, not as a string.
-
-2011-02-02 Stas Boukarev <stassats@gmail.com>
-
- * slime.el (slime-eval-for-lisp): Return value as a string,
- because it can be unreadable, e.g. #<buffer foo>
- * swank.lisp (eval-in-emacs): Prevent reader errors.
-
-2011-02-02 Stas Boukarev <stassats@gmail.com>
-
- * swank.lisp (eval-in-emacs): Export it.
-
-2011-01-28 Stas Boukarev <stassats@gmail.com>
-
- * slime.el (slime-check-location-filename-sanity): Guard
- against target-filename being NIL.
-
-2011-01-26 Helmut Eller <heller@common-lisp.net>
-
- Allow tail-merging in call-with-bindings.
-
- * swank.lisp (call-with-bindings): Don't use progv if alist is
- empty alist is empty.
-
-2011-01-20 Stas Boukarev <stassats@gmail.com>
-
- * swank-ecl.lisp (+TAGS+): change
- (translate-logical-pathname #P"SYS:TAGS") to
- (merge-pathnames "TAGS" (translate-logical-pathname "SYS:"))
- because of case conversion the former results in a pathname with a
- name "tags", which doesn't exist.
-
-2010-12-10 Stas Boukarev <stassats@gmail.com>
-
- * slime.el (slime-with-popup-buffer): Correct the docstring.
-
-2010-12-09 Helmut Eller <heller@common-lisp.net>
-
- * slime.el (slime-toggle-break-on-signals): New command.
- * swank.lisp (toggle-break-on-signals): The corresponding Lisp code.
-
-2010-12-02 Martin Simmons <martin@lispworks.com>
-
- * swank-lispworks.lisp (frame-actual-args): Reimplement to include
- only the values like on other platforms and deal with, optional
- key and rest args.
- (print-frame): Format the frame as a call like in other backends.
-
2010-11-13 Helmut Eller <heller@common-lisp.net>
Improve source locations for compiler messages in Lispworks.
View
@@ -1,64 +1,3 @@
-2011-03-14 Stas Boukarev <stassats@gmail.com>
-
- * swank-sprof.lisp (swank-sprof-get-call-graph): Don't call
- serialize-call-graph when there's no samples. That prevents it
- from crashing.
-
-2011-03-13 Stas Boukarev <stassats@gmail.com>
-
- * slime-sprof.el(abbreviate-name): Rename to
- slime-sprof-abbreviate-name (no package system, oh well...).
-
-2011-03-09 Helmut Eller <heller@common-lisp.net>
-
- * slime-editing-commands.el (slime-beginning-of-defun): Call
- beginning-of-defun with call-interactively so that the mark gets
- pushed.
-
-2011-01-22 Stas Boukarev <stassats@gmail.com>
-
- * slime-repl.el (slime-repl-shortcut-help): Don't make ? an alias
- for help, ? is bound to minibuffer-completion-help, and you can't
- enter it.
-
-2011-01-20 Helmut Eller <heller@common-lisp.net>
-
- * swank-mit-scheme.scm (swank:load-file): Print the result
- instead of returning it which breaks the protocol.
-
- * swank-mit-scheme.scm: Require release 9.
-
-2011-01-12 Helmut Eller <heller@common-lisp.net>
-
- Some more MIT Scheme fixes.
-
- * swank-mit-scheme.scm (swank:compile-string-for-emacs)
- (swank:compile-file-for-emacs): Use new result format.
- (swank:disassemble-form): Added with the needed kludgery for
- quoted forms.
- (swank:swank-require): Define this as nop.
-
-2011-01-11 Helmut Eller <heller@common-lisp.net>
-
- Some upgrades for MIT Scheme backend.
-
- * swank-mit-scheme.scm (netcat, netcat-accept): Use netcat-openbsd
- syntax. This version doesn't print the port number anymore
- defeating the original purpose of using netcat.
- (start-swank): Hardcode portnumber to 4055 until somebody cares
- enough to write proper server ports.
- (emacs-rex): Include a nonsense message with the :abort reply.
-
-2010-12-10 Stas Boukarev <stassats@gmail.com>
-
- * slime-sprof.el (slime-sprof-browser): Rename to
- `slime-sprof-report', leave `slime-sprof-browser' as an alias.
-
-2010-12-09 Stas Boukarev <stassats@gmail.com>
-
- * swank-fancy-inspector.lisp (emacs-inspect): Work on methods
- without associated generic function.
-
2010-10-28 Stas Boukarev <stassats@gmail.com>
* swank-package-fu.lisp (list-structure-symbols): Include the name
@@ -17,8 +17,7 @@
(if (and (boundp 'slime-repl-input-start-mark)
slime-repl-input-start-mark)
(slime-repl-beginning-of-defun)
- (let ((this-command 'beginning-of-defun)) ; needed for push-mark
- (call-interactively 'beginning-of-defun))))
+ (beginning-of-defun)))
(defun slime-end-of-defun ()
(interactive)
@@ -1287,7 +1287,8 @@ expansion will be added to the REPL's history.)"
(not (null buffer-file-name)))))
(save-some-buffers)))
-(defslime-repl-shortcut slime-repl-shortcut-help ("help")
+
+(defslime-repl-shortcut slime-repl-shortcut-help ("help" "?")
(:handler 'slime-list-repl-short-cuts)
(:one-liner "Display the help."))
@@ -12,7 +12,7 @@
`("--"
[ "Start sb-sprof" slime-sprof-start ,C ]
[ "Stop sb-sprof" slime-sprof-stop ,C ]
- [ "Report sb-sprof" slime-sprof-report ,C ])))))
+ [ "Report sb-sprof" slime-sprof-browser ,C ])))))
(defvar slime-sprof-exclude-swank nil
"*Display swank functions in the report.")
@@ -74,9 +74,7 @@
:exclude-swank ,exclude-swank)
'slime-sprof-format))
-(defalias 'slime-sprof-browser 'slime-sprof-report)
-
-(defun slime-sprof-report ()
+(defun slime-sprof-browser ()
(interactive)
(slime-with-popup-buffer ((slime-buffer-name :sprof)
:connection t
@@ -99,7 +97,7 @@
(slime-insert-propertized
(slime-sprof-browser-name-properties)
(format (format "%%-%ds " name-length)
- (slime-sprof-abbreviate-name name name-length)))
+ (abbreviate-name name name-length)))
(insert (format "%6.2f " self))
(when cumul
(insert (format "%6.2f " cumul))
@@ -110,7 +108,7 @@
`(profile-index ,index expanded nil)))
(insert "\n")))
-(defun slime-sprof-abbreviate-name (name max-length)
+(defun abbreviate-name (name max-length)
(lexical-let ((length (min (length name) max-length)))
(subseq name 0 length)))
@@ -166,7 +164,7 @@
(slime-sprof-browser-name-properties)
(let ((len (- 59 (* 2 nesting))))
(format (format "%%-%ds " len)
- (slime-sprof-abbreviate-name name len))))
+ (abbreviate-name name len))))
(slime-sprof-browser-add-line-text-properties
`(profile-sub-index ,index))
(insert (format "%6.2f" cumul)))))))
@@ -412,25 +412,23 @@ See `methods-by-applicability'.")
(all-slots-for-inspector gf))))
(defmethod emacs-inspect ((method standard-method))
- `(,@(if (swank-mop:method-generic-function method)
`("Method defined on the generic function "
- (:value ,(swank-mop:method-generic-function method)
- ,(inspector-princ
- (swank-mop:generic-function-name
- (swank-mop:method-generic-function method)))))
- '("Method without a generic function"))
- (:newline)
- ,@(docstring-ispec "Documentation" method t)
- "Lambda List: " (:value ,(swank-mop:method-lambda-list method))
- (:newline)
- "Specializers: " (:value ,(swank-mop:method-specializers method)
- ,(inspector-princ (method-specializers-for-inspect method)))
- (:newline)
- "Qualifiers: " (:value ,(swank-mop:method-qualifiers method))
- (:newline)
- "Method function: " (:value ,(swank-mop:method-function method))
- (:newline)
- ,@(all-slots-for-inspector method)))
+ (:value ,(swank-mop:method-generic-function method)
+ ,(inspector-princ
+ (swank-mop:generic-function-name
+ (swank-mop:method-generic-function method))))
+ (:newline)
+ ,@(docstring-ispec "Documentation" method t)
+ "Lambda List: " (:value ,(swank-mop:method-lambda-list method))
+ (:newline)
+ "Specializers: " (:value ,(swank-mop:method-specializers method)
+ ,(inspector-princ (method-specializers-for-inspect method)))
+ (:newline)
+ "Qualifiers: " (:value ,(swank-mop:method-qualifiers method))
+ (:newline)
+ "Method function: " (:value ,(swank-mop:method-function method))
+ (:newline)
+ ,@(all-slots-for-inspector method)))
(defmethod emacs-inspect ((class standard-class))
`("Name: " (:value ,(class-name class))
Oops, something went wrong.

0 comments on commit b5b918d

Please sign in to comment.