diff options
| -rw-r--r-- | lisp/lisp.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/lisp.c b/lisp/lisp.c index a533beb..11a4c04 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -697,7 +697,8 @@ LispDestroy(const char *fmt, ...) lisp__data.mem.index = 0; /* If the package was changed and an error happened */ - PACKAGE = lisp__data.savepackage; + if (lisp__data.savepackage != NULL) + PACKAGE = lisp__data.savepackage; lisp__data.pack = lisp__data.savepack; LispTopLevel(); |