From 69e4519cc42f43814ae617dd2d7fb8bf06599e5c Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 16 Sep 2007 23:12:45 +0200
Subject: PRIMITIVE-INVOKE: Simplify memory allocation.

darcs-hash:c123cb0cf9d6d6264904dde03970cd44bb7d3a01
---
 Lisp/data-types.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Lisp/data-types.lisp')

diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index 1095e38..25bbc21 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -218,3 +218,7 @@ an __exception__, you can simply send it the `self' message.
 ;;;; (@* "Convenience types")
 (deftype c-pointer ()
   '(satisfies pointerp))
+
+
+(deftype argument-number ()
+  `(integer 0 ,call-arguments-limit))
-- 
cgit v1.2.3