| (body (cadr (caddr x))) |
(body (cadr (caddr x))) |
| (points (car body)) |
(points (car body)) |
| (elements (cadr body)) |
(elements (cadr body)) |
| (outline-mincho (skelton2list (applykanji body 'mincho-patch) 'mincho-patch)) |
(outline-mincho (skeleton2list (applykanji body 'mincho-patch) 'mincho-patch)) |
| (outline-gothic (skelton2list (applykanji body 'gothic) 'gothic))) |
(outline-gothic (skeleton2list (applykanji body 'gothic) 'gothic))) |
| (format "((sym /c)(points /c)(elements /c)(min-points /c)(min-elements /c)(goth-points /c)(goth-elements /c))/n" |
(format "((sym /c)(points /c)(elements /c)(min-points /c)(min-elements /c)(goth-points /c)(goth-elements /c))/n" |
| sym (length points)(length elements) |
sym (length points)(length elements) |
| (outpoints outline-mincho)(outelements outline-mincho) |
(outpoints outline-mincho)(outelements outline-mincho) |
Diff of /lisp/test/toukei.l
Parent Directory
| 
Revision Log