/[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.37 by heller, Thu Feb 24 18:10:42 2005 UTC revision 1.38 by mbaringer, Tue Mar 1 23:23:49 2005 UTC
# Line 85  recompiled." Line 85  recompiled."
85                (load source-pathname))                (load source-pathname))
86              ))))))              ))))))
87    
 (defun user-init-file ()  
   "Return the name of the user init file or nil."  
   (probe-file (merge-pathnames (user-homedir-pathname)  
                                (make-pathname :name ".swank" :type "lisp"))))  
   
   
88  (compile-files-if-needed-serially  (compile-files-if-needed-serially
89    (append (list (make-swank-pathname "swank-backend"))    (append (list (make-swank-pathname "swank-backend"))
90            *sysdep-pathnames*            *sysdep-pathnames*
# Line 98  recompiled." Line 92  recompiled."
92    
93  (funcall (intern (string :warn-unimplemented-interfaces) :swank-backend))  (funcall (intern (string :warn-unimplemented-interfaces) :swank-backend))
94    
95  (when (user-init-file)  (defun load-user-init-file ()
96    (load (user-init-file)))    "Load the user init file, return NIL if it does not exist."
97      (load (merge-pathnames (user-homedir-pathname)
98                             (make-pathname :name ".swank" :type "lisp"))
99            :if-does-not-exist nil))
100    (export 'load-user-init-file)
101    
102    (defun load-site-init-file ()
103      (load (make-pathname :name "site-init" :type "lisp"
104                           :defaults *load-truename*)
105            :if-does-not-exist nil))
106    
107    (or (load-site-init-file)
108        (load-user-init-file))
109    

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

  ViewVC Help
Powered by ViewVC 1.1.5