added qq.lisp

fa4d3f08 · Juergen Nickelsen · 35213d4e · fa4d3f08
Commit fa4d3f08 authored Jun 22, 2017 by Juergen Nickelsen
Hide whitespace changes
Inline Side-by-side

Showing with 11 additions and 0 deletions

qq.lisp l/qq.lisp +11 -0

No files found.
--- a/l/qq.lisp
+++ b/l/qq.lisp
+
+(defmacro while (cond &list bodyforms)
+  `(loop while (,cond) do ,@bodyforms))
+
+(let ((l '(3 4 5 6))
+      (a 0))
+  (let ((cond 'l)
+        (bodyforms '((setq a (+ (car l))) (setq l (cdr l)))))
+    (macro-expand* 
+     '(quasiquote (loop while (comma cond) do (comma-atsign bodyforms))))))
+