[slime-devel] slime-rgrep-system leads to invalid packet

[Tamas Papp]

Hi,

I am using the latest slime (from cvs), sbcl 1.1.4 (but the same thing
happens with 1.1.3), GNU Emacs 24.2.1 (x86_64-pc-linux-gnu, GTK+ Version
3.4.2) of 2013-01-20 on trouble, modified by Debian.

When I call slime-rgrep-system, I get an error message that looks like this:

Invalid read syntax: "#"
in packet:
(:return (:ok #<asdf:system "array-operations">) 367)

Then I am offered the choice of skipping the packet or entering the
debugger.  The latter gives:

Debugger entered--Lisp error: (invalid-read-syntax "#")
  (progn (debug (quote error) error))
  (if (y-or-n-p "Enter debugger instead? ") (progn (debug (quote error) error)))
  (when (y-or-n-p "Enter debugger instead? ") (debug (quote error) error))
  (cond ((y-or-n-p "Skip this packet? ") (\` (:emacs-skipped-packet (\, packet)))) (t (when (y-or-n-p "Enter debugger instead? ") (debug (quote error) error)) (signal (car error) (cdr error))))
  (let ((packet (buffer-string))) (slime-with-popup-buffer ((slime-buffer-name :error)) (princ (format "%s\nin packet:\n%s" (error-message-string error) packet)) (goto-char (point-min))) (cond ((y-or-n-p "Skip this packet? ") (\` (:emacs-skipped-packet (\, packet)))) (t (when (y-or-n-p "Enter debugger instead? ") (debug (quote error) error)) (signal (car error) (cdr error)))))
  slime-handle-net-read-error((invalid-read-syntax "#"))
  slime-net-read()
  (condition-case error (slime-net-read) (error (slime-net-close process t) (error "net-read error: %S" error)))
  slime-net-read-or-lose(#<process SLIME Lisp>)
  slime-process-available-input(#<process SLIME Lisp>)
  slime-net-filter(#<process SLIME Lisp> "000035(:return (:ok #<asdf:system \"array-operations\">) 367)")
  accept-process-output(nil 0.01)
  (cond (slime-accept-process-output-supports-floats (accept-process-output process timeout)) (t (accept-process-output process (if timeout (truncate timeout)) (if timeout (truncate (* timeout 1000000))))))
  slime-accept-process-output(nil 0.01)
  (while t (unless (eq (process-status conn) (quote open)) (error "Lisp connection closed unexpectedly")) (slime-accept-process-output nil 0.01))
  (let ((debug-on-quit t) (inhibit-quit nil) (conn (slime-connection))) (while t (unless (eq (process-status conn) (quote open)) (error "Lisp connection closed unexpectedly")) (slime-accept-process-output nil 0.01)))
  (catch tag (slime-rex (tag sexp) (sexp package) ((:ok value) (unless (member tag slime-stack-eval-tags) (error "Reply to canceled synchronous eval request tag=%S sexp=%S" tag sexp)) (throw tag (list (function identity) value))) ((:abort _condition) (throw tag (list (function error) "Synchronous Lisp Evaluation aborted")))) (let ((debug-on-quit t) (inhibit-quit nil) (conn (slime-connection))) (while t (unless (eq (process-status conn) (quote open)) (error "Lisp connection closed unexpectedly")) (slime-accept-process-output nil 0.01))))
  (apply (function funcall) (catch tag (slime-rex (tag sexp) (sexp package) ((:ok value) (unless (member tag slime-stack-eval-tags) (error "Reply to canceled synchronous eval request tag=%S sexp=%S" tag sexp)) (throw tag (list (function identity) value))) ((:abort _condition) (throw tag (list (function error) "Synchronous Lisp Evaluation aborted")))) (let ((debug-on-quit t) (inhibit-quit nil) (conn (slime-connection))) (while t (unless (eq (process-status conn) (quote open)) (error "Lisp connection closed unexpectedly")) (slime-accept-process-output nil 0.01)))))
  (let* ((tag (gensym (format "slime-result-%d-" (1+ (slime-continuation-counter))))) (slime-stack-eval-tags (cons tag slime-stack-eval-tags))) (apply (function funcall) (catch tag (slime-rex (tag sexp) (sexp package) ((:ok value) (unless (member tag slime-stack-eval-tags) (error "Reply to canceled synchronous eval request tag=%S sexp=%S" tag sexp)) (throw tag (list (function identity) value))) ((:abort _condition) (throw tag (list (function error) "Synchronous Lisp Evaluation aborted")))) (let ((debug-on-quit t) (inhibit-quit nil) (conn (slime-connection))) (while t (unless (eq (process-status conn) (quote open)) (error "Lisp connection closed unexpectedly")) (slime-accept-process-output nil 0.01))))))
  slime-eval((swank:asdf-determine-system "/home/tamas/src/lisp/array-operations/src/transformations.lisp" "#:array-operations"))
  slime-determine-asdf-system("/home/tamas/src/lisp/array-operations/src/transformations.lisp" "#:array-operations")
  (if determine-default-accurately (slime-determine-asdf-system (buffer-file-name) (slime-current-package)) (slime-find-asd-file (or default-directory (buffer-file-name)) system-names))
  (or default-value (if determine-default-accurately (slime-determine-asdf-system (buffer-file-name) (slime-current-package)) (slime-find-asd-file (or default-directory (buffer-file-name)) system-names)))
  (let* ((completion-ignore-case nil) (prompt (or prompt "System")) (system-names (slime-eval (\` (swank:list-asdf-systems)))) (default-value (or default-value (if determine-default-accurately (slime-determine-asdf-system (buffer-file-name) (slime-current-package)) (slime-find-asd-file (or default-directory (buffer-file-name)) system-names)))) (prompt (concat prompt (if default-value (format " (default `%s'): " default-value) ": ")))) (completing-read prompt (slime-bogus-completion-alist system-names) nil nil nil (quote slime-system-history) default-value))
  slime-read-system-name(nil nil t)
  (list (slime-read-system-name nil nil t) (grep-read-regexp))
  (progn (grep-compute-defaults) (list (slime-read-system-name nil nil t) (grep-read-regexp)))
  call-interactively(slime-rgrep-system t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)

Please let me know if I can provide any other useful information.

Best,

Tamas