Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ecl
ecl
Commits
0f751776
Commit
0f751776
authored
Aug 14, 2020
by
Marius Gerbershagen
Browse files
tests: add regression test for #594
parent
4e1847f7
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/tests/normal-tests/compiler.lsp
View file @
0f751776
...
...
@@ -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
)))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment