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