Monday, December 23, 2002

Work has consumed me these last few weeks. I'm not entirely sure why or how. But I can't stop thinking about the projects I'm working on.

The scary bit is that I don't mind. It's like work has become some kind of escape (!). Even my birthday just kind of came and went.

Part of it is that I have made significant, measurable progress on said projects, which always brings a high. Like a drug addict, though, I keep going for that next high, postponing other commitments.

At least I got all my Christmas shopping done on time.

Tuesday, December 10, 2002

(defun clMatchPermutations (match_rules objects)
(let ((match_args (car match_rules))
(match_body (cdr match_rules))
(match_results (tconc nil nil)))
(setq match_fun (eval `(lambda ,match_args ,@match_body) (theEnvironment)))
(mapcar (lambda (argset)
(when (apply match_fun argset)
(tconc match_results argset)))
(cdar objects))
(cdar match_results)))

One of those deep-thought days. As usual, I had interruptions every 15 minutes or so, but I managed to shrug them off. I managed to get hard-core pattern matching algorithms proven correct and implemented (though not quite debugged).

Usually when I write code I feel like I'm being lazy, as if writing code is not real work. I don't usually get the euphoric feeling that I do after grunging out a difficult line integral or somesuch. Today was a nice exception. I feel like I did bona fide intellectual work.