               p]
         ]
     (subs (str
-         (if (contains? r :solid)
+         (if (contains-not-null r :solid)
            (str (nextline)
                (generate
                  (merge

            ""
        )

        (if (contains? r :line) 
            (join "" (map #(str (nextline) (generate (merge (Line) {:points [(nth points %) (nth points (+ % 1))] :parent r}))) (range 4)))
        )
      ) 1)

      "40" (:height t)
      "1" (:text t)
      ])
    (if (contains-not-null t :rotation) (str (nextline) "50" (nextline) (:rotation t)) "")
    (if (contains-not-null t :xscale) (str (nextline) "41" (nextline) (:xscale t)) "")
    (if (contains-not-null t :obliqueAngle) (str (nextline) "51" (nextline) (:obliqueAngle t)) "")
    (if (contains-not-null t :style) (str (nextline) "7" (nextline) (upper-case (:name (:style t)))) "")
    (if (contains-not-null t :flag) (str (nextline) "71" (nextline) (:flag t)) "")
    (if (contains-not-null t :justifyhor) (str (nextline) "72" (nextline) (:justifyhor t)) "")
    (if (contains-not-null t :alignment) (str (nextline) (point (:alignment t) 1)) "")
    (if (contains-not-null t :justifyver) (str (nextline) "73" (nextline) (:justifyver t)) "")
  ))

(defmethod generate :solid [s]
