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

cmp: p1fset type propagator returns FUNCTION

Browse source 
Previously the propagator incorrectly returned the type of the function lambda.
This commit is contained in:
Daniel Kochmański 2021-05-12 14:34:53 +02:00
parent e4fca7e8e7
commit 8716c62f6d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpprop.lsp
View file

@ -25,7 +25,7 @@
(p1propagate form assumptions))
(defun p1fset (c1form assumptions fun fname macro pprint c1forms)
(p1propagate (fun-lambda fun) assumptions))
(values 'function assumptions))
(defun p1propagate (form assumptions)
(unless form