From fae90f24a2c96dc8531adeeaba190a17b1044650 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Thu, 26 May 2016 09:26:09 +0100 Subject: [PATCH] doc/list-exports.lisp: Make executable with `cl-launch' header. Organization: Straylight/Edgeware From: Mark Wooding --- doc/list-exports.lisp | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) mode change 100644 => 100755 doc/list-exports.lisp diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp old mode 100644 new mode 100755 index a61fe9e..65514d4 --- a/doc/list-exports.lisp +++ b/doc/list-exports.lisp @@ -1,3 +1,7 @@ +#! /bin/sh +":"; CL_SOURCE_REGISTRY=$(pwd)/build/src/:; export CL_SOURCE_REGISTRY +":"; exec cl-launch -X -l "sbcl cmucl" -s asdf -i "(sod-exports::main)" -- "$0" "$@" || exit 1 + (cl:defpackage #:sod-exports (:use #:common-lisp #+cmu #:mop @@ -442,7 +446,11 @@ (defun report-project-symbols () (report-symbols (mapcar #'file-name (list optparse)) "OPTPARSE") (report-symbols (mapcar #'file-name (list utilities)) "SOD-UTILITIES")))) -#+interactive -(with-open-file (*standard-output* #p"doc/SYMBOLS" :direction :output - :if-exists :supersede :if-does-not-exist :create) - (report-project-symbols)) +(defun main () + (with-open-file (*standard-output* #p"doc/SYMBOLS" + :direction :output + :if-exists :supersede + :if-does-not-exist :create) + (report-project-symbols))) + +#+interactive (main) -- [mdw]