base: Export unsigned-fixnum as a handy type to have.

diff --git a/mdw-base.lisp b/mdw-base.lisp
index e87c511..c4c3e17 100644 (file)
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -28,7 +28,8 @@
 
 (defpackage #:mdw.base
   (:use #:common-lisp)
 
 (defpackage #:mdw.base
   (:use #:common-lisp)

-  (:export #:compile-time-defun
+  (:export #:unsigned-fixnum
+          #:compile-time-defun

           #:show
           #:stringify #:mappend #:listify #:fix-pair #:pairify #:parse-body
           #:whitespace-char-p
           #:show
           #:stringify #:mappend #:listify #:fix-pair #:pairify #:parse-body
           #:whitespace-char-p


@@ -44,6 +45,13 @@
 (in-package #:mdw.base)
 
 ;;;--------------------------------------------------------------------------
 (in-package #:mdw.base)
 
 ;;;--------------------------------------------------------------------------

+;;; Useful types.
+
+(deftype unsigned-fixnum ()
+  "Unsigned fixnums; useful as array indices and suchlike."
+  `(mod ,most-positive-fixnum))
+
+;;;--------------------------------------------------------------------------

 ;;; Some simple macros to get things going.
 
 (defmacro compile-time-defun (name args &body body)
 ;;; Some simple macros to get things going.
 
 (defmacro compile-time-defun (name args &body body)