(defmacro convert-to-foreign-string (obj &optional foreign-encoding)
#+allegro
(let ((stored (gensym "STR-"))
- (ef (gensym "EF-"))
- (nef (gensym "NEF-")))
- `(let ((,stored ,obj)
+ (fe (gensym "FE-"))
+ (ife (gensym "IFE-")))
+ `(let* ((,stored ,obj)
(,fe (or foreign-encoding *default-foreign-encoding*))
(,ife (when ,fe
(implementation-foreign-encoding ,fe))))
#+(or cmu scl sbcl digitool openmcl)
`(%convert-to-foreign-string ,obj (implementation-foreign-encoding
- (or ,foreign-encoding *default-foreign-encoding)))
+ (or ,foreign-encoding *default-foreign-encoding*)))
)
(declare (ignore null-terminated-p))
#+(or openmcl digitool)
(let ((stored-obj (gensym "STR-"))
- (fe (gensym "FE-"))
- (ife (gensym "IFE-")))
+ (fe (gensym "FE-")))
`(let ((,stored-obj ,obj))
(if (ccl:%null-ptr-p ,stored-obj)
nil