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 9c503b4bf529bd9b70c74ac179d9b0ce2a4862b7..788451836272a46ec5a889581ce8a29d432bf071 100644 (file)
--- a/src/c-types-impl.lisp
+++ b/src/c-types-impl.lisp
@@ -207,7 +207,7 @@ (defmethod pprint-c-type ((type simple-c-type) stream kernel)
 
 ;; 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)