changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > demo / annotate tools/scripts/db.ros

changeset 16: af615d1895cb
parent: scripts/db.ros@e4f8df713d55
author: ellis <ellis@rwest.io>
date: Fri, 26 May 2023 21:59:40 -0400
permissions: -rwxr-xr-x
description: refactoring, ui stuff (goin with slint for DSL power)
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
 (defun main (&rest argv)
ellis <ellis@rwest.io>
parents:
diff changeset
11
   (declare (ignorable argv))
ellis <ellis@rwest.io>
parents:
diff changeset
12
   (format t "hello world"))