r1544: *** empty log message ***

[uffi.git] / src / primitives.cl

diff --git a/src/primitives.cl b/src/primitives.cl
index c5c64502ce241ce64bf4b2b62fe58e7b4f476231..a0bcae74361768916e7d066a5478042d07e90830 100644 (file)
--- 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))