Commit af3ece57 authored by Levente Meszaros's avatar Levente Meszaros
Browse files

Default value for external-format

parent 0d7f0ea9
...@@ -27,7 +27,7 @@ FILE-NAME. ARGS is sent as is to the call te open." ...@@ -27,7 +27,7 @@ FILE-NAME. ARGS is sent as is to the call te open."
`(with-open-file (,stream-name ,file-name :direction :output ,@args) `(with-open-file (,stream-name ,file-name :direction :output ,@args)
,@body)) ,@body))
(defun read-file-into-string (pathname &key (buffer-size 4096) external-format) (defun read-file-into-string (pathname &key (buffer-size 4096) (external-format :default))
"Return the contents of PATHNAME as a fresh string. "Return the contents of PATHNAME as a fresh string.
The file specified by PATHNAME will be read one ELEMENT-TYPE The file specified by PATHNAME will be read one ELEMENT-TYPE
...@@ -49,7 +49,7 @@ possible values." ...@@ -49,7 +49,7 @@ possible values."
(defun write-string-into-file (string pathname &key (if-exists :error) (defun write-string-into-file (string pathname &key (if-exists :error)
(if-does-not-exist :error) (if-does-not-exist :error)
external-format) (external-format :default))
"Write STRING to PATHNAME. "Write STRING to PATHNAME.
The EXTERNAL-FORMAT parameter will be passed to The EXTERNAL-FORMAT parameter will be passed to
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment