(DEFUN C:RSPRFX () (SETQ princprfx "[DEBUG] ") (princ) )