:map example

map.cl

;; for (defclass … (:default-initargs :foo 5 :bar 6))

  CL-USER> (defvar *ast*
	           (bp:with-builder ('list) 
	             (bp:node* (:defclass) 
	               (1 (:default-initarg . (:map . :name)) (bp:node* (:initform :value 5)) :name :foo)
	               (1 (:default-initarg . (:map . :name)) (bp:node* (:initform :value 6)) :name :bar))))
*AST*

CL-USER> (architecture.builder-protocol.print-tree:print-tree 'list *ast* *standard-output*)
DEFCLASS
├─DEFAULT-INITARG[:FOO]: INITFORM
│   VALUE: 5
└─DEFAULT-INITARG[:BAR]: INITFORM
    VALUE: 6