I guess it should actually be the following macro, to function as it is supposed to:

```

(defmacro parse-print (data)
  `(if (called-interactively-p)
       (pp ,data)
    ,data))

```