| commit | 88f12479d30902b0d2c05be41901c96b92a88a77 | [log] [tgz] |
|---|---|---|
| author | MG Mud User <mud@mg.mud.de> | Fri Jun 24 23:31:02 2016 +0200 |
| committer | MG Mud User <mud@mg.mud.de> | Fri Jun 24 23:32:04 2016 +0200 |
| tree | 7a8a34c3e3c1f55780ee8420a7a59c984ee0e399 |
Added public files Roughly added all public files. Probably missed some, though.
diff --git a/obj/tools/lisp/stack.h b/obj/tools/lisp/stack.h new file mode 100644 index 0000000..f0578f4 --- /dev/null +++ b/obj/tools/lisp/stack.h
@@ -0,0 +1,8 @@ +// STACK.H -- stack macros + +#define INITSTACK(s) (s = ({})) +#define PUSH(s,x) (s += ({ (x) })) +#define POP(s,x) (x = s[<1], s = s[0..<2]) +#define POPX(s) (s = s[0..<2]) +#define TOP(s) ((s)[<1]) +#define SP(s) (sizeof(s))