| author | Camm Maguire <camm@debian.org> | 2013年11月15日 15:03:58 +0000 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2013年11月15日 15:03:58 +0000 |
| commit | 3431e361306c967bab16fff578f87c0b974bb85e (patch) | |
| tree | 6ab2ee2904281c7bf5e5d05587f5e28bf6e4406b | |
| parent | 06459ef166dcd09c559e547db1e5e70377cf63c8 (diff) | |
| download | gcl-3431e361306c967bab16fff578f87c0b974bb85e.tar.gz | |
| -rwxr-xr-x | gcl/lsp/gcl_evalmacros.lsp | 2 |
diff --git a/gcl/lsp/gcl_evalmacros.lsp b/gcl/lsp/gcl_evalmacros.lsp index 86b6223e1..0ebfd45dc 100755 --- a/gcl/lsp/gcl_evalmacros.lsp +++ b/gcl/lsp/gcl_evalmacros.lsp @@ -94,7 +94,7 @@ (parse-body-header body) `(let (,@(mapcan (lambda (x &aux (z (pop x))(z (if (eq z 'type) (pop x) z))) (case z - ((ftype inline notinline optimize) nil) + ((ftype inline notinline optimize special) nil) (otherwise (mapcar (lambda (x) (list x x)) x)))) (apply 'append (mapcar 'cdr decls)))) ,@(when doc (list doc)) |