[slime-devel] Daily ChangeLog diff

[farlies]

Helmut Eller wrote:
> Index: slime/contrib/ChangeLog
> diff -u slime/contrib/ChangeLog:1.217 slime/contrib/ChangeLog:1.218
> --- slime/contrib/ChangeLog:1.217	Sun Jun 14 12:47:34 2009
> +++ slime/contrib/ChangeLog	Tue Jun 16 02:36:40 2009
> @@ -1,3 +1,10 @@
> +2009-06-16  Tobias C. Rittweiler  <tcr at freebits.de>
> +
> +	* slime-fontifying-fu.el (slime-search-suppressed-form):
> +	Additional exit constraint for the loop; make sure we'r still in
> +	the limit.
> +	(slime-compute-region-for-font-lock): Simplify.
> +
>  2009-06-14  Tobias C. Rittweiler  <tcr at freebits.de>
>  
>  	* slime-fontifying-fu.el (slime-search-suppressed-form): Retry the
> 

Thanks for looking at this.

Issue with reader conditionals and fontification not quite solved.
However, there is progress in the form of a back trace and a simple test case.
The glitch seems to strike when typing in the form that is conditionally
DISabled in the current lisp, #-sbcl below:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(in-package :cl-user)

#+sbcl
(defun foo () 1)

#-sbcl
(defun foo () 2)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(2) (slime,warning/warning) "tmp.lisp":9:16 (pt=74).
Caught error during fontification while searching for forms
that are suppressed by reader-conditionals. The error was: (cl-assertion-failed (<= (point) limit)).

This is a bug in Slime itself. Please report this to the
mailinglist slime-devel at common-lisp.net and include your Emacs
version, the guilty Lisp source file, the header of this
message, and the following backtrace.

Backtrace:
  backtrace()
  (let ((standard-output standard-output)) (backtrace))
  (let ((standard-output ...)) (let (...) (backtrace)) (with-current-buffer standard-output (prog1 ... ...)))
  (with-output-to-string (backtrace))
  (slime-display-warning "%S:%d:%d (pt=%d).\n%s\n\nThis is a bug in Slime itself. Please report this to the\nmailinglist
slime-devel at common-lisp.net and include your Emacs\nversion, the guilty Lisp source file, the header of this\nmessage, and the
following backtrace.\n\nBacktrace:\n%s\n--------------------------------------------------------------\n" (buffer-name)
(line-number-at-pos) (current-column) (point) (apply (function format) message args) (with-output-to-string (backtrace)))
  slime-bug("Caught error during fontification while searching for forms\nthat are suppressed by reader-conditionals. The error was:
%S." (cl-assertion-failed (<= (point) limit)))
  byte-code("..." [condition result nil slime-bug "Caught error during fontification while searching for forms\nthat are suppressed
by reader-conditionals. The error was: %S."] 3)
  slime-search-suppressed-forms(58)
  font-lock-fontify-keywords-region(51 58 nil)
  font-lock-default-fontify-region(51 58 nil)
  font-lock-fontify-region(51 58)
  byte-code("..." [end next beg text-property-any lazy-lock t 0 nil font-lock-fontify-region lazy-lock-put-text-property] 6)
  lazy-lock-fontify-region(1 76)
  lazy-lock-fontify-window(#<window on "tmp.lisp" 0x24b14>)
  walk-windows(lazy-lock-fontify-window no-minibuf #<x-frame "XEmacs" 0x24b0e>)
  lazy-lock-maybe-fontify-frame(#<x-frame "XEmacs" 0x24b0e>)
  byte-code("..." [starting-frame frame selected-frame frame-visible-p frame-minibuffer-only-p next-frame visible-nomini throw
lazy-lock-frame-loop-done t lazy-lock-maybe-fontify-frame] 4)
  lazy-lock-pre-idle-fontify-windows()

--------------------------------------------------------------