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

When type propagation errors happen, show the function context.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-05-26 11:09:53 +02:00
parent d6218547a1
commit 5bbb85fd7f
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpprop.lsp
View file

@ -29,6 +29,10 @@
(return-from p1propagate (values 'null assumptions)))
(when (c1form-p form)
(let* ((*cmp-env* (c1form-env form))
(*compile-file-pathname* (c1form-file form))
(*compile-file-position* (c1form-file-position form))
(*current-form* (c1form-form form))
(*current-toplevel-form* (c1form-toplevel-form form))
(name (c1form-name form))
(propagator (gethash name *p1-dispatch-table*)))
(when propagator