From 49fc7b2f58f56ea7c9aa8169be3dfcc22b818be2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 10 Dec 2011 18:54:17 +0000
Subject: 	* boot/parser.boot (bpArgtypeList): Accept mapping types. 
 * boot/ast.boot (bfType): New. 	* boot/translator.boot
 (genDeclaration): Use it. 	* boot/utility.boot (every?): New.  Export. 
 (any?): Likewise. 	(takeWhile): Lilkewise.

---
 src/boot/strap/parser.clisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/boot/strap/parser.clisp')

diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp
index a91db6cc..f6799dbf 100644
--- a/src/boot/strap/parser.clisp
+++ b/src/boot/strap/parser.clisp
@@ -494,7 +494,7 @@
     T)
    (T NIL)))
 
-(DEFUN |bpArgtypeList| () (|bpTuple| #'|bpApplication|))
+(DEFUN |bpArgtypeList| () (|bpTuple| #'|bpSimpleMapping|))
 
 (DEFUN |bpMapping| ()
   (AND (|bpParenthesized| #'|bpArgtypeList|) (|bpEqKey| 'ARROW)
-- 
cgit v1.2.3