mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

Enforce :BOOL representation type on condition values for IF statements.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-28 14:46:28 +01:00
parent c17b26f4d2
commit b659f7de92
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/new-cmp/cmpif.lsp
View file

@ -16,6 +16,8 @@
(defun c1alternatives (form true-branch false-branch)
(c1with-saved-value (prefix postfix temp form)
(when (or prefix postfix)
(setf (var-kind temp) :bool))
(nconc prefix
(if true-branch
(nconc (c1jmp-true true-branch temp)