(DEFUN C:LTX (/ X) ;Layer Thaw X
  (SETQ X (GETSTRING "\nEnter Layer <At Keyboard> To Thaw: "))
  (COMMAND ".LAYER" "T" X "")
  (PRINC)
)