src/c-types-impl.lisp: Make `*simple-type-map*' use `equal' as its test.

It's mapping strings to things, so using `eql' was wrong.  In
particular, it caused (c-type (int :const)) to print incorrectly.

diff --git a/src/c-types-impl.lisp b/src/c-types-impl.lisp
index 9c503b4..7884518 100644 (file)
--- a/src/c-types-impl.lisp
+++ b/src/c-types-impl.lisp
@@ -207,7 +207,7 @@
 
 ;; S-expression notation protocol.
 
-(defparameter *simple-type-map* (make-hash-table)
+(defparameter *simple-type-map* (make-hash-table :test #'equal)
   "Hash table mapping strings of C syntax to symbolic names.")
 
 (defmethod print-c-type (stream (type simple-c-type) &optional colon atsign)