/[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.58 by mbaringer, Thu Mar 16 17:26:27 2006 UTC revision 1.59 by msimmons, Thu Apr 13 10:41:59 2006 UTC
# Line 175  recompiled." Line 175  recompiled."
175    
176  (defun load-site-init-file (directory)  (defun load-site-init-file (directory)
177    (load (make-pathname :name "site-init" :type "lisp"    (load (make-pathname :name "site-init" :type "lisp"
178                         :directory (pathname-directory directory))                         :defaults directory)
179          :if-does-not-exist nil))          :if-does-not-exist nil))
180    
181  (defun swank-source-files (source-directory)  (defun swank-source-files (source-directory)
182    (mapcar (lambda (name)    (mapcar (lambda (name)
183              (make-pathname :name name :type "lisp"              (make-pathname :name name :type "lisp"
184                             :directory (pathname-directory source-directory)))                             :defaults source-directory))
185            `("swank-backend" ,@*sysdep-files* "swank")))            `("swank-backend" ,@*sysdep-files* "swank")))
186    
187  (defvar *fasl-directory* (default-fasl-directory)  (defvar *fasl-directory* (default-fasl-directory)

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

  ViewVC Help
Powered by ViewVC 1.1.5