diff options
author | dos-reis <gdr@axiomatics.org> | 2013-06-01 16:28:58 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-06-01 16:28:58 +0000 |
commit | df4fac6bb2474dd807709dbc2f8142ca6c513337 (patch) | |
tree | 92ff0b4c21a41d0680317434649d026e134eec99 /src/lisp/core.lisp.in | |
parent | 64aeafac79d72f440b6546bae91583e6efd6b674 (diff) | |
download | open-axiom-df4fac6bb2474dd807709dbc2f8142ca6c513337.tar.gz |
* interp/category.boot (filterConditionalCategories): Fix thinko.
Diffstat (limited to 'src/lisp/core.lisp.in')
-rw-r--r-- | src/lisp/core.lisp.in | 6 |
1 files changed, 5 insertions, 1 deletions
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@))) |