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

Code review on merge request !65

Browse source
This commit is contained in:
Fabrizio Fabbri 2017-05-19 19:18:16 +02:00
parent 88efaa1b6d
commit 95279fb15f
No known key found for this signature in database
GPG key ID: 8276EDF3D10E6C35
5 changed files with 9 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpmain.lsp
View file

@ -262,7 +262,7 @@ void ~A(cl_object cblock)
* circular chain. This disables the garbage collection of
* the library until _ALL_ functions in all modules are unlinked.
*/
cl_object current = Cnil, next = Cblock;
cl_object current = OBJNULL, next = Cblock;
~:{
current = ecl_make_codeblock();
current->cblock.next = next;