| author | Camm Maguire <camm@debian.org> | 2014年09月12日 09:03:32 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年09月12日 09:03:32 -0400 |
| commit | 440d07af52b5d689aadc2bf0da3aca221e928c58 (patch) | |
| tree | bac35961b0cbcfbc5b3bac175c34e1f3332be157 | |
| parent | 10d80439d5b7dbfd8b22e8b15dde0c7361d514e4 (diff) | |
| download | gcl-440d07af52b5d689aadc2bf0da3aca221e928c58.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 08211a0f8..b9286fc69 100755 --- a/gcl/cmpnew/gcl_cmptop.lsp +++ b/gcl/cmpnew/gcl_cmptop.lsp @@ -688,7 +688,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) @@ -726,7 +726,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)) |