/[slime]/slime/swank-clisp.lisp
ViewVC logotype

Diff of /slime/swank-clisp.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.52 by mbaringer, Fri Aug 12 11:14:24 2005 UTC revision 1.53 by mbaringer, Mon Aug 15 08:57:51 2005 UTC
# Line 188  Return NIL if the symbol is unbound." Line 188  Return NIL if the symbol is unbound."
188      (:class (describe (find-class symbol)))))      (:class (describe (find-class symbol)))))
189    
190  (defun fspec-pathname (symbol)  (defun fspec-pathname (symbol)
191    (let ((path (gethash symbol sys::*documentation*)))    (let ((path (documentation symbol 'sys::file)))
192      (if (and path      (if (and path
193               (member (pathname-type path)               (member (pathname-type path)
194                       custom:*compiled-file-types* :test #'string=))                       custom:*compiled-file-types* :test #'string=))

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

  ViewVC Help
Powered by ViewVC 1.1.5