From df4fac6bb2474dd807709dbc2f8142ca6c513337 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 1 Jun 2013 16:28:58 +0000
Subject: 	* interp/category.boot (filterConditionalCategories): Fix
 thinko.

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

(limited to 'src/lisp')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 4b72e76f..8468c558 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -87,6 +87,7 @@
 	   "%Vector"
 	   "%BitVector"
 	   "%SimpleArray"
+	   "%Table"
 
 	   ;; Some common data structures
 	   "makeTable"	  ; construct a hash table with a given comp function
@@ -282,6 +283,8 @@
 
 (deftype |%BitVector| () '(simple-array bit))
 
+(deftype |%Table| nil 'hash-table)
+
 (deftype |%Shell| () 'simple-vector)
 
 (deftype |%Mode| () '(or symbol string cons))
@@ -1503,5 +1506,6 @@
     (|int|     . @int_type@)
     (|float|   . @float_type@)
     (|double|  . @double_type@)
-    (|string|  . @string_type@)))
+    (|string|  . @string_type@)
+    (|address| . @pointer_type@)))
 
-- 
cgit v1.2.3