ftp.nice.ch/pub/next/developer/languages/lisp/AKCL.1.599.s.tar.gz#/akcl-1-599/c/unixsaveNeXT.c

This is unixsaveNeXT.c in view mode; [Download] [Up]

/*
 *	unixsaveNeXT.c:
 *
 *		by Noritake Yonezawa, April 26, 1991
 */

Lsave()
{
    char                filename[256];
    char                command[100];
    extern int          my_edata;

    check_arg(1);
    check_type_or_pathname_string_symbol_stream(&vs_base[0]);
    coerce_to_filename(vs_base[0], filename);

    _cleanup();

    unexec(filename, kcl_self);

    exit(0);
 /* no return  */
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.