From b41b60e7bf34e19949443bc8409e95794cbf0e13 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Tue, 7 Apr 2020 21:37:28 +0200
Subject: [PATCH] tests: add a regression test for #571

---
 src/tests/normal-tests/compiler.lsp | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/tests/normal-tests/compiler.lsp b/src/tests/normal-tests/compiler.lsp
index 4f8931650..169137773 100644
--- a/src/tests/normal-tests/compiler.lsp
+++ b/src/tests/normal-tests/compiler.lsp
@@ -1744,3 +1744,14 @@
           (is (eq (peer* v1) v2))
           (is (eq (peer* v2) v1)))))))
 
+;;; Date 2020-03-13
+;;; URL: https://gitlab.com/embeddable-common-lisp/ecl/-/issues/571
+;;; Description
+;;;
+;;;     LOAD-TIME-VALUE inside a DEFMETHOD is evaluated at the
+;;;     compilation time.
+(test cmp.0078.defmethod-not-eager
+  (finishes (with-compiler ("aux-compiler.0078.lsp")
+              `(defclass class () ())
+              `(defmethod method ()
+                 (load-time-value (find-class class))))))