From 1925cc9b1d5335e20b12f797fb71078c546931e1 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Mon, 12 Jul 2010 15:00:24 +0000 Subject: [PATCH] Add some comments, noting the author. --- tools/piglatin.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/tools/piglatin.lisp b/tools/piglatin.lisp index 56797b79c..b97a503dc 100644 --- a/tools/piglatin.lisp +++ b/tools/piglatin.lisp @@ -1,3 +1,14 @@ +;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: CL-USER -*- +;;; +;;; A very rudimentary machine translator to convert English to Pig +;;; Latin. Written by Paul Foley. +;;; +;;; DO-TRANSLATIONS will translate all of the pot files in the given +;;; directory, placing the translations in the subdirectory +;;; en@piglatin/LC_MESSAGES. + +(in-package "CL-USER") + (defun latinize-1 (word) (cond ((string= word "I") "Iway") ((string= word "a") "away") -- GitLab