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

Diff of /slime/swank-loader.lisp

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

revision 1.107 by alendvai, Fri Oct 15 22:53:45 2010 UTC revision 1.108 by sboukarev, Sat Oct 16 10:10:38 2010 UTC
# Line 126  Return nil if nothing appropriate is ava Line 126  Return nil if nothing appropriate is ava
126  (defun default-fasl-dir ()  (defun default-fasl-dir ()
127    (or    (or
128     ;; If ASDF is available then store Slime's fasl's where ASDF stores them.     ;; If ASDF is available then store Slime's fasl's where ASDF stores them.
129     (let ((translate-fn (find-symbol "COMPILE-FILE-PATHNAME*" :asdf)))     (let ((translate-fn (and (find-package :asdf)
130                                (find-symbol "COMPILE-FILE-PATHNAME*" :asdf))))
131       (when translate-fn       (when translate-fn
132         (make-pathname         (make-pathname
133          :name nil :type nil          :name nil :type nil

Legend:
Removed from v.1.107  
changed lines
  Added in v.1.108

  ViewVC Help
Powered by ViewVC 1.1.5