anchor.diff:    (aprog1 (expex-sym)
       (funinfo-var-add *funinfo* !)))
   
  -(defun expex-warn (x)
  -  (& (expex-warnings? *expex*)
  -     (symbol? x)
  -     (not (eq '~%cont x)
  -          (eq '~%this x)
  -          (transpiler-defined-symbol? *funinfo* x)
  -          (can-import-function? *transpiler* x))
  -     (error "Symbol ~A is not defined in ~A."
  -            (symbol-name x)
  -            (human-readable-funinfo-names *funinfo*))))
  -
   
   ;;;; PREDICATES
   
  
positive.code: 		  x))
  
  (defun expex-argexpand-0 (fun args)
    (adolist (args)
      (expex-warn !))
    (let argdef (| (funinfo-get-local-function-args *funinfo* fun)
                   (current-transpiler-function-arguments fun))
      (transpiler-expand-literal-characters
  
negative.code:         (function? (symbol-function x)))))
  
  (defun expex-argexpand (x)
    (with (new?   (%new? x)
  		 fun    (? new? .x. x.)
  		 args   (? new? ..x .x)
  	     eargs  (? (expex-function? fun)
  	    	       (expex-convert-quotes (expex-argexpand-0 fun args))
  	    	       args))
  	`(,@(& new? '(%new)) ,fun ,@eargs)))
  
  
  ;;;;; MOVING SINGLE ARGUMENTS
  