/[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.9 by heller, Fri Dec 12 11:13:07 2003 UTC revision 1.10 by heller, Fri Dec 12 22:56:12 2003 UTC
# Line 65  recompiled." Line 65  recompiled."
65  (defun user-init-file ()  (defun user-init-file ()
66    "Return the name of the user init file or nil."    "Return the name of the user init file or nil."
67    (let ((home (user-homedir-pathname)))    (let ((home (user-homedir-pathname)))
68      (when (probe-file home)      (and (probe-file home)
69        (let ((filename (format nil "~A/.swank.lisp"           (probe-file (format nil "~A/.swank.lisp"
70                                (namestring (truename home)))))                               (namestring (truename home)))))))
         (cond ((probe-file filename) filename)  
               (t nil))))))  
71    
72  (compile-files-if-needed-serially  (compile-files-if-needed-serially
73   (list* (make-swank-pathname "swank-backend") *swank-pathname*   (list* (make-swank-pathname "swank-backend") *swank-pathname*

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5