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

Diff of /slime/swank-abcl.lisp

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

revision 1.26 by asimon, Sat May 14 09:13:58 2005 UTC revision 1.27 by heller, Tue Jul 5 20:30:59 2005 UTC
# Line 271  Line 271 
271                                 (list :file *compile-filename*)                                 (list :file *compile-filename*)
272                                 (list :position 1))))))))                                 (list :position 1))))))))
273    
274  (defimplementation swank-compile-file (*compile-filename* load-p)  (defimplementation swank-compile-file (filename load-p
275                                           &optional external-format)
276      (declare (ignore external-format))
277    (handler-bind ((warning #'handle-compiler-warning))    (handler-bind ((warning #'handle-compiler-warning))
278                  (let ((*buffer-name* nil))      (let ((*buffer-name* nil)
279                    (multiple-value-bind (fn warn fail)            (*compile-filename* filename))
280                        (compile-file *compile-filename*)        (multiple-value-bind (fn warn fail) (compile-file filename)
281                      (when load-p (unless fail (load fn)))))))          (when (and load-p (not fail))
282              (load fn))))))
283    
284  (defimplementation swank-compile-string (string &key buffer position directory)  (defimplementation swank-compile-string (string &key buffer position directory)
285    (declare (ignore directory))    (declare (ignore directory))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5