- (aset (car (cdr (standard-case-table))) lc uc)
- (aset (car (cdr (standard-case-table))) uc uc)
- (aset (car (standard-case-table)) uc lc)
- (aset (car (standard-case-table)) lc lc)
- ;; Recompute the equivalence and canonicalize tables.
- (set-standard-case-table (list (car (standard-case-table))
- (nth 1 (standard-case-table))
- nil nil))