From dd6933dbbfb9d8247876e818c7053218944e70a3 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 1 May 2011 04:17:50 +0000
Subject: 	* interp/buildom.boot: Replace use of EQSUBSTLIST with
 applySubst. 	* interp/c-util.boot: Likewise. 	*
 interp/cattable.boot: Likewise. 	* interp/compiler.boot: Likewise. 
 * interp/define.boot: Likewise. 	* interp/format.boot: Likewise. 
 * interp/functor.boot: Likewise. 	* interp/hashcode.boot: Likewise. 
 * interp/i-output.boot: Likewise. 	* interp/i-syscmd.boot: Likewise. 
 * interp/lisplib.boot: Likewise. 	* interp/modemap.boot: Likewise. 
 * interp/rulesets.boot: Likewise. 	* interp/slam.boot: Likewise. 	*
 interp/sys-macros.lisp (APPLYR, TAILFN, TAIL, rplac): Remove as 
 unused.

---
 src/boot/ast.boot        | 2 +-
 src/boot/strap/ast.clisp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/boot')

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index 561c8746..84e631e6 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -161,7 +161,7 @@ bfPile: %List %Form -> %List %Form
 bfPile(part) == 
   part
  
-bfAppend: %List %List %List %Form -> %List %Form
+bfAppend: %List %List %Form -> %List %Form
 bfAppend ls ==
   ls isnt [l,:ls] => nil
   r := copyList l
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 3a69097f..a020a01a 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -197,7 +197,7 @@
 
 (DEFUN |bfPile| (|part|) |part|)
 
-(DECLAIM (FTYPE (FUNCTION ((|%List| (|%List| (|%List| |%Form|))))
+(DECLAIM (FTYPE (FUNCTION ((|%List| (|%List| |%Form|)))
                     (|%List| |%Form|))
                 |bfAppend|))
 
-- 
cgit v1.2.3