:null-terminated-p ,null-terminated-p
:external-format '(:latin-1 :eol-style :lf)))
#+cmu
:null-terminated-p ,null-terminated-p
:external-format '(:latin-1 :eol-style :lf)))
#+cmu
- `(cmucl-naturalize-cstring (alien:alien-sap ,obj)
- :length ,length
- :null-terminated-p ,null-terminated-p)
+ `(if (null-pointer-p ,obj)
+ nil
+ (cmucl-naturalize-cstring (alien:alien-sap ,obj)
+ :length ,length
+ :null-terminated-p ,null-terminated-p))
(let* ((,size (length ,obj))
(,storage (alien:make-alien (alien:unsigned 8) (1+ ,size))))
(setq ,storage (alien:cast ,storage (* (alien:unsigned 8))))
(let* ((,size (length ,obj))
(,storage (alien:make-alien (alien:unsigned 8) (1+ ,size))))
(setq ,storage (alien:cast ,storage (* (alien:unsigned 8))))
(declare (fixnum ,i))
(setf (alien:deref ,storage ,i) (char-code (char ,obj ,i))))
(setf (alien:deref ,storage ,size) 0))
(declare (fixnum ,i))
(setf (alien:deref ,storage ,i) (char-code (char ,obj ,i))))
(setf (alien:deref ,storage ,size) 0))