From 104def0e400bbf3a0daed9e490e41485a9213c9d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 5 May 2011 15:40:21 +0000
Subject: more cleanup

---
 src/lisp/core.lisp.in | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/lisp')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index d4bf2df8..6e56a993 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -82,6 +82,9 @@
 	   "%BitVector"
 	   "%SimpleArray"
 
+	   ;; Some common data structures
+	   "tableValue"	 ; value associated with a key in a table
+
 	   ;; IO
 	   "$InputStream"
 	   "$OutputStream"
@@ -448,6 +451,10 @@
 	   (cond (ver (symbol-value ver))
 		 (t -1))))
 
+;; -*- Hash table -*-
+(defmacro |tableValue| (ht k)
+  `(gethash ,k ,ht))
+
 ;; -*- File IO -*-
 
 (defparameter |$InputStream| (make-synonym-stream '*standard-input*))
-- 
cgit v1.2.3