CMUCL commit: src/tools (piglatin.lisp)

[Raymond Toy]

    Date: Monday, July 12, 2010 @ 11:00:24
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/tools

Modified: piglatin.lisp

Add some comments, noting the author.


---------------+
 piglatin.lisp |   11 +++++++++++
 1 file changed, 11 insertions(+)


Index: src/tools/piglatin.lisp
diff -u src/tools/piglatin.lisp:1.2 src/tools/piglatin.lisp:1.3
--- src/tools/piglatin.lisp:1.2	Fri Mar 19 11:19:03 2010
+++ src/tools/piglatin.lisp	Mon Jul 12 11:00:24 2010
@@ -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 at piglatin/LC_MESSAGES.
+
+(in-package "CL-USER")
+
 (defun latinize-1 (word)
   (cond ((string= word "I") "Iway")
 	((string= word "a") "away")