X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fprimitives.cl;h=a0bcae74361768916e7d066a5478042d07e90830;hb=f3c0481a74e3289b222c26051fc817cc69e133a6;hp=c5c64502ce241ce64bf4b2b62fe58e7b4f476231;hpb=c7b9e795a73b25b3c81ecb1c8c69b8f0f944a064;p=uffi.git

diff --git a/src/primitives.cl b/src/primitives.cl
index c5c6450..a0bcae7 100644
--- a/src/primitives.cl
+++ b/src/primitives.cl
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; Copyright (c) 2002 Kevin M. Rosenberg
 ;;;;
-;;;; $Id: primitives.cl,v 1.1 2002/03/10 21:48:50 kevin Exp $
+;;;; $Id: primitives.cl,v 1.2 2002/03/10 22:29:47 kevin Exp $
 ;;;;
 ;;;; This file is part of the UFFI. 
 ;;;;
@@ -42,7 +42,7 @@ supports this."
   #+(or lispworks allegro)
   (declare (ignore type name))
   #+cmu
-  `(declare (type (alien ,type) ,name))
+  `(declare (type (alien:alien ,type)) ,name)
   )
 
 (defmacro slot-type (type)
@@ -90,7 +90,7 @@ supports this."
     '((* . *) (:void . c-call:void) 
       (:short . c-call:short)
       (:pointer-void . (* t))
-      (:cstring . c-call:cstring)
+      (:cstring . c-call:c-string)
       (:char . c-call:char) 
       (:unsigned-char . (alien:unsigned 8))
       (:byte . (alien:unsigned 8))