Skip to content

Instantly share code, notes, and snippets.

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(ql:quickload :test-ps-eval-order)
(defpackage :ros.script.execute.ros.3658751573
(:use :cl
:parenscript
@eshamster
eshamster / create_clw_2d_game_proj.sh
Created June 20, 2018 14:00
A temporal script to (re)create an empty cl-web-2d-game project using template.
#!/bin/sh
# A temporal script to (re)create an empty cl-web-2d-game project using template.
# This is used for developing the following project.
# https://github.com/eshamster/templates-cl-web-2d-game
set -eu
proj_name=templates-cl-web-2d-game
template_name=simple-cl-web-2d-game
@eshamster
eshamster / create-alpha-map.ros
Last active January 1, 2018 16:31
Create an alpha map png from a png file
#!/bin/sh
#|-*- mode:lisp -*-|#
#| <Put a one-line description here>
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf)
#+quicklisp (ql:quickload '(opticl cl-cli) :silent t))
(defpackage :ros.script.create-alpha-map.lisp.3711282690
@eshamster
eshamster / sort-tree-node-with-circular.ros
Last active September 16, 2017 12:44
Sort nodes in tree according to their dependencies that has circular dependency
#!/bin/sh
#|-*- mode:lisp -*-|#
#| <Put a one-line description here>
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf)
#+quicklisp (ql:quickload '(:anaphora) :silent t))
(defpackage :ros.script.sort-tree-node2.ros.3713686785
@eshamster
eshamster / sort-tree-node.ros
Last active September 10, 2017 22:21
Sort nodes in tree according to their dependencies
#!/bin/sh
#|-*- mode:lisp -*-|#
#| <Put a one-line description here>
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf)
#+quicklisp (ql:quickload '(:anaphora) :silent t))
(defpackage :ros.script.sort-tree-node.ros.3713084013
@eshamster
eshamster / define-empty-cl-func.patch
Created May 28, 2017 15:51
Failed patch for ps-experiment:defun.ps 33f20554b984cd02d7734835fa9650dc7326dcf3
# This can be successed in Clozure CL but not in SBCL.
# So remain this patch only for reference.
diff --git a/ps-experiment.asd b/ps-experiment.asd
index 8ccfc92..7944b2f 100644
--- a/ps-experiment.asd
+++ b/ps-experiment.asd
@@ -19,7 +19,9 @@
:depends-on (:parenscript
:metabang-bind
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(eval-when (:compile-toplevel :load-toplevel :execute)
(ql:quickload '(:parenscript) :silent t))
(defpackage :ros.script.first-sample.ros.3671797562
(:use :cl
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(eval-when (:execute)
(defvar *old-readtable* (copy-readtable))
(ql:quickload '(:anaphora :s-dot :cl-ppcre :cl-cli) :silent t)
(use-package :anaphora)
(ql:quickload :ps-experiment)
(ql:quickload :quri)
(in-package :cl-user)
(defpackage dl-image
(:use :cl
:parenscript
:ps-experiment)
(:export main
*dependencies*))
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(eval-when (:load-toplevel :compile-toplevel :execute)
(dolist (lib '(:uiop :anaphora))
(ql:quickload lib :silent t)))
(defpackage :ros.script.run.ros.3661998313