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