Skip to content

Instantly share code, notes, and snippets.

@eshamster
eshamster / create_clw_2d_game_proj.sh
Created Jun 20, 2018
A temporal script to (re)create an empty cl-web-2d-game project using template.
View create_clw_2d_game_proj.sh
#!/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 / sort-tree-node-with-circular.ros
Last active Sep 16, 2017
Sort nodes in tree according to their dependencies that has circular dependency
View sort-tree-node-with-circular.ros
#!/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 Sep 10, 2017
Sort nodes in tree according to their dependencies
View sort-tree-node.ros
#!/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 / create-alpha-map.ros
Last active Jan 1, 2018
Create an alpha map png from a png file
View create-alpha-map.ros
#!/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 / define-empty-cl-func.patch
Created May 28, 2017
Failed patch for ps-experiment:defun.ps 33f20554b984cd02d7734835fa9650dc7326dcf3
View define-empty-cl-func.patch
# 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
View js-module-by-ps.ros
#!/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
View make-package-tree.ros
#!/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)
View dl-image.lisp
(ql:quickload :ps-experiment)
(ql:quickload :quri)
(in-package :cl-user)
(defpackage dl-image
(:use :cl
:parenscript
:ps-experiment)
(:export main
*dependencies*))
View run.ros
#!/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
View init.ros
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(eval-when (:load-toplevel :compile-toplevel :execute)
(dolist (lib '(:uiop :cl-emb :alexandria))
(ql:quickload lib :silent t)))
(defpackage :ros.script.init.ros.3662017526