[slime-devel] Slime bug in fontification and reader conditionals

[Raymond Toy]

I'm attaching the message for a slime internal bug.  I think the issue
is that slime doesn't recognize reader conditionals like #+:executable.
 In fact, changing slime-reader-conditionals-regexp to (regexp-opt
'("#+" "#-" "#!+" "#!-" "#+:" "#-:"))) fixes this issue.  But perhaps
the bug is in slime-search-suppressed-forms?  Changing #+:executable to
#+executable (and #-: to #-) makes slime handle the file.

The file I was looking at was src/code/save.lisp from cmucl.	

Ray

(11) (slime,warning/warning) "save.lisp":298:64 (pt=10630).
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(10507)
  font-lock-fontify-keywords-region(9459 10507 nil)
  font-lock-default-fontify-region(9459 10507 nil)
  font-lock-fontify-region(9459 10507)
  lazy-shot-fontify-internal(#<buffer "save.lisp"> 9459 10491 t "stealthy ")
  lazy-shot-lock-extent(#<destroyed extent> t)
  lazy-shot-stealth-lock(#<buffer "save.lisp">)
  apply(lazy-shot-stealth-lock #<buffer "save.lisp">)
  byte-code("..." [this-command inhibit-quit quit-flag match-data itimer
current-itimer match-data ((store-match-data match-data)) nil
itimer-uses-arguments apply itimer-function itimer-function-arguments
last-event-time next-wakeup itimers time-elapsed] 5)
  itimer-run-expired-timers(1.084827)
  itimer-timer-driver(nil)
  ("execute_internal_event()" "[internal]")
  (dispatch-event "[internal]")