From 8716c62f6d912d353d8723e1e9da9b1ea2b9855d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Wed, 12 May 2021 14:34:53 +0200 Subject: [PATCH] cmp: p1fset type propagator returns FUNCTION Previously the propagator incorrectly returned the type of the function lambda. --- src/cmp/cmpprop.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpprop.lsp b/src/cmp/cmpprop.lsp index 6c81f2987..73d76b4ef 100644 --- a/src/cmp/cmpprop.lsp +++ b/src/cmp/cmpprop.lsp @@ -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