Chun Tian (binghe)

超越自我，洞察宇宙

日志

关于我

冰河

Common Lisp 程序员

文章分类

Lisp 宣言

2009-03-22 03:07:04| 分类： Lisp | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

今天，2009 年 3 月 22 日，也就是国际 Lisp 会议开幕的日子，可惜作为一篇重要会议论文作者的敝人不能参加，原因有二，再次简述如下：

护照没办出来，老家那边公安系统里出了一些罕见的技术问题导致户口查询失败了；
我很穷，没有钱用来飞到 MIT 去住上四五天再飞回来。

上述两个原因从本质上来讲都跟我不幸生在了中国有关。

在过去的二十多年人生里，我一直在忙着改变自己的命运，尽管是最近几年才意识到自己究竟在干什么。应该说，我尽了自己最大的努力，并且几乎没走什么明显的弯路，只不过是这条路太长罢了。我做事一直试图同时满足三个原则：1. 具备法律依据和理论支持；2. 遵循社会公序良俗；3. 追求长远利益。在这些原则的指导下，其实唯一的一种可能的生活方式就是不停地学习──用知识和思想武装自己以免受社会阴暗面的腐蚀。对敝人博客有持续阅读习惯的读者会发现，我的思想和各种选择经常前后呼应，左右逢源。我经常会提前几个月甚至更久来计划一件事，然后逐渐接近目标最后一举成功，并且在这个过程中我可以充分利用自身积累的各种知识。不谦虚地说，我的成功将是必然的，这里面没有任何悬念。

Lisp 社区在 50 年蓬勃发展之后的今天已经和以往大不相同了。Lisp 先驱们正在排着队依次离开人世，或者在经历了创业的失败之后逐渐淡出人们的视线。新一代的 Lisp 程序员和爱好者们大都缺乏足够的知识面和对整个 Lisp 社区发展史的了解，他们更看中 Common Lisp 语言本身的优雅和由此引申出的各种实用性，将自己的 Lisp 应用建立在几款流行的 Lisp 平台上并且只依赖于那些充分维护过的基于 ASDF 的 Common Lisp 软件包 (大都列在 Cliki 或者 common-lisp.net 上了)。

我一直坚信，要想充分了解一个事物的本质，必须首先去了解它的整个历史。这就是为什么我对古老的 Lisp 论文和程序如此的痴迷，而我的电脑就是一个巨大的 Lisp 历史资源宝库。很多人都不相信，30 年前的规模达几十万行甚至上百万行代码的商业 Lisp 软件至今仍然无与伦比。这是事实，我有一些明确的证据。在整个 Lisp 社区里，我给自己的定位是承前启后，继往开来──保护那些即将失传的重要 Lisp 代码，然后期待着有一天它们能够重见天日。

所有这些工作并非没有回报，最近我很自豪地以业余 Lisp 程序员的身份被一家软件公司雇佣，主要工作就是维护并改进一个三十多年来应用至今的规模达 100 万行核心 Lisp 代码的古老软件 (Gensym G2)，他们视我为珍宝。这些工作并非体力活，过去的一周里我只写了 10 来行 Lisp 程序就收回了今年 LispWorks 续费的成本。我仔细研究了某些法律文件感觉问题不大。所以从理论上讲我再也不缺钱了，只要我能继续走好这条路。

现在我有三种不同的社会角色：

Linux/Unix 系统管理员。维护产品服务器，研究系统管理相关技术并付诸实践，定期撰写技术文档以维持在业界的声望；
开源社区 Lisp 程序员。维护几个重要的开源 Lisp 项目，其中包括我自己从头写的；偶尔写论文总结成果。
商业 Lisp 程序员。维护历史悠久的 Lisp 商业软件。

从下周开始，我要重新安排作息时间并且严格遵守公司的时间表了，否则将很难正确区分工作时间和业余时间。

我是一个严肃的科研工作者，理性和科学的道路指引我前进。

评论这张

转发至微博

阅读(15030)| 评论(21)

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_082067084084081074084080094095083086081066',
              blogTitle:'Lisp 宣言',
              blogAbstract:'<div style=\"text-align: center;\"  \><a target=\"_blank\" rel=\"nofollow\" href=\"http://www.gensym.com/\"  \><img title=\"Lisp 宣言 - 冰河 - Chun Tian (binghe)\"  alt=\"Lisp 宣言 - 冰河 - Chun Tian (binghe)\"  src=\"http://img.bimg.126.net/photo/tZZrWR-WKNqaIQdWsZiYtQ==/1986931860601983524.jpg\"  \></a\><br\><br\></div\>今天，2009 年 3 月 22 日，也就是<a target=\"_blank\" rel=\"nofollow\" href=\"http://ilc09.org\"  \>国际 Lisp 会议</a\>开幕的日子，可惜作为一篇重要会议论文作者的敝人不能参加，原因有二，再次简述如下：<div\><ul\><li\>护照没办出来，老家那边公安系统里出了一些罕见的技术问题导致户口查询失败了；</li\><li\>我很穷，没有钱用来飞到 MIT 去住上四五天再飞回来。</li\></ul\>上述两个原因从本质上来讲都跟我<i\><font color=\"#ff0000\"  \><span style=\"font-style: normal;\"  \>不幸生在了中国</span\></font\><font\><span style=\"font-style: normal;\"  \>有关。</span\></font\></i\></div\><div\><br\></div\><div\><hr\></div\><div\><br\></div\><div\>在过去的二十多年人生里，我一直在忙着改变自己的命运，尽管是最近几年才意识到自己究竟在干什么。应该说，我尽了自己最大的努力，并且几乎没走什么明显的弯路，只不过是这条路太长罢了。我做事一直试图同时满足三个原则：1.</div\>',
              blogTag:'',
              blogUrl:'blog/static/70012009222374381',
              isPublished:1,
              istop:false,
              type:1,
              modifyTime:1316824883189,
              publishTime:1237662424381,
              permalink:'blog/static/70012009222374381',
              commentCount:21,
              mainCommentCount:21,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:false,
              hostIntro:'Common Lisp 程序员',
              hmcon:'0',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/70012009222374381">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

Chun Tian (binghe)

导航

日志

Lisp 宣言

历史上的今天

最近读者

热度

评论

页脚