/usr/share/common-lisp/source/cl-asdf/tools/asdf-tools is in cl-asdf 2:3.1.4-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | ":" ; exec sbcl --script "$0" "$@" ; exit # -*- Lisp -*-
;;;;; Really runs on any decent Common Lisp implementation
;;;;; Can also be invoked by cl-launch 4:
;;;;; cl-launch -sp asdf-tools -r entry-point -- "$@"
(in-package :cl-user) ;; That may be default, but let's make double sure and tell SLIME.
;;; Ensure we load and configure this particular ASDF
(eval-when (:compile-toplevel :load-toplevel :execute)
(unless (member :cl-launch *features*) ;; (not necessary if we're invoked via cl-launch)
(load (make-pathname
:name "load-asdf" :type "lisp" :defaults
(or *compile-file-truename* *load-truename* (truename *default-pathname-defaults*))))))
;;; ASDF3 is loaded, now use it!
(eval-when (:compile-toplevel :load-toplevel :execute)
#-quicklisp
(asdf:load-system :asdf-tools :verbose nil)
#+quicklisp
(let ((*standard-output* (make-broadcast-stream)))
(ql:quickload :asdf-tools)))
;;; Actually run the stuff!
(uiop:restore-image :entry-point 'asdf-tools::entry-point)
|