View CULT.js
//////////////////////////////////////////////////////////////////////////////// | |
// Chatubate API Emultaion - Make work on node stuff. | |
//////////////////////////////////////////////////////////////////////////////// | |
var stdin = process.openStdin(); | |
function randomBoolean () { | |
if(Math.random() < .5) { | |
return true; | |
} else { | |
return false; |
View nock.lisp
;; A nock interpreter | |
(defun tar (a f) | |
(labels ((fas (b a) | |
(declare (integer b)) | |
(cond | |
((= b 1) a) | |
((= b 2) (car a)) | |
((= b 3) (cdr a)) | |
((evenp b) (car (fas (/ b 2) a))) | |
((oddp b) (cdr (fas (/ (1- (the integer b)) 2) a)))))) |
View save-lisp-tree-shake-and-die.lisp
;; -*- mode: lisp -*- | |
;; | |
;; A quick and dirty tree shaker for SBCL. Basically, it destroys the | |
;; package system and does a gc before saving the lisp image. Gives | |
;; about a 40% reduction in image size on a basic hello world test. | |
;; Would like to hear how it works on larger projects. | |
;; | |
;; Original idea from: https://groups.google.com/d/msg/comp.lang.lisp/6zpZsWFFW18/WMy4PyA9B4kJ | |
;; | |
;; Burton Samograd |