Skip to content
Snippets Groups Projects
Commit 9d53233a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix the asdf-tools script invocation of its lisp entry-point.

parent 3ce6aa64
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......@@ -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*))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment