[cl-typesetting-devel] Page n of m?

[Peter Seibel]

"Marc Battyani" <marc.battyani at fractalconcept.com> writes:

>> Peter Seibel <peter at javamonkey.com> writes:
>
>> Okay, more diggging around and I got it to work. The problem was my
>> call to mark-ref-point was clobbering the old ref. So I changed my
>> call:
>>
>>   (typeset:mark-ref-point :the-end)
>>
>> to:
>>
>>   (unless (typeset::find-ref-point :the-end)
>>     (typeset:mark-ref-point :the-end))
>>
>> It seems, at the very least, that perhaps this check in mark-ref-point
>>
>>   (when (gethash id *reference-table*)
>>     (error "Reference ~s redefined" id))
>>
>> should be written:
>>
>>   (when (find-ref-point id)
>>     (error "Reference ~s redefined" id))
>>
>> so it'll look in *previous-reference-table* as well as
>> *reference-table*. That at least would have given me an error.
>
> No, it's an error to define twice a ref in the same pass, it's not
> an error to redefine the ref for each pass. It could have been
> changed between the 2 passes.

Okay, that makes sense. So is my workaround the Right Way or a nasty
kludge?

-Peter

-- 
Peter Seibel                                      peter at javamonkey.com

         Lisp is the red pill. -- John Fraser, comp.lang.lisp