anchor.diff:    (exec-simple "ROLLBACK"))
   
   (defmethod php-sql close ()
  -  (mysql_close)
  +  (_conn.close)
     (clr _conn))
   
  -(defmethod php-sql create-db (name)
  -  (mysql_create_db name)
  -  (= _name name))
  +;(defmethod php-sql create-db (name)
  +;  (mysql_create_db name)
  +;  (= _name name))
   
  -(defmethod php-sql remove ()
  -  (close)
  -  (reset-sql-iface-cache)
  -  (mysql_drop_db _name))
  +;(defmethod php-sql remove ()
  +;  (close)
  +;  (reset-sql-iface-cache)
  +;  (mysql_drop_db _name))
   
   (defmethod php-sql escape (x)
  -  (mysql_real_escape_string x _conn))
  +  (mysqli_real_escape_string x))
   
   (finalize-class php-sql)
  
positive.code:     _column-names)
  
  (defmethod php-sql last-insert-row-i-d ()
    (mysql_insert_id))
  
  (defmethod php-sql last-error ()
    (let err (mysql_error)
      (unless (empty-string? err)
        err)))
  
  (defmethod php-sql last-error-string ()
    (mysql_error))
  
  (defmethod php-sql _handle-error (method-name)
    (when (last-error)
      (error (+ "SQL " method-name ": " (last-error-string)))))
  
  (dont-obfuscate is_bool)
  
  (defmethod php-sql _log (statement))
  ;  (log (+ "SQL: "
  ;          (? (< 256 (length statement))
  ;             (subseq statement (- (length statement) 200))
  ;             statement))))
  
  (defmethod php-sql exec (statement)
    (_log statement)
    (with (res (mysql_query statement _conn)
           ret (make-queue))
  	(_handle-error "exec")
      (unless (is_bool res)
        (awhile (mysql_fetch_row res)
                (queue-list ret)
          (enqueue ret (array-list !))))))
  
  (defmethod php-sql exec-simple (statement)
    (_log statement)
    (mysql_query statement _conn))
  
  (defmethod php-sql column-names (table-name)
    (| (href _column-names table-name)
  
negative.code: ; Caroshi – Copyright (c) 2008–2012,2016 Sven Michael Klose <pixel@copei.de>
  
  (dont-obfuscate set_charset select_db close)
  
  (defclass php-sql (&key name host user password)
    (= _name name)
    (= _conn (new mysqli host user password))
    (= _column-names (make-hash-table))
    (_conn.set_charset "utf8")
    (_conn.select_db _name)
    this)
  
  (defmember php-sql
  