Pocket7878_dev https://blog.hatena.ne.jp/Pocket7878_dev/ Let's write β https://tech-blog.pocket7878.com/ Lisp ちょっとしたマークやフラグを大量生成するならVectoをつかってみるのも手かもしれません。 (ql:quickload :vecto) (defpackage :vecto-user (:use :cl :vecto)) (in-package :vecto-user) (defun radiant-lambda (num file) (with-canvas (:width 90 :height 90) (let ((font (get-font "/usr/share/fonts/truetype/msttcorefonts/times.ttf")) (flag-str (format n… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftech-blog.pocket7878.com%2Fentry%2F20120902%2F1346576167" title="Vectoをつかってマークを自動生成 - Let&#39;s write β" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://cdn-ak.f.st-hatena.com/images/fotolife/P/Pocket7878_dev/20120902/20120902175552.png Hatena Blog https://hatena.blog 2012-09-02 17:56:07 rich https://tech-blog.pocket7878.com/entry/20120902/1346576167 1.0 100%