cl-portmanteau

cl-portmanteau is a library that makes a portmanteau of two words.

Definition

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.

Installation and usage

CL-USER(1): (asdf:load-system 'portmanteau)

T
CL-USER(2): (portmanteau:portmanteau "mock" "documentary")

"mocumentary"
CL-USER(3):

CLI

To run cl-portmanteau in CLI mode you will need Roswell installed:

cl-portmanteau $ ros ./run.ros mock documentary
mocumentary

Tests

CL-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 $