[armedbear-cvs] r12227 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Oct 26 13:27:36 2009
New Revision: 12227

Log:
Fix broken merge causing build breakage.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Mon Oct 26 13:27:36 2009
@@ -377,8 +377,8 @@
                                  (eq 'QUOTE (car arg)))))
               (cdr form))))
 
-(declaim (ftype (function (t) t) convert-toplevel-form))
-(defun convert-toplevel-form (form)
+(declaim (ftype (function (t t) t) convert-toplevel-form))
+(defun convert-toplevel-form (form declare-inline)
   (when (or (simple-toplevel-form-p form)
             (and (eq (car form) 'SETQ)
                  ;; for SETQ, look at the evaluated part