/[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.109 by heller, Sun Jun 27 15:00:37 2004 UTC revision 1.110 by lgorrie, Sun Jul 4 03:22:37 2004 UTC
# Line 811  Return NIL if the right version cannot b Line 811  Return NIL if the right version cannot b
811                   source)                   source)
812                 nil)))))                 nil)))))
813    
814    (defun source-cached-p (filename)
815      "Is any version of FILENAME in the source cache?"
816      (if (gethash filename *source-file-cache*) t))
817    
818    (defimplementation buffer-first-change (filename)
819      "Load a file into the cache when the user modifies its buffer.
820    This is a win if the user then saves the file and tries to M-. into it."
821      (unless (source-cached-p filename)
822        (ignore-errors (source-cache-get filename (file-write-date filename)))))
823    
824    
825  ;;;; Finding definitions  ;;;; Finding definitions
826    

Legend:
Removed from v.1.109  
changed lines
  Added in v.1.110

  ViewVC Help
Powered by ViewVC 1.1.5