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

*compiler-break-enable* was sset to T by FIX-READ-ONLY-VARIABLE-TYPE.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-01-15 11:18:04 +01:00
parent 606449eba0
commit 78b10d89ad
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmplet.lsp
View file

@ -139,9 +139,6 @@
(and-form-type (var-type var) form (var-name var) :unsafe "In LET body")
(let ((form-type (c1form-primary-type form)))
(setf (var-type var) form-type)
(unless (var-type var)
(setf c::*compiler-break-enable* t)
(break))
(update-variable-type var form-type)))
(defun c1let-unused-variable-p (var form)