r1526: *** empty log message ***
[uffi.git] / src / immediates.cl
index b22a47b029f9c648d08344b9b984f14a2e2dc56f..62e216f1c1fc5382fe5fd03aa43889d751655e81 100644 (file)
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; Copyright (c) 2002 Kevin M. Rosenberg
 ;;;;
-;;;; $Id: immediates.cl,v 1.1 2002/03/09 19:55:33 kevin Exp $
+;;;; $Id: immediates.cl,v 1.2 2002/03/10 05:09:00 kevin Exp $
 ;;;;
 ;;;; This file is part of the UFFI. 
 ;;;;
@@ -111,7 +111,7 @@ supports this."
     '((* . :pointer) (:void . :void) 
       (:short . :short)
       (:pointer-void . (:pointer :void))
-      (:c-string . (:pointer (:unsigned :char))) 
+      (:c-string . (:pointer :char))
       (:char . :char) (:unsigned-char . (:unsigned :char))
       (:int . :int) (:unsigned-int . (:unsigned :int))
       (:long . :long) (:unsigned-long . (:unsigned :long))