> To get around the problem, you'd have to do something like:
>
> (loop for char across fmt
> do
> (incf skip)
> (case char
> (#\@ (setf at t))
> (#\: (setf colon t)))
> until (and (operatorp char)
> (setf cmd char)))
>
> Ugly, but those are the breaks.
Interestingly enough, that's exactly what I did, until I decided
to rewrite the whole function. I now use a do* form.
>
> Great title for a course: "Programming as Archaeology."
>
Hey! That's an integral part of my job. It's why I have POSIX,
SysVR3, BSD 4.3 and 4.4, and V7 manuals on my shell at work.
- David