anchor.diff:       (error "Not a declaration: ~S" ?everything))))
   
   
  -
  -(defmethod generate (expression)
  -  (if (atom expression)
  -    (generate-expression expression)
  +(defmethod generate ((expression t))
  +  (generate-expression expression))
  +
  +(defmethod generate ((expression cons))
  +  
       (let ((key (first expression)))
         (ecase key
   
  
positive.code:         ((\#cond)
           (let ((op "#if"))
             (dolist (clause clauses)
               (if (find (first clause) '(t (quote t)) :test (function equal))
                 (emit :fresh-line "#else" :newline)
                 (progn (emit :fresh-line op " ")
                        (generate-expression (first clauses))
                        (emit :newline)
                        (setf op "#elif")))
               (dolist (item (rest clauses))
                 (generate item)))))
  
          ((\#if \#ifdef \#ifndef)
           (destructuring-bind (\#test ?condition ?then &optional ?else) expression
  
negative.code:            com.informatimago.linc.c::scope
             com.informatimago.linc.c::literal
             com.informatimago.linc.c::identifier)
           (generate-expression expression)))))
  
  ;; (class (scope Configuration Exception InvalidFieldException))
  
  