home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / lisp / kcl_tar.z / kcl_tar / c / bds.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-04  |  424 b   |  21 lines
  1. /*
  2. (c) Copyright Taiichi Yuasa and Masami Hagiya, 1984.  All rights reserved.
  3. Copying of this file is authorized to users who have executed the true and
  4. proper "License Agreement for Kyoto Common LISP" with SIGLISP.
  5. */
  6.  
  7. /*
  8.     bds.c
  9.  
  10.     bind stack routines
  11. */
  12.  
  13. #include  "include.h"
  14.  
  15. bds_unwind(new_bds_top)
  16. bds_ptr new_bds_top;
  17. {
  18.     for (;  bds_top > new_bds_top;  bds_top--)
  19.         (bds_top->bds_sym)->s.s_dbind = bds_top->bds_val;
  20. }
  21.