git.fiddlerwoaroof.com
Browse code

Comment out alias/anchor-related code

Fernando Borretti authored on 30/03/2015 20:47:50
Showing 1 changed files
src/parser.lisp
History View file @ d009da3
... ... 
@@ -46,11 +46,13 @@
46 46 
                            (eql type :document-end-event))
47 47 
                        (add-to-output (list type)))
48 48 
                       ;; Alias and scalar event, push the type and data pair to
49 
-                      ;; the output list
49 
+                      ;; the output list. Disabled since they are not supported.
50 
+                      #|
50 51 
                       ((eql type :alias-event)
51 52 
                        (add-to-output
52 53 
                         (cons type
53 54 
                               (libyaml.event:event-alias-data event))))
55 
+                      |#
54 56 
                       ((eql type :scalar-event)
55 57 
                        (add-to-output
56 58 
                         (cons type
... ... 
@@ -68,9 +70,7 @@
68 70 
                         (cons type
69 71 
                               (libyaml.event:event-mapping-start-data event))))
70 72 
                       ((eql type :mapping-end-event)
71 
-                       (add-to-output (list type)))
72 
-                      (t
73 
-                       t))))
73 
+                       (add-to-output (list type))))))
74 74 
                 ;; Signal an error
75 75 
                 (signal-reader-error parser))))))))
76 76
... ... 
@@ -87,9 +87,12 @@
87 87 
                  (append (first contexts)
88 88 
                          con))))
89 89 
         ;; Alias event
90 
+        ;; Disabled since it's not supported
91 
+        #|
90 92 
         ((:alias-event &key anchor)
91 93 
          (declare (ignore anchor))
92 94 
          t)
95 
+        |#
93 96 
         ;; Scalar
94 97 
         ((:scalar-event &key anchor tag value)
95 98 
          (declare (ignore anchor tag))