1446 |
MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET |
MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET |
1447 |
MAP-ID := integer |
MAP-ID := integer |
1448 |
" |
" |
1449 |
`(let ((prog ,(ccl-compile (eval ccl-program)))) |
`(let ((prog ,(unwind-protect |
1450 |
|
(progn |
1451 |
|
;; To make ,(charset-id CHARSET) works well. |
1452 |
|
(fset 'charset-id 'charset-id-internal) |
1453 |
|
(ccl-compile (eval ccl-program))) |
1454 |
|
(fmakunbound 'charset-id)))) |
1455 |
(defconst ,name prog ,doc) |
(defconst ,name prog ,doc) |
1456 |
(put ',name 'ccl-program-idx (register-ccl-program ',name prog)) |
(put ',name 'ccl-program-idx (register-ccl-program ',name prog)) |
1457 |
nil)) |
nil)) |