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

Remove debug statements from compiled and optimized setf-forms.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-10 23:32:43 +01:00
parent 91dece26de
commit e51bc95e24
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmptop.lsp
View file

@ -235,9 +235,6 @@
cl_object f1 = ecl_fdefinition(setf_form);
cl_object f2 = ECL_CONS_CAR(setf_vv);
if (f1 != f2) {
cl_print(1,f1);
cl_print(1,f2);
cl_print(1,setf_form);
FEundefined_function(setf_form);
}
return f2;