/[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.24 by heller, Wed Jun 9 20:08:39 2004 UTC revision 1.35 by asimon, Sun Sep 26 17:09:13 2004 UTC
# Line 15  Line 15 
15    
16  (defun make-swank-pathname (name &optional (type "lisp"))  (defun make-swank-pathname (name &optional (type "lisp"))
17    "Return a pathname with name component NAME in the Slime directory."    "Return a pathname with name component NAME in the Slime directory."
18    (merge-pathnames name    (merge-pathnames (make-pathname :name name :type type)
19                     (make-pathname                     (or *compile-file-pathname*
20                      :type type                         *load-pathname*
21                      :device                         *default-pathname-defaults*)))
                     (pathname-device  
                      (or *compile-file-pathname* *load-pathname*  
                          *default-pathname-defaults*))  
                     :directory  
                     (pathname-directory  
                      (or *compile-file-pathname* *load-pathname*  
                          *default-pathname-defaults*)))))  
22    
23  (defparameter *sysdep-pathnames*  (defparameter *sysdep-pathnames*
24    (mapcar #'make-swank-pathname    (mapcar #'make-swank-pathname
# Line 33  Line 26 
26             '("nregex")             '("nregex")
27             #+cmu '("swank-source-path-parser" "swank-cmucl")             #+cmu '("swank-source-path-parser" "swank-cmucl")
28             #+sbcl '("swank-sbcl" "swank-source-path-parser" "swank-gray")             #+sbcl '("swank-sbcl" "swank-source-path-parser" "swank-gray")
29             #+openmcl '("swank-openmcl" "swank-gray")             #+openmcl '("metering" "swank-openmcl" "swank-gray")
30             #+lispworks '("swank-lispworks" "swank-gray")             #+lispworks '("swank-lispworks" "swank-gray")
31             #+allegro '("swank-allegro" "swank-gray")             #+allegro '("swank-allegro" "swank-gray")
32             #+clisp '("xref" "metering" "swank-clisp" "swank-gray")             #+clisp '("xref" "metering" "swank-clisp" "swank-gray")
33             #+armedbear '("swank-abcl" "swank-gray")             #+armedbear '("swank-abcl")
34             )))             )))
35    
36  (defparameter *lisp-name*  (defparameter *lisp-name*
37    #+cmu       (format nil "cmu-~A" (lisp-implementation-version))    #+cmu       (format nil "cmu-~A"
38                          (substitute #\- #\/ (lisp-implementation-version)))
39    #+sbcl      (format nil "sbcl-~A" (lisp-implementation-version))    #+sbcl      (format nil "sbcl-~A" (lisp-implementation-version))
40    #+openmcl   "openmcl"    #+openmcl   "openmcl"
41    #+lispworks "lispworks"    #+lispworks (format nil "lispworks-~A" (lisp-implementation-version))
42    #+allegro   "allegro"    #+allegro   (format nil "allegro-~A" excl::*common-lisp-version-number*)
43    #+clisp     (format nil "clisp-~A" (let ((s (lisp-implementation-version)))    #+clisp     (format nil "clisp-~A" (let ((s (lisp-implementation-version)))
44                                         (subseq s 0 (position #\space s))))                                         (subseq s 0 (position #\space s))))
45    #+armedbear "abcl"    #+armedbear "abcl"
# Line 58  Line 52 
52    (> (file-write-date new-file) (file-write-date old-file)))    (> (file-write-date new-file) (file-write-date old-file)))
53    
54  (defun binary-pathname (source-pathname)  (defun binary-pathname (source-pathname)
55    (merge-pathnames    "Return the pathname where SOURCE-PATHNAME's binary should be compiled."
56     (make-pathname :directory `(:relative "fasl" ,*lisp-name*))    (let ((cfp (compile-file-pathname source-pathname)))
57     (merge-pathnames (compile-file-pathname source-pathname))))      (merge-pathnames (make-pathname
58                          :directory `(:relative ".slime" "fasl" ,*lisp-name*)
59                          :name (pathname-name cfp)
60                          :type (pathname-type cfp))
61                         (user-homedir-pathname))))
62    
63  (defun compile-files-if-needed-serially (files)  (defun compile-files-if-needed-serially (files)
64    "Compile each file in FILES if the source is newer than    "Compile each file in FILES if the source is newer than
# Line 89  recompiled." Line 87  recompiled."
87    
88  (defun user-init-file ()  (defun user-init-file ()
89    "Return the name of the user init file or nil."    "Return the name of the user init file or nil."
90    (probe-file    (probe-file (merge-pathnames (user-homedir-pathname)
91     (merge-pathnames (user-homedir-pathname)                                 (make-pathname :name ".swank" :type "lisp"))))
                     #-mswindows (make-pathname :name ".swank" :type "lisp")  
                     #+mswindows (make-pathname :name "_swank" :type "lsp"))))  
92    
93    
94  (compile-files-if-needed-serially  (compile-files-if-needed-serially

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5