anchor.diff:    `(progn
        ,@(mapcar #'(lambda(tag)
                      `(deftag ,tag))
  -               tags)))+               tags)))
  
positive.code:   (let ((strsym (gensym))
  	(attsym (gensym))
  	(tagsym (gensym))
  	(tag-name (string-downcase (string tag)))
  	(indent-number (if (indent-enable?) 
  			   (indent-next-level)
  			   0)))
      `(let (,@(nif (null attributes)
  		  (list `(,attsym ',attributes)))
  	   (,strsym (empty-string)))
  
negative.code: (in-package :common-lisp-user)
  
  (defpackage :dsgner
    (:use #:cl)
    (:export #:empty-string
  	   #:deftag
  	   #:deftags))
  
  (in-package :dsgner)
  
  (defun empty-string ()
    (make-array '(0) 
  