uffi/src strings.lisp,1.5,1.6

Update of /pubcvs/uffi/src
In directory boa.b9.com:/tmp/cvs-serv6895/src

Modified Files:
	strings.lisp 
Log Message:


Index: strings.lisp
===================================================================
RCS file: /pubcvs/uffi/src/strings.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** strings.lisp	13 Dec 2002 22:49:09 -0000	1.5
--- strings.lisp	12 Mar 2003 21:13:18 -0000	1.6
***************
*** 56,60 ****
      +null-cstring-pointer+
      (let ((ptr (new-ptr (1+ (length ,obj)))))
!       (ccl:%put-cstring ptr ,obj)
        ptr))
    )
--- 56,60 ----
      +null-cstring-pointer+
      (let ((ptr (new-ptr (1+ (length ,obj)))))
!       (ccl::%put-cstring ptr ,obj)
        ptr))
    )
***************
*** 144,148 ****
         +null-cstring-pointer+
       (let ((ptr (new-ptr (1+ (length ,obj)))))
!        (ccl:%put-cstring ptr ,obj)
         ptr))
    )
--- 144,148 ----
         +null-cstring-pointer+
       (let ((ptr (new-ptr (1+ (length ,obj)))))
!        (ccl::%put-cstring ptr ,obj)
         ptr))
    )