anchor.diff:  
   (defmethod %eval ((x cons))
     (cond ((eq '= (car x))
  -         (emit (raw= (make-ruby-form (cdr x) t))))
  +         (emit (=ruby-code (make-ruby-form (cdr x) t))))
           ((keywordp (car x))
            (process-tag x))
           ((and (symbolp (car x))
                 (fboundp (car x)))
            (emit (eval x)))
           (t
  -         (emit (raw (make-ruby-form x))))))
  +         (emit (ruby-code (make-ruby-form x))))))
   
   (defun process-tag (form)
     (multiple-value-bind (tag id classes) (parse-tag (car form))
  
positive.code: (defmethod to-ruby-exp ((x number))
    (to-ruby-exp (princ-to-string x)))
  
  (defmethod to-ruby-exp ((x raw))
    (value x))
  
  (defmethod to-ruby-exp ((x raw=))
    (format nil "b__.push(~a)" (value x)))
  
  (defmethod to-ruby-exp ((x html-safe))
  
negative.code:                              (html-safe (escape x))
                               x))))
               (flush ()
                 (when buffer
                   (%write buffer)
                   (setf buffer nil)))
               (%write (x)
                 (format stream "~a~%" (to-ruby-exp x))))
        (loop for i in (nreverse *buffer*)
  