| author | Camm Maguire <camm@debian.org> | 2014年09月12日 09:06:14 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年09月12日 09:06:14 -0400 |
| commit | 0afe3a6a5fe7e927428fdf7844dc6453e7fafe09 (patch) | |
| tree | b594585d895500817d59c7ebc4beb6bf7eae791f | |
| parent | 6582b01fea8a31d27f103bc080f7617ed2eb53a6 (diff) | |
| parent | 440d07af52b5d689aadc2bf0da3aca221e928c58 (diff) | |
| download | gcl-0afe3a6a5fe7e927428fdf7844dc6453e7fafe09.tar.gz | |
| -rwxr-xr-x | gcl/cmpnew/gcl_cmptop.lsp | 3 |
diff --git a/gcl/cmpnew/gcl_cmptop.lsp b/gcl/cmpnew/gcl_cmptop.lsp index 52a79bb31..e123d7b0a 100755 --- a/gcl/cmpnew/gcl_cmptop.lsp +++ b/gcl/cmpnew/gcl_cmptop.lsp @@ -689,7 +689,7 @@ (prog1 *vind* (incf *vind*))) (defun t2defun (fname cfun lambda-expr doc sp) - (declare (ignore sp)) + (declare (ignore cfun lambda-expr doc sp)) (cond ((get fname 'no-global-entry)(return-from t2defun nil))) (cond ((< *space* 2) (setf (get fname 'debug-prop) t) @@ -727,7 +727,6 @@ (*current-form* (list 'defun fname)) (*volatile* (volatile (second lambda-expr))) *downward-closures*) - (declare (ignore doc)) (cond ((dolist (v *inline-functions*) (or (si::fixnump (nth 3 v)) |