added 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))))))