It can be possible to apply this patch? (slime from CVS head do not work "out of the box" with clisp from CVS head)
+++ swank-clisp.lisp Thu Aug 4 06:35:25 2005 @@ -188,7 +188,7 @@ (:class (describe (find-class symbol)))))
(defun fspec-pathname (symbol) - (let ((path (getf (gethash symbol sys::*documentation*) 'sys::file))) + (let ((path (documentation symbol 'sys::file))) (if (and path (member (pathname-type path) custom:*compiled-file-types* :test #'string=))
Refs: http://article.gmane.org/gmane.lisp.clisp.general/9935 http://article.gmane.org/gmane.lisp.clisp.general/9944
Thanks.
Yaroslav Kavenchuk kavenchuk@jenty.by writes:
It can be possible to apply this patch? (slime from CVS head do not work "out of the box" with clisp from CVS head)
+++ swank-clisp.lisp Thu Aug 4 06:35:25 2005 @@ -188,7 +188,7 @@ (:class (describe (find-class symbol)))))
(defun fspec-pathname (symbol)
- (let ((path (getf (gethash symbol sys::*documentation*) 'sys::file)))
- (let ((path (documentation symbol 'sys::file))) (if (and path (member (pathname-type path) custom:*compiled-file-types* :test #'string=))
will this break non CVS clisp? is there a way to suuport both (at least until a CLISP with this patch is released)?
Marco Baringer wrote:
It can be possible to apply this patch? (slime from CVS head do not work "out of the box" with clisp from CVS
head)
+++ swank-clisp.lisp Thu Aug 4 06:35:25 2005 @@ -188,7 +188,7 @@ (:class (describe (find-class symbol)))))
(defun fspec-pathname (symbol)
- (let ((path (getf (gethash symbol sys::*documentation*)
'sys::file)))
- (let ((path (documentation symbol 'sys::file))) (if (and path (member (pathname-type path) custom:*compiled-file-types* :test #'string=))
will this break non CVS clisp?
developer has said - no http://article.gmane.org/gmane.lisp.clisp.general/9944
is there a way to suuport both (at least until a CLISP with this patch is released)?
has make sense?
Thanks.
-
Marco Baringer -
Yaroslav Kavenchuk