/[cmucl]/src/lisp/vars.h
ViewVC logotype

Contents of /src/lisp/vars.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Tue Jul 28 20:15:39 1992 UTC (21 years, 9 months ago) by wlott
Branch: MAIN
CVS Tags: RELEASE_18d, snapshot-2003-10, snapshot-2004-10, release-18e-base, snapshot-2004-08, snapshot-2004-09, remove_negative_zero_not_zero, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, dynamic-extent-base, LINKAGE_TABLE, PRE_LINKAGE_TABLE, mod-arith-base, sparc_gencgc_merge, snapshot-2004-12, snapshot-2004-11, RELEASE_18a, RELEASE_18b, RELEASE_18c, amd64-merge-start, release-18e-pre2, prm-before-macosx-merge-tag, cold-pcl-base, snapshot-2003-11, release-19a-base, sparc_gencgc, snapshot-2003-12, release-19a-pre1, release-19a-pre3, release-19a-pre2, release-19a, UNICODE-BASE, release-18e, snapshot-2004-04, snapshot-2005-01, lisp-executable-base, release-18e-pre1
Branch point for: mod-arith-branch, sparc_gencgc_branch, RELENG_18, dynamic-extent, UNICODE-BRANCH, lisp-executable, release-18e-branch, cold-pcl, release-19a-branch
File MIME type: text/plain
Initial revision
1 wlott 1.1 /* $Header: /tiger/var/lib/cvsroots/cmucl/src/lisp/vars.h,v 1.1 1992/07/28 20:15:39 wlott Exp $ */
2    
3    
4     extern void flush_vars(void);
5     extern struct var *lookup_by_name(char *name);
6     extern struct var *lookup_by_obj(lispobj obj);
7     extern struct var *define_var(char *name, lispobj obj, boolean perm);
8     extern struct var *define_dynamic_var(char *name,
9     lispobj update_fn(struct var *var),
10     boolean perm);
11    
12     extern char *var_name(struct var *var);
13     extern lispobj var_value(struct var *var);
14     extern long var_clock(struct var *var);
15     extern void var_setclock(struct var *var, long value);

  ViewVC Help
Powered by ViewVC 1.1.5