ファイル出力時のエラーハンドリングを改善

moratori · Jun 17, 2022 · 1476070 · 1476070
1 parent 489b459
commit 1476070
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/src/rendertree.lisp b/src/rendertree.lisp
@@ -121,10 +121,13 @@
     (multiple-value-bind (nodes edges) 
         (%collect-graphviz-node-and-edges target-clause 1)
 
-      (with-open-file (handle output :direction :output :if-exists :supersede)
-        (format handle "digraph refutation_tree {~%")
-        (format handle "~{  ~A~%~}~%" nodes)
-        (format handle "~{  ~A~%~}~%" edges)
-        (format handle "}")))))
-
+      (handler-case
+          (with-open-file (handle output :direction :output :if-exists :supersede)
+            (format handle "digraph refutation_tree {~%")
+            (format handle "~{  ~A~%~}~%" nodes)
+            (format handle "~{  ~A~%~}~%" edges)
+            (format handle "}"))
+        (condition (con)
+          (declare (ignore con))
+          (format *standard-output* "unable to write file: ~A~%" output))))))