[clisp-list] Re: slime patch

[Sam S. <sd...@gn...>]

> * Yaroslav Kavenchuk <xnirapuhx@wragl.ol> [2005-08-03 12:00:35 +0300]:
>
> clisp from CVS head, mingw
> GNU Emacs 22.0.50.1
> slime from CVS head
>
> for
>> use symbol property lists instead of the global *DOCUMENTATION* hash table
>
> need edit swank-clisp.lisp
>
> @@ -188,7 +188,8 @@
>      (:class (describe (find-class symbol)))))
>
>  (defun fspec-pathname (symbol)
> -  (let ((path (getf (gethash symbol sys::*documentation*) 'sys::file)))
> +  (let ((path (getf (get (get-doc-entity-symbol object) 'sys::doc)
> +                    'sys::file)))
>      (if (and path
>              (member (pathname-type path)
>                      custom:*compiled-file-types* :test #'string=))

it was wrong before, it is wrong now.

(documentation symbol 'sys::file) is what you need.

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.dhimmi.com/> <http://www.openvotingconsortium.org/>
<http://www.iris.org.il> <http://pmw.org.il/> <http://www.mideasttruth.com/>
If you're being passed on the right, you're in the wrong lane.