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@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@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@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@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()

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