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: (defpackage :lisp-rails-view
    (:use :cl))
  
  (in-package :lisp-rails-view)
  
  (defvar *buffer* nil)
  
  (defclass raw ()
    ((value :initarg :value :accessor value)))
  
  (defclass raw= (raw) ())
  
  (defclass html-safe ()
    ((value :initarg :value :accessor value)))
  
  (defun raw (x)
    (make-instance 'raw :value x))
  
  (defun raw= (x)
    (make-instance 'raw= :value x))
  
  (defun html-safe (x)
    (make-instance 'html-safe :value x))
  
negative.code: (defmethod to-ruby-exp ((x number))
    (to-ruby-exp (princ-to-string x)))
  
  (defmethod to-ruby-exp ((x ruby-code))
    (value x))
  
  (defmethod to-ruby-exp ((x =ruby-code))
    (format nil "b__.push(~a)" (value x)))
  
  (defmethod to-ruby-exp ((x html-safe))
  