From blt at common-lisp.net  Thu Jan 10 20:55:21 2008
From: blt at common-lisp.net (blt at common-lisp.net)
Date: Thu, 10 Jan 2008 15:55:21 -0500 (EST)
Subject: [caleb-cvs] r33 - 
Message-ID: <20080110205521.704E87323C@common-lisp.net>

Author: blt
Date: Thu Jan 10 15:55:14 2008
New Revision: 33

Modified:
   caleb.asd
Log:
- test whether I can commit from here to common-lisp.net


Modified: caleb.asd
==============================================================================
--- caleb.asd	(original)
+++ caleb.asd	Thu Jan 10 15:55:14 2008
@@ -1,3 +1,4 @@
+;; LICENSE COMES HERE
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (unless (find-package :hu.caleb.system)


From blt at common-lisp.net  Thu Jan 10 21:43:29 2008
From: blt at common-lisp.net (blt at common-lisp.net)
Date: Thu, 10 Jan 2008 16:43:29 -0500 (EST)
Subject: [caleb-cvs] r34 - src
Message-ID: <20080110214329.2BE017A00B@common-lisp.net>

Author: blt
Date: Thu Jan 10 16:43:28 2008
New Revision: 34

Modified:
   src/utils.lisp
Log:
- added contact email printer

Modified: src/utils.lisp
==============================================================================
--- src/utils.lisp	(original)
+++ src/utils.lisp	Thu Jan 10 16:43:28 2008
@@ -70,4 +70,12 @@
 ;; TODO: This is LispWorks 4.4 specific.
 
 (defun globally-special-p (varname)
-  (eq (cl::variable-information varname) :special))
\ No newline at end of file
+  (eq (cl::variable-information varname) :special))
+
+(defun contact-email ()
+  (let* ((chars '(#\b #\l #\t #\@ #\s #\c #\h #\. #\b #\m #\e #\. #\h #\u))
+         (rv (make-string (length chars))))
+    (loop for i from 0 below (length chars)
+          do (setf (aref rv i) (nth i chars)))
+    rv))
+    
\ No newline at end of file