caleb-cvs January 2008

caleb-cvs@common-lisp.net

1 participants
2 discussions

[caleb-cvs] r34 - src
by blt＠common-lisp.net 10 Jan '08

10 Jan '08

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

1 0

[caleb-cvs] r33 -
by blt＠common-lisp.net 10 Jan '08

10 Jan '08

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)

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

caleb-cvs January 2008