/[caleb]/src/utils.lisp
ViewVC logotype

Diff of /src/utils.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 33 by blt, Tue Jan 1 16:29:28 2008 UTC revision 34 by blt, Thu Jan 10 21:43:28 2008 UTC
# Line 70  Line 70 
70  ;; TODO: This is LispWorks 4.4 specific.  ;; TODO: This is LispWorks 4.4 specific.
71    
72  (defun globally-special-p (varname)  (defun globally-special-p (varname)
   (eq (cl::variable-information varname) :special))  
73      (eq (cl::variable-information varname) :special))
74    
75    (defun contact-email ()
76      (let* ((chars '(#\b #\l #\t #\@ #\s #\c #\h #\. #\b #\m #\e #\. #\h #\u))
77             (rv (make-string (length chars))))
78        (loop for i from 0 below (length chars)
79              do (setf (aref rv i) (nth i chars)))
80        rv))
81    

Legend:
Removed from v.33  
changed lines
  Added in v.34

  ViewVC Help
Powered by ViewVC 1.1.5