/[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.208 by heller, Thu Jan 8 06:45:37 2009 UTC revision 1.209 by heller, Thu Jan 8 10:33:44 2009 UTC
# Line 394  NIL if we aren't compiling from a buffer Line 394  NIL if we aren't compiling from a buffer
394                        (source-cache-get filename (file-write-date filename))                        (source-cache-get filename (file-write-date filename))
395                        (not (load output-file)))))))))                        (not (load output-file)))))))))
396    
397  (defimplementation swank-compile-string (string &key buffer position directory  (defimplementation swank-compile-string (string &key buffer position filename
398                                                  policy)                                           policy)
399    (declare (ignore directory policy))    (declare (ignore filename policy))
400    (with-compilation-hooks ()    (with-compilation-hooks ()
401      (let ((*buffer-name* buffer)      (let ((*buffer-name* buffer)
402            (*buffer-start-position* position)            (*buffer-start-position* position)

Legend:
Removed from v.1.208  
changed lines
  Added in v.1.209

  ViewVC Help
Powered by ViewVC 1.1.5