[slime-cvs] CVS update: slime/swank-loader.lisp

[Helmut Eller]

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)))