-(defun char-ptr-points-to-null (char-ptr)
- "Returns T if foreign character pointer refers to 'NULL' string. Only called for numeric entries"
- ;; Uses short cut and returns T if first character is #\N. It should
- ;; never be non-numeric
- (declare (type char-ptr-def char-ptr))
- (or (uffi:null-pointer-p char-ptr)
- (char-equal #\N (uffi:ensure-char-character
- (uffi:deref-pointer char-ptr :char)))))
-
-(defun convert-raw-field (char-ptr types index)
- (declare (optimize (speed 3) (safety 0) (space 0)))
+(defun convert-raw-field (char-ptr types index &optional length)
+ (declare (optimize (speed 3) (safety 0) (space 0))
+ (type char-ptr-def char-ptr))