From ec5cb3ca19e5ff70869dbe77ac3fcc008bc33e0f Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 16 Dec 2015 03:17:49 +0000 Subject: [PATCH] src/c-types-parse.lisp: Cope if `*module-type-map*' is unbound. This is useful for testing parsing outside of the context of a module file. --- src/c-types-parse.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/c-types-parse.lisp b/src/c-types-parse.lisp index 53fc811..15d942a 100644 --- a/src/c-types-parse.lisp +++ b/src/c-types-parse.lisp @@ -240,7 +240,8 @@ ;; Turns out to be easier to do this by hand. (let ((ds (and (eq (token-type scanner) :id) (let ((kw (token-value scanner))) - (or (gethash kw *module-type-map*) + (or (and (boundp '*module-type-map*) + (gethash kw *module-type-map*)) (gethash kw *declspec-map*)))))) (cond ((or (not ds) (and predicate (not (funcall predicate ds)))) (values (list indicator) nil nil)) -- 2.11.0