@@ -31,7 +31,7 @@

 (defparameter outp nil)

 (with-generator (to-ten) x

   (with-generator (to-ten) y

-    2))

+    (push (* x y) outp)))

 (defpackage generator-lambda

   (:use :cl))

new file mode 100644

@@ -0,0 +1,14 @@

+(defpackage :lambda-test

+  (:use cl)

+  (:export :mksym :alambda))

+(in-package :lambda-test)

+

+(defun mksym (str)

+  (intern (string-upcase str) *package*))

+

+(defmacro alambda ((&optional (nargs 1)) &body body)

+  (let ((args (loop for x from 1 to nargs collect (mksym (format nil "$~a" x)))))

+    `(lambda ,args ,@body)))

+

+(defmacro /. ((&optional (nargs 1)) &body body)

+  `(alambda (,nargs) ,@body))

new file mode 100644

@@ -0,0 +1,2 @@

+(ql:quickload :manardb)

+

new file mode 100644

@@ -0,0 +1,6 @@

+(ql:quickload :elephant)

+(ql:quickload :clsql)

+

+(use-package :elephant)

+

+(open-store '(:clsql (:sqlite "test-db/sqlite.db")))

new file mode 100644

@@ -0,0 +1,9 @@

+(ql:quickload :qtools)

+(ql:quickload :cells)

+(ql:quickload :qtcore)

+(ql:quickload :qtgui)

+(ql:quickload :parse-number)

+(ql:quickload :alexandria)

+(ql:quickload :swank)

+

+(sb-ext:save-lisp-and-die "qtools-repl" :executable t)