anchor.diff:  (defun remove-parens (list)
     (remove ")" list :test 'string=))
   
  +(defun from-qt-utf8 (string)
  +  (let ((vector (make-array 0 :adjustable t :fill-pointer t)))
  +    (flet ((push* (x)
  +             (vector-push-extend (if (characterp x) (char-code x) x) vector)))
  +      (dotimes (i (length string))
  +        (let ((ch (char string i)))
  +          (if (char= #\\ ch)
  +              (if (find (char string (1+ i)) '(#\" #\\))
  +                  (push* ch)
  +                  (progn
  +                    (push* (parse-integer (subseq string (1+ i) (+ 4 i)) :radix 8))
  +                    (incf i 3)))
  +              (push* ch)))))
  +    (qfrom-utf8 vector)))
  +
   (defun var-name (name)
     (let ((name* (trim name)))
       (flet ((find-in (var)
  
positive.code:                                           nil)))
               (case string-lines-pos
                 (:mid
                  (format nil "~A~%" (string-trim "\"\\n" (subseq qt-line 0 (position #\" qt-line :from-end t)))))
                 (:end
                  (format nil "~A))" (subseq qt-line 1 (1+ (position #\" qt-line :from-end t)))))
                 (t
                  (let* ((line (trim (no #\, (string-substitute* '("()->"  "()."
                                                                   "->set" ".set"
  
negative.code: ;;; copyright (c) 2012 Polos Ruetz
  ;;;
  ;;; user interface compiler
  
  (defpackage :quic
    (:use :common-lisp :eql)
  