X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fprimitives.cl;h=ee529806dcd8a55c3f981be65c9d2a4337936ba0;hb=d25b7a871d8122e48eaddac75f3ef27434433c4d;hp=ee7695f06fb95b6f0f011910246d1d77eaf9cba8;hpb=bf5c7e7c36474375604bcbcedea8794a68dd1784;p=uffi.git

diff --git a/src/primitives.cl b/src/primitives.cl
index ee7695f..ee52980 100644
--- a/src/primitives.cl
+++ b/src/primitives.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: primitives.cl,v 1.4 2002/03/14 21:03:12 kevin Exp $
+;;;; $Id: primitives.cl,v 1.5 2002/03/14 21:32:23 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -28,6 +28,8 @@
 (defmacro def-type (name type)
   "Generates a (deftype) statement for CL. Currently, only CMUCL
 supports takes advantage of this optimization."
+  #+(or lispworks allegro)
+  (declare (ignore type))
   #+(or lispworks allegro)
   `(deftype ,name () t)
   #+cmu