(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload "parenscript"))

(defpackage #:ps-test
  (:use #:cl #:ps))

(in-package #:ps-test)

(defpsmacro create-element (type)
  `(chain document (create-element ,(symbol-name type))))

(defun test ()
  (ps (let ((div (create-element div)))
	nil)))

(test)