git.fiddlerwoaroof.com
Browse code

Some fixes

Fernando Borretti authored on 08/02/2015 17:53:50
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))