HomeSort by: relevance | last modified time | path
    Searched defs:augment (Results 1 - 2 of 2) sorted by relevancy

  /xsrc/external/mit/xedit/dist/lisp/modules/
indent.lsp 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
    [all...]
syntax.lsp 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)))
    [all...]

Completed in 6 milliseconds