(defun du (path &optional recursivep) (labels ((fol (b p) (/ b (expt #1=1024 p))) (approx (b) (let ((tb (truncate (if (zerop b) 0 (log (* b 0.9) #1#)))) (pm "KMGTPEZY")) (format nil "~,1F~AB" (fol b tb) (if (zerop tb) nil (if (> tb (length…

フレームとバッファとグローバルマーカを一元管理するモードを考えていて、ちょっと詰まってきた*1ので気分転換に作ってみた。 謎の機能クロージャ - himadatenodeの日記 でこれを何かに使った事とって殆どないけどと言われてるクロージャだけど、数値を記憶…