projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add telemini-v3.0 to list of binaries we stach in LLC repo for production use
[fw/altos]
/
src
/
lisp
/
ao_lisp_save.c
diff --git
a/src/lisp/ao_lisp_save.c
b/src/lisp/ao_lisp_save.c
index e6e8b65e151ae28ba8bc211bc7ae4b4abb6ce668..4f850fb992ce5db1fd1aba720aef4109d1c819f1 100644
(file)
--- a/
src/lisp/ao_lisp_save.c
+++ b/
src/lisp/ao_lisp_save.c
@@
-21,7
+21,7
@@
ao_lisp_save(struct ao_lisp_cons *cons)
return AO_LISP_NIL;
#ifdef AO_LISP_SAVE
return AO_LISP_NIL;
#ifdef AO_LISP_SAVE
- struct ao_lisp_os_save *os = (struct ao_lisp_os_save *) &ao_lisp_pool[AO_LISP_POOL];
+ struct ao_lisp_os_save *os = (struct ao_lisp_os_save *)
(void *)
&ao_lisp_pool[AO_LISP_POOL];
ao_lisp_collect(AO_LISP_COLLECT_FULL);
os->atoms = ao_lisp_atom_poly(ao_lisp_atoms);
ao_lisp_collect(AO_LISP_COLLECT_FULL);
os->atoms = ao_lisp_atom_poly(ao_lisp_atoms);
@@
-43,7
+43,7
@@
ao_lisp_restore(struct ao_lisp_cons *cons)
#ifdef AO_LISP_SAVE
struct ao_lisp_os_save save;
#ifdef AO_LISP_SAVE
struct ao_lisp_os_save save;
- struct ao_lisp_os_save *os = (struct ao_lisp_os_save *) &ao_lisp_pool[AO_LISP_POOL];
+ struct ao_lisp_os_save *os = (struct ao_lisp_os_save *)
(void *)
&ao_lisp_pool[AO_LISP_POOL];
if (!ao_lisp_os_restore_save(&save, AO_LISP_POOL))
return ao_lisp_error(AO_LISP_INVALID, "header restore failed");
if (!ao_lisp_os_restore_save(&save, AO_LISP_POOL))
return ao_lisp_error(AO_LISP_INVALID, "header restore failed");