-(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)))))
-