cl-portmanteau is a library that makes a portmanteau of two words.
A portmanteau (from Wiki) - (/pɔːrtˈmæntoʊ/, /ˌpɔːrtmænˈtoʊ/; plural portmanteaus or portmanteaux /-ˈtoʊz/) or portmanteau word is a linguistic blend of words, in which parts of multiple words or their phones (sounds) are combined into a new word, as in smog, coined by blending smoke and fog, or motel, from motor and hotel. In linguistics, a portmanteau is defined as a single morph that represents two or more morphemes.
CL-USER(1): (asdf:load-system 'portmanteau)
T
CL-USER(2): (portmanteau:portmanteau "mock" "documentary")
"mocumentary"
CL-USER(3):To run cl-portmanteau in CLI mode you will need Roswell installed:
cl-portmanteau $ ros ./run.ros mock documentary
mocumentaryCL-USER(1): (asdf:load-system 'portmanteau)
T
CL-USER(2): (asdf:load-system 'portmanteau-tests)
T
CL-USER(3): (portmanteau-tests:all-tests)
Running test suite MAIN-SUITE
Running test TOO-SHORT-TEST <ERROR> [13:20:37] portmanteau - Both words must be longer than 3
.
Running test MATCHING-TOO-CLOSE-TO-BEGINNING-TEST .
Running test MATCHING-TOO-CLOSE-TO-END-TEST .
Running test NOT-MATCHING-TEST .
Running test MERGER-TEST ....
Did 8 checks.
Pass: 8 (100%)
Skip: 0 ( 0%)
Fail: 0 ( 0%)
T
NIL
CL-USER(4):or via Roswell:
cl-portmanteau $ ros ./run-tests.ros
Running test suite MAIN-SUITE
Running test TOO-SHORT-TEST .
Running test MATCHING-TOO-CLOSE-TO-BEGINNING-TEST .
Running test MATCHING-TOO-CLOSE-TO-END-TEST .
Running test NOT-MATCHING-TEST .
Running test MERGER-TEST ....
Did 8 checks.
Pass: 8 (100%)
Skip: 0 ( 0%)
Fail: 0 ( 0%)
cl-portmanteau $