很久以前，我遇到了一些连接脚本，虽然我不记得语法，但我记得注释，因为我是平克·弗洛伊德的粉丝。

//Attempt Handshake: Hello? This is London calling. Are we reaching you?


//Handshake Failed: I don't understand...he just hung up.

#define SHIT_HAPPENED (BASE + 1)   /* generic shit happened */

// TODO: not this

上面写了一个同事迫切需要优化的查询。替他说句话，当时我们几个月都是每周工作70个小时……

不是在代码中，而是在相关的bug跟踪系统中:

这不可能是我代码中的bug。我非常小心地编码。

写得很好的Lisp是最容易阅读的语言之一，我喜欢它。但是写得不好的Lisp可能是比糟糕的Java更糟糕的噩梦，等等。

在这里，我们需要创建一个“组文件”，如果一个原始文件有3个变体，后缀为a, b和c。我一直试图追踪一个奇怪的错误，我们得到了不必要的组文件……

  (let ((varianta (format nil "~aa" problem))
        (variantb (format nil "~ab" problem))
        (variantc (format nil "~ac" problem)))
    ;;if the A and B variants exist, create a group file
    ;;(why not just check for a? I don't know, this just feels right)
    (when (and (probe-file varianta)
               (probe-file variantb))
      ...)))

Bug: 1, Gut: 0。

显然，写这篇文章的人没有想到，也许检查所有三种变体是一个好主意。当然，这是我在最初编写这段代码十年之后(它比第一个SVN日志更早)最终追踪到的错误。

// Empty constructor to satisfy the stupid compiler
 Public ServletHandlerClass () { }