hg.stevelosh.com > antipodes

(unless (find-package :ap)
  (ql:quickload '(:antipodes)))

(declaim (optimize (debug 1) (safety 1) (speed 3)))

(let ((*standard-output* (make-broadcast-stream)) ; shut
      (*error-output* (make-broadcast-stream))) ; up
  (asdf:load-system 'antipodes :force t))

(defun main (&rest argv)
  (declare (ignore argv))
  (ap::main))

(sb-ext:save-lisp-and-die "antipodes"
                          :toplevel 'main
                          :save-runtime-options t
                          :executable t)
author	Steve Losh <steve@stevelosh.com>
date	Sun, 28 Aug 2022 12:12:14 -0400
parents	(none)
children	(none)