/[slime]/slime/swank-cmucl.lisp
ViewVC logotype

Diff of /slime/swank-cmucl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.200 by heller, Sat Oct 11 08:30:57 2008 UTC revision 1.201 by heller, Thu Oct 16 21:15:28 2008 UTC
# Line 371  NIL if we aren't compiling from a buffer Line 371  NIL if we aren't compiling from a buffer
371            (ext:*ignore-extra-close-parentheses* nil))            (ext:*ignore-extra-close-parentheses* nil))
372        (multiple-value-bind (output-file warnings-p failure-p)        (multiple-value-bind (output-file warnings-p failure-p)
373            (compile-file filename)            (compile-file filename)
374          (declare (ignore warnings-p))          (values output-file warnings-p
375          (cond (failure-p nil)                  (or failure-p
376                (load-p                      (when load-p
377                 ;; Cache the latest source file for definition-finding.                        ;; Cache the latest source file for definition-finding.
378                 (source-cache-get filename (file-write-date filename))                        (source-cache-get filename (file-write-date filename))
379                 (load output-file))                        (not (load output-file)))))))))
               ((not failure-p)))))))  
380    
381  (defimplementation swank-compile-string (string &key buffer position directory  (defimplementation swank-compile-string (string &key buffer position directory
382                                                  debug)                                                  debug)

Legend:
Removed from v.1.200  
changed lines
  Added in v.1.201

  ViewVC Help
Powered by ViewVC 1.1.5