comparison src/specifier.c @ 5420:b9167d522a9a

Rebase with 21.5 trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 28 Oct 2010 23:53:24 +0200
parents 308d34e9f07d d185fa593d5f
children d12a0c55b174
comparison
equal deleted inserted replaced
5419:eaf01113cd42 5420:b9167d522a9a
2822 } 2822 }
2823 2823
2824 if (HAS_SPECMETH_P (sp, instantiate)) 2824 if (HAS_SPECMETH_P (sp, instantiate))
2825 val = call_with_suspended_errors 2825 val = call_with_suspended_errors
2826 ((lisp_fn_t) RAW_SPECMETH (sp, instantiate), 2826 ((lisp_fn_t) RAW_SPECMETH (sp, instantiate),
2827 Qunbound, Qspecifier, errb, 5, specifier, 2827 Qunbound, Qspecifier, ERROR_ME_WARN, 5, specifier,
2828 matchspec, domain, val, depth, no_fallback); 2828 matchspec, domain, val, depth, no_fallback);
2829 2829
2830 if (!UNBOUNDP (val)) 2830 if (!UNBOUNDP (val))
2831 { 2831 {
2832 unbind_to (count); 2832 unbind_to (count);