From 9d53233a0559b714a1a36dcd605cb7cc4fa7789c Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Sat, 4 Apr 2015 19:19:28 -0400
Subject: [PATCH] Fix the asdf-tools script invocation of its lisp entry-point.

---
 tools/asdf-tools | 4 +++-
 tools/main.lisp  | 4 +---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tools/asdf-tools b/tools/asdf-tools
index 7b3b98986..48f6366ae 100755
--- a/tools/asdf-tools
+++ b/tools/asdf-tools
@@ -20,5 +20,7 @@
   (let ((*standard-output* (make-broadcast-stream)))
     (ql:quickload :asdf-tools)))
 
+(in-package :asdf-tools)
+
 ;;; Actually run the stuff!
-(uiop:restore-image :entry-point 'asdf-tools::entry-point)
+(restore-image :entry-point 'entry-point :lisp-interaction nil)
diff --git a/tools/main.lisp b/tools/main.lisp
index 6e8982a8e..4415156b8 100644
--- a/tools/main.lisp
+++ b/tools/main.lisp
@@ -105,6 +105,4 @@ based on a list of targets"
   (process-arguments argv))
 
 (defun entry-point ()
-  (setf *lisp-interaction* nil)
-  (uiop:with-fatal-condition-handler ()
-    (main *command-line-arguments*)))
+  (main *command-line-arguments*))
-- 
GitLab