Tue Jan 12 08:03:54 UTC 2010 pix@kepibu.org
* Extract template handling of MATCH[ING] into %TEMPLATE-FOR-MATCH
hunk ./match-block.lisp 13
+(defun %template-for-match (template)[_^M_][_$_]
+ (if (variablep template)[_^M_][_$_]
+ `',template ; Logical variables are special-cased.[_^M_][_$_]
+ template))[_^M_][_$_]
hunk ./match-block.lisp 46
- (template (if (variablep template)[_^M_][_$_]
- `',template ; Logical variables are special-cased.[_^M_][_$_]
- template))[_^M_][_$_]
+ (template (%template-for-match template))[_^M_][_$_]
hunk ./match-block.lisp 178
- (template (if (variablep template)[_^M_][_$_]
- `',template ; Logical variables are[_^M_][_$_]
- ; special-cased.[_^M_][_$_]
- template)) [_^M_][_$_]
+ (template (%template-for-match template))[_^M_][_$_]