73898c402d6cbaa3db4e57486a8e978cdeaa4d27
[projects/cmucl/cmucl.git] / src / lisp / vars.h
1 /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/vars.h,v 1.3 2005/09/15 18:26:53 rtoy Rel $ */
2
3 #ifndef _VARS_H_
4 #define _VARS_H_
5
6 extern void flush_vars(void);
7 extern struct var *lookup_by_name(char *name);
8 extern struct var *lookup_by_obj(lispobj obj);
9 extern struct var *define_var(char *name, lispobj obj, boolean perm);
10 extern struct var *define_dynamic_var(char *name,
11                                       lispobj update_fn(struct var *var),
12
13                                       boolean perm);
14
15 extern char *var_name(struct var *var);
16 extern lispobj var_value(struct var *var);
17 extern long var_clock(struct var *var);
18 extern void var_setclock(struct var *var, long value);
19
20 #endif /* _VARS_H_ */