anchor.diff:  					 	 (= #\. (car (last sl))))
   						(dot-expand-list sl)
   
  -					 `(%slot-value
  +					 `(slot-value
   					 	,(list-symbol (subseq sl 0 p))
  -						,(conv (list-symbol (subseq sl (1+ p))))))))
  +						(quote ,(conv (list-symbol (subseq sl (1+ p)))))))))
   
   		 label?
   		   (fn (not (or (consp _)
  
positive.code: ;;;;; TRE tree processor
  ;;;;; Copyright (c) 2008 Sven Klose <pixel@copei.de>
  
  (defun dot-expand-make-expr (which num x)
    (if (< 0 num)
  
negative.code: ;			  (label? (second x))
  ;			  (< 1 (length (symbol-name (second x))))
  ;			  (starts-with-dot? (symbol-name (second x))))
  ;		  	(cons `(slot-value ,(dot-expand (first x))
  ;							    ,(conv (make-symbol (subseq (symbol-name (second x))
  ;														    1))))
  ;			      (dot-expand (cddr x))))
  