(DEFUN C:LFX (/ X) ;Layer Freeze X
  (SETQ X (GETSTRING "\nEnter Layer <At Keyboard> To Freeze: "))
  (COMMAND ".LAYER" "F" X "")
  (PRINC)
)