[slime-devel] Bug fix for inspecting logical-pathnames - slime-devel - mailman3.common-lisp.net

5 Feb 2006


      There is a missing comma for backquote substitution in the following
method that causes an error when inpecting logical-pathnames using
SLIME.
Error in function SWANK::INSPECTOR-CONTENT-FOR-EMACS:
   destructure-case failed: (PATHNAME-HOST PATHNAME)
   [Condition of type SIMPLE-ERROR]
Restarts:
  0: [ABORT] ABORT
  1: [ABORT-REQUEST] Abort handling SLIME request.
  2: [ABORT] Return to Top-Level.
Backtrace:
  0: (SWANK::INSPECTOR-CONTENT-FOR-EMACS ("Namestring" ": " (:VALUE "FREEDIUS:LISP;MATH;MATRICES.LISP") (:NEWLINE) "Physical pathname: " ...))
  1: (SWANK::INSPECT-OBJECT #P"FREEDIUS:LISP;MATH;MATRICES.LISP" #<SWANK-BACKEND::CMUCL-INSPECTOR {5BA62CBD}>)
...
The literal form (pathname-host pathname) gets passed to
SWANK::INSPECTOR-CONTENT-FOR-EMACS instead of its value.
I have added the comma in the line indicated by 
   ; <<< COMMA NEEDED HERE
(defmethod inspect-for-emacs ((pathname logical-pathname) inspector)
  (declare (ignore inspector))
  (values "A logical pathname."
          (append 
           (label-value-line*
            ("Namestring" (namestring pathname))
            ("Physical pathname: " (translate-logical-pathname pathname)))
           `("Host: " ,(pathname-host pathname)  ; <<< COMMA NEEDED HERE
                    " (" (:value ,(logical-pathname-translations 
                                   (pathname-host pathname))) 
                    "other translations)"
                    (:newline))
           (label-value-line*
            ("Directory" (pathname-directory pathname))
            ("Name" (pathname-name pathname))
            ("Type" (pathname-type pathname))
            ("Version" (pathname-version pathname))
            ("Truename" (if (not (wild-pathname-p pathname))
                            (probe-file pathname)))))))