mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 06:22:33 -08:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'fix-571' into 'develop'

Browse source 
Fix 571

Closes #571

See merge request embeddable-common-lisp/ecl!195
This commit is contained in:
Marius Gerbershagen 2020-04-09 16:51:47 +00:00
commit abe2a2811f
10 changed files with 105 additions and 89 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -655,7 +655,7 @@
(subst 3 l l)
(make-instance 'compiler-test-class)
(subst (make-instance 'compiler-test-class) 3 l)))
collect (clos::need-to-make-load-form-p object nil))
collect (si::need-to-make-load-form-p object))
'(nil nil t t))))
;;; Date: 18/05/2005
@ -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))))))