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