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))
```