aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r--src/interp/g-util.boot7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 8815cf5b..95943989 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -267,6 +267,13 @@ $interpOnly := false
--% Utility Functions of General Use
+mkCacheName(name) ==
+ INTERN strconc(PNAME name,'";AL")
+
+mkAuxiliaryName(name) ==
+ INTERN strconc(PNAME name,'";AUX")
+
+
homogeneousListToVector(t,l) ==
makeSimpleArrayFromList(t,l)