Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix uffi-compat:octets-to-string.

Initial patch courtesy of François-René Rideau.
  • Loading branch information...
commit 9384ee8a193d6ffec9ba9c56f4a6ffa9347b9472 1 parent 27c17aa
@luismbo luismbo authored
Showing with 6 additions and 4 deletions.
  1. +6 −4 uffi-compat/uffi-compat.lisp
View
10 uffi-compat/uffi-compat.lisp
@@ -650,9 +650,11 @@ output to *trace-output*. Returns the shell's exit code."
"")))
(defmacro octets-to-string (octets &key encoding)
- `(babel:octets-to-string
- :encoding (or ,encoding cffi:*default-foreign-encoding*)))
+ `(babel:octets-to-string ,octets
+ :encoding (or ,encoding
+ cffi:*default-foreign-encoding*)))
(defun foreign-encoded-octet-count (str &key encoding)
- (babel:string-size-in-octets
- str :encoding (or encoding cffi:*default-foreign-encoding*)))
+ (babel:string-size-in-octets str
+ :encoding (or encoding
+ cffi:*default-foreign-encoding*)))
Please sign in to comment.
Something went wrong with that request. Please try again.