文字列のCRC32チェックサムを計算する - lisp-cookbook-ja/common-lisp GitHub Wiki

下記では、ライブラリのironcladを利用しています。

ライブラリの導入方法

(ql:quickload :ironclad)

文字列のCRC-32を計算

;;; 16進数で表示するためのユーティリティ
(defun write-seq-base-16 (seq &key ((:stream *standard-output*)
                                    *standard-output*)
                              &aux (*print-base* 16))
  (map nil (lambda (e) (write e)) seq))
(write-seq-base-16 
 (crypto:digest-sequence 'ironclad:crc32 
                         (crypto:ascii-string-to-byte-array 
                          "The quick brown fox jumps over the lazy dog")))
;>>  8C736521
;=>  NIL