/[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.71 by heller, Wed Feb 25 20:51:50 2004 UTC revision 1.72 by heller, Wed Feb 25 22:03:39 2004 UTC
# Line 365  the error-context redundant." Line 365  the error-context redundant."
365    (with-compilation-hooks ()    (with-compilation-hooks ()
366      (let ((*buffer-name* nil)      (let ((*buffer-name* nil)
367            (*compile-filename* filename))            (*compile-filename* filename))
368        (multiple-value-bind (fasl-file warnings-p failure-p)        (let ((fasl-file (compile-file filename)))
369            (compile-file filename)          (when (and load-p fasl-file)
         (declare (ignore warnings-p))  
         (when (and load-p (not failure-p))  
370            (load fasl-file))))))            (load fasl-file))))))
371    
372  (defimplementation compile-string-for-emacs (string &key buffer position)  (defimplementation compile-string-for-emacs (string &key buffer position)

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

  ViewVC Help
Powered by ViewVC 1.1.5