Lines Matching defs:augment
302 augments ;; augment list
410 ;; Add identifier to list of augment tables.
419 ;; return augment list structure
532 (defun compile-indent-augment-list (table table-list &aux labels augment tokens)
534 ;; Create a list of all augment tables.
535 (dolist (augment (indtable-augments table))
536 (setq labels (append labels (indaugment-labels augment)))
548 (setq augment (car (member label table-list :key #'indtable-label)))
549 (error "COMPILE-INDENT-AUGMENT-LIST: Cannot augment ~A in ~A"
556 (setq tokens (append tokens (indtable-tokens augment)))
559 ;; Store the tokens in the augment list. They will be added
565 (compile-indent-augment-list child table-list)
573 (defun link-indent-augment-list (table)
589 (link-indent-augment-list child)
734 ;; Build augment list.
735 (compile-indent-augment-list main tables)
736 (link-indent-augment-list main)