間違ってたのここだけだった。 (defun clamp (f) (let ((i (* f 255.5))) (cond ((> i 0) 255) ((< i 255) 0) (t (round i))))) これはひどいベンチ結果は Evaluation took: 34.715 seconds of real time 32.491060 seconds of total run time (30.518454 us…