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

Diff of /slime/swank.lisp

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

revision 1.600 by nsiivola, Fri Oct 10 06:09:32 2008 UTC revision 1.601 by heller, Thu Oct 16 21:15:33 2008 UTC
# Line 2480  Record compiler notes signalled as `comp Line 2480  Record compiler notes signalled as `comp
2480       (lambda ()       (lambda ()
2481         (let ((pathname (filename-to-pathname filename))         (let ((pathname (filename-to-pathname filename))
2482               (*compile-print* nil) (*compile-verbose* t))               (*compile-print* nil) (*compile-verbose* t))
2483           (swank-compile-file pathname load-p           (multiple-value-bind (output-pathname warnings? failure?)
2484                               (or (guess-external-format pathname)               (swank-compile-file pathname load-p
2485                                   :default)))))))                                   (or (guess-external-format pathname)
2486                                         :default))
2487               (declare (ignore output-pathname warnings?))
2488               (not failure?)))))))
2489    
2490  (defslimefun compile-string-for-emacs (string buffer position directory debug)  (defslimefun compile-string-for-emacs (string buffer position directory debug)
2491    "Compile STRING (exerpted from BUFFER at POSITION).    "Compile STRING (exerpted from BUFFER at POSITION).

Legend:
Removed from v.1.600  
changed lines
  Added in v.1.601

  ViewVC Help
Powered by ViewVC 1.1.5