home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / c / save.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-04-19  |  400 b   |  27 lines
  1. #ifndef FIRSTWORD
  2. #include "include.h"
  3. #endif
  4.  
  5. memory_save(original_file,save_file)
  6.      char *original_file,*save_file;
  7. {
  8.   
  9.   unexec(save_file,original_file,0,0,0);
  10. }
  11.  
  12.  
  13. Lsave()
  14. {
  15.     char filename[256];
  16.  
  17.     check_arg(1);
  18.     check_type_or_pathname_string_symbol_stream(&vs_base[0]);
  19.     coerce_to_filename(vs_base[0], filename);
  20.  
  21.     _cleanup();
  22.     memory_save(kcl_self, filename);
  23.  
  24.     exit(0);
  25.     /*  no return  */
  26. }
  27.