anchor.diff:  	   (#\Newline "\\n")
   	   (#\Tab "\\t")
   	   (#\Return "\\r")
  +	   (#\PageUp "\\v")
   	   (#\Page "\\f")
   	   (#\\ "\\\\")
   	   (#\$ "\\$")
  
positive.code: 		  (format nil "\\0~O" (char-code c)))))
  	 s)))))
  
  (defprinter (string x)
    (write-str "\"")
    (write-str (php-escape-string x))
    (write-str "\""))
  
  (defprinter (null x 1)
    ;; do nothing
  
negative.code:     (if print-syntax
  	(write-str print-syntax)
  	(write-str (symbol-name-to-php (symbol-name x))))))
      
  (defun php-escape-string-double (x)
    (with-output-to-string (s)
      (dotimes (i (length x))
        (let ((c (aref x i)))
  