merging in rturbo-oorder-aobj2 - gcl.git - GNU Common Lisp

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))