#xyzzy labels をコンパイルすると泣ける

gistfile1.lisp

;; labels の lambda-list 内の init-form で同じ labels 式で定義したローカル
;; 関数を呼び出してると、コンパイルで挙動が変わる

(defun x () :global)
=> x

(defun test ()
  (labels ((x () :local)
           (test-1 (&optional (val (x))) val))
    (test-1)))
=> test

(test)
=> :local

(compile 'test)
=> test

(test)
=> :global