Lines Matching defs:augment
421 ;; Append tokens of the augment list to the tokens of the specified
424 (defun compile-syntax-augment-list (table table-list
425 &aux labels augment tokens)
427 ;; Create a list of all augment tables.
428 (dolist (augment (syntable-augments table))
429 (setq labels (append labels (synaugment-labels augment)))
446 augment
449 (error "COMPILE-SYNTAX-AUGMENT-LIST: Cannot augment ~A in ~A"
456 (setq tokens (append tokens (syntable-tokens augment)))
459 ;; Store the tokens in the augment list. They will be added
465 (compile-syntax-augment-list child table-list)
474 (defun link-syntax-augment-table (table)
508 (link-syntax-augment-table child)
612 ;; augment list. Note that even the main-table can be augmented to
615 ;; Adding the tokens of the augment tables must be done in
617 ;; tokens, as the augment table was processed first, and
619 (compile-syntax-augment-list main-table tables)
622 (link-syntax-augment-table main-table)