src/lisp/vars.h

   1 /*
   2
   3  This code was written as part of the CMU Common Lisp project at
   4  Carnegie Mellon University, and has been placed in the public domain.
   5
   6 */
   7
   8 #ifndef _VARS_H_
   9 #define _VARS_H_
  10
  11 extern void flush_vars(void);
  12 extern struct var *lookup_by_name(char *name);
  13 extern struct var *lookup_by_obj(lispobj obj);
  14 extern struct var *define_var(char *name, lispobj obj, boolean perm);
  15 extern struct var *define_dynamic_var(char *name,
  16                                       lispobj update_fn(struct var *var),
  17
  18                                       boolean perm);
  19
  20 extern char *var_name(struct var *var);
  21 extern lispobj var_value(struct var *var);
  22 extern long var_clock(struct var *var);
  23 extern void var_setclock(struct var *var, long value);
  24
  25 #endif /* _VARS_H_ */