/[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.79 by heller, Sun Feb 17 08:17:24 2008 UTC revision 1.80 by heller, Sun Feb 17 08:20:34 2008 UTC
# Line 136  Return nil if nothing appropriate is ava Line 136  Return nil if nothing appropriate is ava
136    
137  (defun compile-files (files fasl-dir load)  (defun compile-files (files fasl-dir load)
138    "Compile each file in FILES if the source is newer than its    "Compile each file in FILES if the source is newer than its
139  corresponding binary, or the file preceding it was recompiled."  corresponding binary, or the file preceding it was recompiled.
140    If LOAD is true, load the fasl file."
141    (let ((needs-recompile nil))    (let ((needs-recompile nil))
142      (dolist (src files)      (dolist (src files)
143        (let ((dest (binary-pathname src fasl-dir)))        (let ((dest (binary-pathname src fasl-dir)))

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

  ViewVC Help
Powered by ViewVC 1.1.5