changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > demo / annotate scripts/build.ros

changeset 1: e4f8df713d55
parent: ros/build.ros@eb8ed24e8a76
child: bebb76da449c
author: ellis <ellis@rwest.io>
date: Sun, 30 Apr 2023 22:24:18 -0400
permissions: -rwxr-xr-x
description: scaffolding from lives past
0
ellis <ellis@rwest.io>
parents:
diff changeset
1
 #!/bin/sh
ellis <ellis@rwest.io>
parents:
diff changeset
2
 #|-*- mode:lisp -*-|#
ellis <ellis@rwest.io>
parents:
diff changeset
3
 #|
ellis <ellis@rwest.io>
parents:
diff changeset
4
 exec ros -Q -- $0 "$@"
ellis <ellis@rwest.io>
parents:
diff changeset
5
 |#
ellis <ellis@rwest.io>
parents:
diff changeset
6
 (progn ;;init forms
ellis <ellis@rwest.io>
parents:
diff changeset
7
   (ros:ensure-asdf)
ellis <ellis@rwest.io>
parents:
diff changeset
8
   #+quicklisp(ql:quickload '() :silent t)
ellis <ellis@rwest.io>
parents:
diff changeset
9
   )
ellis <ellis@rwest.io>
parents:
diff changeset
10
 
ellis <ellis@rwest.io>
parents:
diff changeset
11
 (defpackage :ros.script.build.3891893519
ellis <ellis@rwest.io>
parents:
diff changeset
12
   (:use :cl))
ellis <ellis@rwest.io>
parents:
diff changeset
13
 (in-package :ros.script.build.3891893519)
ellis <ellis@rwest.io>
parents:
diff changeset
14
 
ellis <ellis@rwest.io>
parents:
diff changeset
15
 (defun main (&rest argv)
ellis <ellis@rwest.io>
parents:
diff changeset
16
   (declare (ignorable argv))
ellis <ellis@rwest.io>
parents:
diff changeset
17
   (asdf:load-asd "cl-demo.asd")
ellis <ellis@rwest.io>
parents:
diff changeset
18
   (asdf:load-system "cl-demo")
ellis <ellis@rwest.io>
parents:
diff changeset
19
   (asdf:make :cl-demo))
ellis <ellis@rwest.io>
parents:
diff changeset
20
 ;;; vim: set ft=lisp lisp: