From 4d3c74ef34628d5a66dac647da2f2e908e25cf00 Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Sat, 6 Jan 2018 19:33:07 +0300
Subject: [PATCH] Restore a test.

---
 tests/compiler-2.pure.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/compiler-2.pure.lisp b/tests/compiler-2.pure.lisp
index adff9dd19..7c277dc1d 100644
--- a/tests/compiler-2.pure.lisp
+++ b/tests/compiler-2.pure.lisp
@@ -932,6 +932,13 @@
                (ignore-errors (format log ""))))
     ((t) nil)))
 
+(with-test (:name (:ensure-lvar-fun-form :lvar-uses))
+  (checked-compile-and-assert
+      ()
+      `(lambda (op) (funcall (case op (equal '=) (t '=)) 1 2))
+    (('equal) nil)
+    ((t) nil)))
+
 (with-test (:name :substitute-let-funargs-during-find-initial-dfo)
   (checked-compile
    `(lambda ()
-- 
2.11.4.GIT