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))))))