[caleb-cvs] r34 - src

[blt at 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