デãƒãƒƒã‚°æ™‚ã®print文挿入 - 週記ãらã„(BTS開発記)デãƒãƒƒã‚°æ™‚ã®print文挿入 lisp ã©ã†ã›printfデãƒãƒƒã‚°ã—ã‹ã—ãªã„ã‚“ã ã‹ã‚‰ã€ tapã¯ä¾¿åˆ©ã‹ã‚‚ - ボクノス tapã®æ–¹å‘性ã¨ã¯ã©ã‚“ã©ã‚“ãšã‚Œã¦ã„ãã¾ã™ãŒã€common lispã®ãƒžã‚¯ãƒã‚’使ã†æ–¹æ³•ã®å ´åˆã€‚ é•·ã„Så¼ã®å€¤ã®å ´åˆã€(p ã®é–‰ã˜ã‚«ãƒƒã‚³å…¥åŠ›ã™ã‚‹ã®ãŒé¢å€’ã ã¨æ€ã£ãŸã®ã§ã€ãƒ‡ãƒãƒƒã‚°ç”¨ã«printã—ãŸã„Så¼ã®å‰ã«ã€#? を書ãã¨ç›´å¾Œã®Så¼ã‚’評価ã—ãŸçµæžœã®print文を挿入ã™ã‚‹ãƒžã‚¯ãƒã‚’書ã„ã¦ã¿ã¾ã—ãŸã€‚*1 マクãƒå®šç¾© (set-dispatch-macro-character #\# #\? #'(lambda (stream char1 char2) (let ((sexp (gensym))) `(let ((,sexp ,(read stream t nil t))) (print ,sexp) ,sexp)))) 使用例 (defun rec (a &optional (ac
ã¯ã¦ãªãƒ–ãƒã‚° | 無料ブãƒã‚°ã‚’作æˆã—よã†
{{#tags}}- {{label}}
{{/tags}}