Commit fa4d3f08 authored by Juergen Nickelsen's avatar Juergen Nickelsen

added qq.lisp

parent 35213d4e
(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))))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment