X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fimmediates.cl;h=62e216f1c1fc5382fe5fd03aa43889d751655e81;hb=a6a97b850359b8b6bfce65ee9a8ee78552e4907e;hp=b22a47b029f9c648d08344b9b984f14a2e2dc56f;hpb=e7691ffb0055b6a2c27639838b3b594e808f8973;p=uffi.git diff --git a/src/immediates.cl b/src/immediates.cl index b22a47b..62e216f 100644 --- a/src/immediates.cl +++ b/src/immediates.cl @@ -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))