#xyzzy の lambda マクロをコンパイルするとなんかおかしい

gistfile1.txt

;; xl-critic でバイトコンパイルするとエラーになる原因は
;; destructuring-bind 内で使っている lambda マクロが原因？
;; clisp だと動くので xyzzy のどっかのバグ?

(defun test1 ()
  (let ((a 1))
    ((lambda () a))))
;=> test1
(test1)
;=> 1
(compile 'test1)
;=> test1
(test1)
;=> 変数が定義されていません: a



(defun test2 ()
  (let ((a 1))
    (funcall #'(lambda () a))))
;=> test2
(test2)
;=> 1
(compile 'test2)
;=> test2
(test2)
1




;; 逆アセンブルした結果


Function test1:
stack frame max:    1
stack depth max:    1
argument list:      nil
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   3: CONSTANT                  1
   4: local-set-discard         LOCALVAR-1
   6: call-0                    (lambda nil a)
   8: RET                       

Function test2:
stack frame max:    1
stack depth max:    1
argument list:      nil
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   3: CONSTANT                  1
   7: lexical-bind              14, (a)
   8: lexical-set-discard       a
  10: make-closure              (lambda nil a)
  12: funcall                   1
  14: RET