remove closure in get-inline-info - gcl.git - GNU Common Lisp

diff --git a/gcl/cmpnew/gcl_cmpinline.lsp b/gcl/cmpnew/gcl_cmpinline.lsp
index 79d6383f7..cb49c92d9 100755
--- a/gcl/cmpnew/gcl_cmpinline.lsp
+++ b/gcl/cmpnew/gcl_cmpinline.lsp

@@ -485,21 +485,7 @@

(when (and (eq (car x) fname)

(setq ii (inline-type-matches (cdr x) args return-type)))

(return-from get-inline-info ii)))

- ;; ( n . string , function ) or string , function

-

- (when (and (setq x (get fname 'vfun))

- (if (and (consp x) (typep (car x) 'fixnum))

- (prog1 (>= (length args) (car x)) (setq x (cdr x)))

- t))

- (return-from get-inline-info

- (list (make-list (length args) :initial-element t)

- t (flags allocates-new-storage side-effect-p)

- #'(lambda (&rest l)

- (wt "(VFUN_NARGS="(length l) ",")

- (wt-inline-loc x l)

- (wt ")")))))

- nil

- )

+ nil)

(defun inline-type-matches (inline-info arg-types return-type

&aux (rts nil))