formatter problem

The following code results in a "Justification illegal in this
context" error in CCL

```
(let ((*print-pretty* t)) (format nil "~<~:; ~S ~>" '(car)))
```

However if you try t pass'(CARD) instead of '(CAR)' to format, it
works apparently because it is not fbound.

If anyone has a clue about this, please post.

PS: I have an open pull-request and another patch open on github,
(both of which I've tested for a few years now).  I'd like to get
these reviewed for correcteness and get these into the tree.

If there are any resons why they will not be accepted, please let me
know.