#!/usr/bin/picolisp /usr/lib/picolisp/lib.l # Use: ./fixstyle [-v] outfile (and (= "-v" (opt)) (on *Verbose)) (de Data ("analysed" . "analyzed") ("built-in" . "builtin") ("chastized" . "chastised") ("commandline" . "command-line") ("de-allocate" . "deallocate") ("dropin" . "drop-in") ("hardcode" . "hard-code") ("meta-data" . "metadata") ("multicharacter" . "multi-character") ("multiway" . "multi-way") ("non-empty" . "nonempty") ("non-profit" . "nonprofit") ("non-trappable" . "nontrappable") ("pre-define" . "predefine") ("preextend" . "pre-extend") ("re-compiling" . "recompiling") ("reenter" . "re-enter") ("turnkey" . "turn-key") ) (in NIL (while (apply echo '`(mapcar car Data)) (let (Key @ Val (get Data Key)) (when *Verbose (out 2 (prinl Key " => " Val)) ) (prin Val) ) ) ) (bye)