[projects/cmucl/cmucl.git] / src / lisp / vars.h

/*

 This code was written as part of the CMU Common Lisp project at
 Carnegie Mellon University, and has been placed in the public domain.

*/

#ifndef _VARS_H_
#define _VARS_H_

extern void flush_vars(void);
extern struct var *lookup_by_name(char *name);
extern struct var *lookup_by_obj(lispobj obj);
extern struct var *define_var(char *name, lispobj obj, boolean perm);
extern struct var *define_dynamic_var(char *name,
				      lispobj update_fn(struct var *var),

				      boolean perm);

extern char *var_name(struct var *var);
extern lispobj var_value(struct var *var);
extern long var_clock(struct var *var);
extern void var_setclock(struct var *var, long value);

#endif /* _VARS_H_ */
Commit	Line	Data
eeab7066 RT	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	*/
62957726	7
e67c0397	8	#ifndef _VARS_H_
e67c0397	9	#define _VARS_H_
62957726	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),
9a8c1c2f	17
62957726	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);
e67c0397	24
e67c0397	25	#endif /* _VARS_H_ */