chiark
/
gitweb
/
~mdw
/
sod
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
211bfc1
)
src/c-types-parse.lisp: Cope if `*module-type-map*' is unbound.
author
Mark Wooding
<mdw@distorted.org.uk>
Wed, 16 Dec 2015 03:17:49 +0000
(
03:17
+0000)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sun, 29 May 2016 13:40:39 +0000
(14:40 +0100)
This is useful for testing parsing outside of the context of a module
file.
src/c-types-parse.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/c-types-parse.lisp
b/src/c-types-parse.lisp
index 53fc8118c1f7cfb38a3cf93e4b237b4f527a349b..15d942a5b3c6b2d711069e5ab6553ec877e66f58 100644
(file)
--- a/
src/c-types-parse.lisp
+++ b/
src/c-types-parse.lisp
@@
-240,7
+240,8
@@
(defun scan-declspec
;; 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))