読者です 読者をやめる 読者になる 読者になる

コンパイルすると何故か異様にファイルサイズが大きくなる関数

sbcl

表題の通り。

;; sbcl-1.0.28, sbcl-1.0.37
;; ファイル名: huge.lisp
(defun decode-surrogate-pair (high low)
  (code-char (+ #x10000
                (ash (ldb (byte 10 0) high) 10)
                (ash (ldb (byte 10 0) low)  00))))
$ sbcl
* (compile-file "huge")
* (quit)

$ ls -lh huge.fasl
-rw-r--r-- 1 user group 5.1M 2010-05-03 00:49 huge.fasl

何でこれだけの定義で5MBものファイルができるのだろう?