Plaster
New
List
Login
common-lisp
default
anonymous
2021.04.30 14:05:23
CL-USER> (let ((cl-symbols (apropos-list "" "CL"))) (dolist (state (mapcar #'string-upcase adeht/un/states:*states*)) (dolist (sym cl-symbols) (let* ((name (symbol-name sym)) (words (split-sequence:split-sequence-if (lambda (char) (find char "-*&")) name :remove-empty-subseqs t)) (distances (mapcar (lambda (word) (snippets/bk-trees:levenshtein-distance word state)) words))) (when (some (lambda (d) (<= d 2)) distances) (format t "~A (~A)~%" (reduce (lambda (s word) (if (<= (snippets/bk-trees:levenshtein-distance word state) 2) (ppcre:regex-replace-all word s state) s)) words :initial-value name) name)))))) CANADA (CAAADR) CANADA (CAADAR) CANADA (CAADR) CANADA (CADADR) *CHAD-PATHNAME* (*LOAD-PATHNAME*) *CHAD-PRINT* (*LOAD-PRINT*) *CHAD-TRUENAME* (*LOAD-TRUENAME*) *CHAD-VERBOSE* (*LOAD-VERBOSE*) *CHAD-BASE* (*READ-BASE*) *CHAD-DEFAULT-FLOAT-FORMAT* (*READ-DEFAULT-FLOAT-FORMAT*) *CHAD-EVAL* (*READ-EVAL*) *CHAD-SUPPRESS* (*READ-SUPPRESS*) ALPHA-CHAD-P (ALPHA-CHAR-P) ARRAY-CHAD-FILL-POINTER-P (ARRAY-HAS-FILL-POINTER-P) BASE-CHAD (BASE-CHAR) CHAD (CAADR) CHAD (CAAR) CHAD (CADR) CHAD (CAR) CHAD (CDADR) CHAD (CDAR) CHAD (CHAR) CHAD-CODE (CHAR-CODE) CHAD-CODE-LIMIT (CHAR-CODE-LIMIT) CHAD-DOWNCASE (CHAR-DOWNCASE) CHAD-EQUAL (CHAR-EQUAL) CHAD-GREATERP (CHAR-GREATERP) CHAD-INT (CHAR-INT) CHAD-LESSP (CHAR-LESSP) CHAD-NAME (CHAR-NAME) CHAD-NOT-EQUAL (CHAR-NOT-EQUAL) CHAD-NOT-GREATERP (CHAR-NOT-GREATERP) CHAD-NOT-LESSP (CHAR-NOT-LESSP) CHAD-UPCASE (CHAR-UPCASE) CHAD (CHAR<) CHAD (CHAR=) CHAD (CHAR>) CODE-CHAD (CODE-CHAR) CHAD (COND) DIGIT-CHAD (DIGIT-CHAR) DIGIT-CHAD-P (DIGIT-CHAR-P) EXTENDED-CHAD (EXTENDED-CHAR) GRAPHIC-CHAD-P (GRAPHIC-CHAR-P) CHAD (LOAD) CHAD-LOGICAL-PATHNAME-TRANSLATIONS (LOAD-LOGICAL-PATHNAME-TRANSLATIONS) CHAD-TIME-VALUE (LOAD-TIME-VALUE) MAKE-CHAD-FORM (MAKE-LOAD-FORM) MAKE-CHAD-FORM-SAVING-SLOTS (MAKE-LOAD-FORM-SAVING-SLOTS) NAME-CHAD (NAME-CHAR) PEEK-CHAD (PEEK-CHAR) CHAD (READ) CHAD-BYTE (READ-BYTE) CHAD-CHAD (READ-CHAR) CHAD-CHAD-NO-HANG (READ-CHAR-NO-HANG) CHAD-DELIMITED-LIST (READ-DELIMITED-LIST) CHAD-FROM-STRING (READ-FROM-STRING) CHAD-LINE (READ-LINE) CHAD-PRESERVING-WHITESPACE (READ-PRESERVING-WHITESPACE) CHAD-SEQUENCE (READ-SEQUENCE) CHAD (SCHAR) SET-SYNTAX-FROM-CHAD (SET-SYNTAX-FROM-CHAR) STANDARD-CHAD (STANDARD-CHAR) STANDARD-CHAD-P (STANDARD-CHAR-P) UNREAD-CHAD (UNREAD-CHAR) WRITE-CHAD (WRITE-CHAR) &CHILE (&WHOLE) *COMPILE-CHILE-PATHNAME* (*COMPILE-FILE-PATHNAME*) *COMPILE-CHILE-TRUENAME* (*COMPILE-FILE-TRUENAME*) COMPILE-CHILE (COMPILE-FILE) COMPILE-CHILE-PATHNAME (COMPILE-FILE-PATHNAME) DELETE-CHILE (DELETE-FILE) END-OF-CHILE (END-OF-FILE) CHILE-AUTHOR (FILE-AUTHOR) CHILE-ERROR (FILE-ERROR) CHILE-ERROR-PATHNAME (FILE-ERROR-PATHNAME) CHILE-LENGTH (FILE-LENGTH) CHILE-NAMESTRING (FILE-NAMESTRING) CHILE-POSITION (FILE-POSITION) CHILE-STREAM (FILE-STREAM) CHILE-STRING-LENGTH (FILE-STRING-LENGTH) CHILE-WRITE-DATE (FILE-WRITE-DATE) PROBE-CHILE (PROBE-FILE) RENAME-CHILE (RENAME-FILE) WITH-OPEN-CHILE (WITH-OPEN-FILE) CONGO (COND) CONGO (CONS) CONGO (CONSP) LEAST-NEGATIVE-CONGO-FLOAT (LEAST-NEGATIVE-LONG-FLOAT) LEAST-NEGATIVE-NORMALIZED-CONGO-FLOAT (LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT) LEAST-POSITIVE-CONGO-FLOAT (LEAST-POSITIVE-LONG-FLOAT) LEAST-POSITIVE-NORMALIZED-CONGO-FLOAT (LEAST-POSITIVE-NORMALIZED-LONG-FLOAT) CONGO-FLOAT (LONG-FLOAT) CONGO-FLOAT-EPSILON (LONG-FLOAT-EPSILON) CONGO-FLOAT-NEGATIVE-EPSILON (LONG-FLOAT-NEGATIVE-EPSILON) CONGO-SITE-NAME (LONG-SITE-NAME) MOST-NEGATIVE-CONGO-FLOAT (MOST-NEGATIVE-LONG-FLOAT) MOST-POSITIVE-CONGO-FLOAT (MOST-POSITIVE-LONG-FLOAT) CZECH (CATCH) CZECH-TYPE (CHECK-TYPE) EGYPT (EXPT) *COMPILE-FIJI-PATHNAME* (*COMPILE-FILE-PATHNAME*) *COMPILE-FIJI-TRUENAME* (*COMPILE-FILE-TRUENAME*) ARRAY-HAS-FIJI-POINTER-P (ARRAY-HAS-FILL-POINTER-P) COMPILE-FIJI (COMPILE-FILE) COMPILE-FIJI-PATHNAME (COMPILE-FILE-PATHNAME) DELETE-FIJI (DELETE-FILE) END-OF-FIJI (END-OF-FILE) FIJI-AUTHOR (FILE-AUTHOR) FIJI-ERROR (FILE-ERROR) FIJI-ERROR-PATHNAME (FILE-ERROR-PATHNAME) FIJI-LENGTH (FILE-LENGTH) FIJI-NAMESTRING (FILE-NAMESTRING) FIJI-POSITION (FILE-POSITION) FIJI-STREAM (FILE-STREAM) FIJI-STRING-LENGTH (FILE-STRING-LENGTH) FIJI-WRITE-DATE (FILE-WRITE-DATE) FIJI (FILL) FIJI-POINTER (FILL-POINTER) FIJI (FIND) FIJI-ALL-SYMBOLS (FIND-ALL-SYMBOLS) FIJI-CLASS (FIND-CLASS) FIJI-IF (FIND-IF) FIJI-IF-NOT (FIND-IF-NOT) FIJI-METHOD (FIND-METHOD) FIJI-PACKAGE (FIND-PACKAGE) FIJI-RESTART (FIND-RESTART) FIJI-SYMBOL (FIND-SYMBOL) PPRINT-FIJI (PPRINT-FILL) PROBE-FIJI (PROBE-FILE) RENAME-FIJI (RENAME-FILE) WITH-OPEN-FIJI (WITH-OPEN-FILE) *FRANCE-OUTPUT* (*TRACE-OUTPUT*) FRANCE (TRACE) FUNCTION-GAMBIA-EXPRESSION (FUNCTION-LAMBDA-EXPRESSION) GAMBIA (LAMBDA) GAMBIA-LIST-KEYWORDS (LAMBDA-LIST-KEYWORDS) GAMBIA-PARAMETERS-LIMIT (LAMBDA-PARAMETERS-LIMIT) READ-CHAR-NO-GHANA (READ-CHAR-NO-HANG) ARRAY-ROW-MAJOR-INDIA (ARRAY-ROW-MAJOR-INDEX) ARRAY-IRAN-BOUNDS-P (ARRAY-IN-BOUNDS-P) ARRAY-IRAN (ARRAY-RANK) ARRAY-IRAN-LIMIT (ARRAY-RANK-LIMIT) IRAN (ATAN) BUILT-IRAN-CLASS (BUILT-IN-CLASS) GET-INTERNAL-IRAN-TIME (GET-INTERNAL-RUN-TIME) IRAN-PACKAGE (IN-PACKAGE) IRAN (TAN) JAPAN (ATAN) JAPAN (MAPCAN) &ALLOW-OTHER-KENYA (&ALLOW-OTHER-KEYS) &KENYA (&KEY) LAOS (ABS) LAOS (ACOS) ARRAY-LAOS-FILL-POINTER-P (ARRAY-HAS-FILL-POINTER-P) BUILT-IN-LAOS (BUILT-IN-CLASS) CHANGE-LAOS (CHANGE-CLASS) LAOS (CLASS) LAOS-NAME (CLASS-NAME) LAOS-OF (CLASS-OF) LAOS (COS) FIND-LAOS (FIND-CLASS) LAOS (LAST) LAOS (LOG) LAOS (LOOP) LAOS-FINISH (LOOP-FINISH) STANDARD-LAOS (STANDARD-CLASS) STRUCTURE-LAOS (STRUCTURE-CLASS) UPDATE-INSTANCE-FOR-DIFFERENT-LAOS (UPDATE-INSTANCE-FOR-DIFFERENT-CLASS) UPDATE-INSTANCE-FOR-REDEFINED-LAOS (UPDATE-INSTANCE-FOR-REDEFINED-CLASS) MALI-ARGUMENTS-LIMIT (CALL-ARGUMENTS-LIMIT) MALI-METHOD (CALL-METHOD) MALI-NEXT-METHOD (CALL-NEXT-METHOD) DO-MALI-SYMBOLS (DO-ALL-SYMBOLS) FIND-MALI-SYMBOLS (FIND-ALL-SYMBOLS) LIST-MALI-PACKAGES (LIST-ALL-PACKAGES) MALI-ARRAY (MAKE-ARRAY) MALI-BROADCAST-STREAM (MAKE-BROADCAST-STREAM) MALI-CONCATENATED-STREAM (MAKE-CONCATENATED-STREAM) MALI-CONDITION (MAKE-CONDITION) MALI-DISPATCH-MACRO-CHARACTER (MAKE-DISPATCH-MACRO-CHARACTER) MALI-ECHO-STREAM (MAKE-ECHO-STREAM) MALI-HASH-TABLE (MAKE-HASH-TABLE) MALI-INSTANCE (MAKE-INSTANCE) MALI-INSTANCES-OBSOLETE (MAKE-INSTANCES-OBSOLETE) MALI-LIST (MAKE-LIST) MALI-LOAD-FORM (MAKE-LOAD-FORM) MALI-LOAD-FORM-SAVING-SLOTS (MAKE-LOAD-FORM-SAVING-SLOTS) MALI-METHOD (MAKE-METHOD) MALI-PACKAGE (MAKE-PACKAGE) MALI-PATHNAME (MAKE-PATHNAME) MALI-RANDOM-STATE (MAKE-RANDOM-STATE) MALI-SEQUENCE (MAKE-SEQUENCE) MALI-STRING (MAKE-STRING) MALI-STRING-INPUT-STREAM (MAKE-STRING-INPUT-STREAM) MALI-STRING-OUTPUT-STREAM (MAKE-STRING-OUTPUT-STREAM) MALI-SYMBOL (MAKE-SYMBOL) MALI-SYNONYM-STREAM (MAKE-SYNONYM-STREAM) MALI-TWO-WAY-STREAM (MAKE-TWO-WAY-STREAM) MALI (MAP) MALI-INTO (MAP-INTO) MALI (MAPC) MALI (MAPL) MALI-FIELD (MASK-FIELD) MALI (MAX) MULTIPLE-VALUE-MALI (MULTIPLE-VALUE-CALL) *READ-NEPAL* (*READ-EVAL*) NEPAL (EVAL) NEPAL-WHEN (EVAL-WHEN) GET-INTERNAL-NEPAL-TIME (GET-INTERNAL-REAL-TIME) NEPAL (REAL) *BREAK-OMAN-SIGNALS* (*BREAK-ON-SIGNALS*) OMAN (ATAN) OMAN (MAP) OMAN-INTO (MAP-INTO) OMAN (MAX) OMAN (MIN) OMAN (OPEN) OMAN-STREAM-P (OPEN-STREAM-P) OMAN (TAN) WITH-OMAN-FILE (WITH-OPEN-FILE) WITH-OMAN-STREAM (WITH-OPEN-STREAM) DIVISION-BY-PERU (DIVISION-BY-ZERO) INTERNAL-TIME-UNITS-PERU-SECOND (INTERNAL-TIME-UNITS-PER-SECOND) PERU-CHAR (PEEK-CHAR) UPGRADED-COMPLEX-PERU-TYPE (UPGRADED-COMPLEX-PART-TYPE) POLAND (LOGAND) QATAR (ATAN) QATAR (CAAAR) QATAR (CAAR) QATAR (CADAR) PPRINT-VINCENT (PPRINT-INDENT) SPAIN (SIN) SPAIN (SPACE) TOGO (GO) TOGO (LOG) MAKE-TOGO-WAY-STREAM (MAKE-TWO-WAY-STREAM) PRIN1-TOGO-STRING (PRIN1-TO-STRING) PRINC-TOGO-STRING (PRINC-TO-STRING) TOGO-WAY-STREAM (TWO-WAY-STREAM) TOGO-WAY-STREAM-INPUT-STREAM (TWO-WAY-STREAM-INPUT-STREAM) TOGO-WAY-STREAM-OUTPUT-STREAM (TWO-WAY-STREAM-OUTPUT-STREAM) WITH-OUTPUT-TOGO-STRING (WITH-OUTPUT-TO-STRING) WRITE-TOGO-STRING (WRITE-TO-STRING) LEAST-NEGATIVE-TONGA-FLOAT (LEAST-NEGATIVE-LONG-FLOAT) LEAST-NEGATIVE-NORMALIZED-TONGA-FLOAT (LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT) LEAST-POSITIVE-TONGA-FLOAT (LEAST-POSITIVE-LONG-FLOAT) LEAST-POSITIVE-NORMALIZED-TONGA-FLOAT (LEAST-POSITIVE-NORMALIZED-LONG-FLOAT) TONGA-FLOAT (LONG-FLOAT) TONGA-FLOAT-EPSILON (LONG-FLOAT-EPSILON) TONGA-FLOAT-NEGATIVE-EPSILON (LONG-FLOAT-NEGATIVE-EPSILON) TONGA-SITE-NAME (LONG-SITE-NAME) MOST-NEGATIVE-TONGA-FLOAT (MOST-NEGATIVE-LONG-FLOAT) MOST-POSITIVE-TONGA-FLOAT (MOST-POSITIVE-LONG-FLOAT) FUNCTION-ZAMBIA-EXPRESSION (FUNCTION-LAMBDA-EXPRESSION) ZAMBIA (LAMBDA) ZAMBIA-LIST-KEYWORDS (LAMBDA-LIST-KEYWORDS) ZAMBIA-PARAMETERS-LIMIT (LAMBDA-PARAMETERS-LIMIT)
Raw
Annotate
Repaste
Edit