Set_Tile Problem

Where am i making mistake??? Tiles are setting up with variables

  (MAPCAR
   '(LAMBDA (X)
      (IF (OR (EQUAL (EVAL (CAR X)) NIL) (EQUAL (EVAL (CAR X)) ""))
 (SET (CAR X) (CADR X))
 [color="red"](SET_TILE (VL-PRIN1-TO-STRING (CAR X)) (EVAL (CAR X))) [/color]
      )
    )
   (LIST (LIST 'ALS$HT "")
  (LIST 'ALS$WD ""))
)

I would suggest:

(mapcar
  '(lambda ( sym val )
       (if (member (eval (read sym)) '(nil ""))
           (set (read sym) val)
           (set_tile sym (eval (read sym)))
       )
   )
  '("ALS$HT" "ALS$WD") '("" "")
)

Or

(foreach sym '("ALS$HT" "ALS$WD")
   (if (not (setq val (eval (read sym))))
       (set (read sym) "")
       (set_tile sym val)
   )
)

Or:

(foreach sym '(ALS$HT ALS$WD)
   (if (not (eval sym))
       (set sym "")
       (set_tile (vl-symbol-name sym) (eval sym))
   )
)

Bang on.... Worked like a charm.... Thank you sir

You're most welcome Satish