Какой сейчас самый актуальный / фичастый парсер xml на CL?

(require sxml/ssax/SSAX-code)

(define (new-level elem-gi attributes namespaces expected-content seed)
  ...)

(define (finish-element elem-gi attributes namespaces parent-seed seed)
  ...)

(define (char-data string1 string2 seed)
  ...
  (void))

(define (doctype port docname systemid internal-subset? seed)
  (values #f '() namespaces seed))

(define (undecl-root elem-gi seed)
  (values #f '() namespaces seed))

(define p (ssax:make-parser NEW-LEVEL-SEED new-level
                            FINISH-ELEMENT finish-element
                            CHAR-DATA-HANDLER char-data
                            DOCTYPE doctype
                            UNDECL-ROOT undecl-root))

(call-with-input-file "file.xml"
  (lambda (f)
    (read-char f) ; пропускаем префикс UTF
    (read-line f) ; пропускаем <?xml ... ?>
    (p f #f))))

(eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (find-package :bike)
    (ql:quickload :bike)))

(defpackage #:xml-example
  (:use #:cl #:bike))

(in-package #:xml-example)

(use-namespace 'System.Xml)

(defun parse-xml-file (filename)
  (with-disposable (reader (new 'XmlTextReader filename))
    (flet ((node-type-p (node-type type)
             (bike-equals node-type (enum 'XmlNodeType type))))
      (loop :with stack = '()
            :while (invoke reader 'Read)
            :for nt = (property reader 'NodeType)
            :for name = (property reader 'Name)
            :do (cond ((node-type-p nt 'Element)
                       (push name stack)
                       (format t "Element: ~a~%" name))
                      ((node-type-p nt 'EndElement)                       
                       (let ((name (pop stack)))
                         (format t "End element: ~a~%" name)))
                      ((node-type-p nt 'Text)
                       (format t "Text: ~a~%" (property reader 'Value)))
                      #| ... |#
                      )))))