sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests: add regression test for #594

Browse source
This commit is contained in:
Marius Gerbershagen 2020-08-14 21:38:18 +02:00
parent 4e1847f775
commit 0f75177676
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/tests/normal-tests/compiler.lsp
View file

@ -1921,3 +1921,20 @@
(multiple-value-setq (*a* *b*) (foo))
(and (eq *a* :right-a)
(eq *b* :right-b))))))))
;;; Date 2020-08-14
;;; URL: https://gitlab.com/embeddable-common-lisp/ecl/-/issues/594
;;; Description
;;;
;;; The code walker used in DEFMETHOD would call MAKE-LOAD-VALUE
;;; for literal objects encountered during code walking, even while
;;; loading a file or using eval.
(ext:with-clean-symbols (test-class test-method)
(eval '(defclass test-class () ()))
(eval '(defmethod make-load-form ((obj test-class) &optional env)
(error "We shouldn't have called MAKE-LOAD-FORM here.")))
(test cmp.0082.defmethod-make-load-form
(let* ((test-obj (make-instance 'test-class))
(code `(defmethod test-method ()
,test-obj)))
(finishes (eval code)))))