Browse code
Some fixes
Fernando Borretti authored on 08/02/2015 17:53:50
Showing 2 changed files
Showing 2 changed files
... | ... |
@@ -16,16 +16,16 @@ The `yaml` package exports three functions: |
16 | 16 |
|
17 | 17 |
```lisp |
18 | 18 |
CL-USER> (yaml:parse "[1, 2, 3]") |
19 |
-(:DOCUMENT (1 2 3)) |
|
19 |
+(:DOCUMENTS (1 2 3)) |
|
20 | 20 |
|
21 | 21 |
CL-USER> (yaml:parse "{ a: 1, b: 2 }") |
22 |
-(:DOCUMENT {"a" => 1, "b" => 2}) |
|
22 |
+(:DOCUMENTS {"a" => 1, "b" => 2}) |
|
23 | 23 |
|
24 | 24 |
CL-USER> (yaml:parse "- Mercury |
25 | 25 |
- Venus |
26 | 26 |
- Earth |
27 | 27 |
- Mars") |
28 |
-(:DOCUMENT ("Mercury" "Venus" "Earth" "Mars")) |
|
28 |
+(:DOCUMENTS ("Mercury" "Venus" "Earth" "Mars")) |
|
29 | 29 |
``` |
30 | 30 |
|
31 | 31 |
## Emitting |
... | ... |
@@ -18,7 +18,7 @@ |
18 | 18 |
parsed))) |
19 | 19 |
|
20 | 20 |
(defmethod parse ((input pathname) &key single-document-p) |
21 |
- (parse (uiop:read-file-string input) single-document-p)) |
|
21 |
+ (parse (uiop:read-file-string input) :single-document-p t)) |
|
22 | 22 |
|
23 | 23 |
(defun emit (value stream) |
24 | 24 |
(yaml.emitter:emit value stream)) |