/[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.59 by msimmons, Thu Apr 13 10:41:59 2006 UTC revision 1.60 by mbaringer, Wed Sep 27 22:52:26 2006 UTC
# Line 142  recompiled." Line 142  recompiled."
142        (dolist (source-pathname files)        (dolist (source-pathname files)
143          (let ((binary-pathname (binary-pathname source-pathname          (let ((binary-pathname (binary-pathname source-pathname
144                                                  fasl-directory)))                                                  fasl-directory)))
145            (handler-case            (when (or needs-recompile
146                (progn                      (not (probe-file binary-pathname))
147                  (when (or needs-recompile                      (file-newer-p source-pathname binary-pathname))
148                            (not (probe-file binary-pathname))              ;; need a to recompile source-pathname, so we'll
149                            (file-newer-p source-pathname binary-pathname))              ;; nede to recompile everything after this too.
150                    (ensure-directories-exist binary-pathname)              (setq needs-recompile t)
151                    (compile-file source-pathname :output-file binary-pathname              (ensure-directories-exist binary-pathname)
152                                  :print nil :verbose t)              (multiple-value-bind (output-file warningsp failurep)
153                    (setq needs-recompile t))                  (compile-file source-pathname :output-file binary-pathname
154                  (load binary-pathname :verbose t))                                :print nil
155              #+(or)                                :verbose t)
156              (error ()                (declare (ignore output-file warningsp))
157                ;; If an error occurs compiling, load the source instead                (when failurep
158                ;; so we can try to debug it.                  ;; If an error occurs compiling, load the source
159                (load source-pathname))                  ;; instead so we can try to debug it (this next
160              ))))))                  ;; call should, unless things are really broken,
161                    ;; signal an error).
162                    (format *error-output* ";; ERROR wihle compiling ~S." source-pathname)
163                    (load source-pathname))))
164              (load binary-pathname :verbose t))))))
165    
166  #+(or cormanlisp ecl)  #+(or cormanlisp ecl)
167  (defun compile-files-if-needed-serially (files fasl-directory)  (defun compile-files-if-needed-serially (files fasl-directory)

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

  ViewVC Help
Powered by ViewVC 1.1.5