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

Diff of /slime/swank-allegro.lisp

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

revision 1.115 by heller, Fri Sep 19 11:20:15 2008 UTC revision 1.116 by heller, Thu Oct 16 21:16:01 2008 UTC
# Line 301  Line 301 
301     (lambda (stream filename)     (lambda (stream filename)
302         (write-string string stream)         (write-string string stream)
303         (finish-output stream)         (finish-output stream)
304         (let ((binary-filename         (multiple-value-bind (binary-filename warnings? failure?)
305                (excl:without-redefinition-warnings           (excl:without-redefinition-warnings
306                  ;; Suppress Allegro's redefinition warnings; they are               ;; Suppress Allegro's redefinition warnings; they are
307                  ;; pointless when we are compiling via a temporary               ;; pointless when we are compiling via a temporary
308                  ;; file.               ;; file.
309                  (compile-file filename :load-after-compile t))))               (compile-file filename :load-after-compile t))
310             (declare (ignore warnings?))
311           (when binary-filename           (when binary-filename
312             (delete-file binary-filename))))))             (delete-file binary-filename))
313             (not failure?)))))
314    
315  (defimplementation swank-compile-string (string &key buffer position directory  (defimplementation swank-compile-string (string &key buffer position directory
316                                                  debug)                                                  debug)

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

  ViewVC Help
Powered by ViewVC 1.1.5