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