anchor.diff:  (defmethod to-ruby-exp ((x number))
     (to-ruby-exp (princ-to-string x)))
   
  -(defmethod to-ruby-exp ((x raw))
  +(defmethod to-ruby-exp ((x ruby-code))
     (value x))
   
  -(defmethod to-ruby-exp ((x raw=))
  +(defmethod to-ruby-exp ((x =ruby-code))
     (format nil "b__.push(~a)" (value x)))
   
   (defmethod to-ruby-exp ((x html-safe))
  
positive.code:                              (html-safe (escape x))
                               x))))
               (flush ()
                 (when buffer (%write buffer)))
               (%write (x)
                 (format stream "~a~%" (to-ruby-exp x))))
        (loop for i in (nreverse *buffer*)
  
negative.code: (defpackage :lisp-rails-view
    (:use :cl)
    (:shadow :#=))
  
  (in-package :lisp-rails-view)
  
  (defvar *buffer* nil)
  
  (defclass ruby-code ()
    ((value :initarg :value :accessor value)))
  
  (defclass =ruby-code (ruby-code) ())
  
  (defclass html-safe ()
    ((value :initarg :value :accessor value)))
  
  (defun ruby-code (x)
    (make-instance 'ruby-code :value x))
  
  (defun =ruby-code (x)
    (make-instance '=ruby-code :value x))
  
  (defun html-safe (x)
    (make-instance 'html-safe :value x))
  