Added error catchall to CMD-WRAPPER

2014-09-08 19:21:13 +02:00 · 2014-09-08 19:21:13 +02:00 · ba377a2853
parent 97e3ca3795
commit ba377a2853
1 changed files with 4 additions and 1 deletions
--- a/binary.lisp
+++ b/binary.lisp
@ -32,4 +32,7 @@
                  #+CMU extensions:*command-line-words*
                  #+CCL ccl:*command-line-argument-list*
                  NIL)))
-    (apply #'main (cdr args))))
+    (handler-case
+        (apply #'main (cdr args))
+      (error (err)
+        (format T "ERROR: ~a" err)))))