function luatexbase.add_to_callback(name,fun,description,priority)
texio.write_nl('\string\n HERE: adding ' ..
description ..
' to ' ..
name ..
' with priority ' ..
(priority or '@@@'))
texio.write_nl('Original list')
for k,v in pairs(luatexbase.callback_descriptions(name)) do
texio.write_nl(' ' .. k .. ': ' .. v)
end
local priority= priority
if priority==nil then
priority=\string#luatexbase.callback_descriptions(name)+1