anchor.diff:  paren-script becomes parenScript, *some-global* becomes SOMEGLOBAL."
       (or (gethash identifier cache)
           (setf (gethash identifier cache)
  -              (cond ((some (lambda (c) (find c "-*+!?#@%/=:<>^")) identifier)
  +              (cond ((some (lambda (c) (find c "-+!?#%/=:<>^")) identifier)
                        (let ((lowercase t)
                              (all-uppercase nil))
                          (when (and (not (string= identifier "[]")) ;; HACK
  
positive.code:           (format *error-output* "autograph: Cannot find load file: ~A~%" file))
        ))
  
  (defmacro @ (thing other-thing)
      (concatenate 'string
       (encode-js-identifier (symbol-name thing))
       ":"
       (encode-js-identifier (symbol-name other-thing))))
       
  (defmacro css (&body body)
    (dolist (rule body)
      (destructuring-bind (selector &rest rules) rule
        (if (symbolp selector)
            (format t "~A { ~S }~%"
                    (encode-js-identifier (symbol-name selector))
                    rules)
            (format t "~S { ~S }~%"
                    selector
                    rules)))))
            
  
  (defun autograph (f)
    (do ((form (read f nil) (read f nil)))
        ((not form))
      (eval form)))
  
  (defmacro while (test &body body)
    `(loop
  
negative.code:                          (loop for c across identifier
                              do (acond ((eql c #\-)
                                         (setf lowercase (not lowercase)))
                                        ((position c "!?#%+/=:<>^")
                                         (write-sequence (aref #("bang" "what" "hash" "percent"
                                                                 "plus" "slash" "equals" "colon"
                                                                 "lessthan" "greaterthan" "caret")
                                                               it)
                                                         acc))
  