[slime-cvs] CVS update: slime/swank-loader.lisp
Helmut Eller
heller at common-lisp.net
Thu Jan 15 18:27:41 UTC 2004
Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv21760
Modified Files:
swank-loader.lisp
Log Message:
(compile-files-if-needed-serially): Don't handle compilation errors.
We must compile everything because changelog-date requires
*compile-file-truename*.
Date: Thu Jan 15 13:27:40 2004
Author: heller
Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.12 slime/swank-loader.lisp:1.13
--- slime/swank-loader.lisp:1.12 Tue Jan 6 08:10:29 2004
+++ slime/swank-loader.lisp Thu Jan 15 13:27:40 2004
@@ -7,7 +7,7 @@
;;; This code has been placed in the Public Domain. All warranties
;;; are disclaimed.
;;;
-;;; $Id: swank-loader.lisp,v 1.12 2004/01/06 13:10:29 heller Exp $
+;;; $Id: swank-loader.lisp,v 1.13 2004/01/15 18:27:40 heller Exp $
;;;
(cl:defpackage :swank-loader
@@ -58,10 +58,12 @@
(compile-file source-pathname)
(setq needs-recompile t))
(load binary-pathname))
+ #+(or)
(error ()
;; If an error occurs compiling, load the source instead
;; so we can try to debug it.
- (load source-pathname))))))))
+ (load source-pathname))
+ ))))))
(defun user-init-file ()
"Return the name of the user init file or nil."
@@ -71,8 +73,8 @@
#+mswindows (make-pathname :name "_swank" :type "lsp"))))
(compile-files-if-needed-serially
- (list* (make-swank-pathname "swank-backend") *swank-pathname*
- *sysdep-pathnames*))
+ (list* (make-swank-pathname "swank-backend") *swank-pathname*
+ *sysdep-pathnames*))
(when (user-init-file)
(load (user-init-file)))
More information about the slime-cvs
mailing list