anchor.diff:                            (CDR V175306)))
           (T (shen.f_error 'shen.apply-help))))
   
  -(DEFUN shen.analyse-application 
  +(DEFUN shen.analyse-application
        (V175307 V175308 V175309 V175310)
     (LET ((Lambda
            (IF (shen.wrapper 
  
positive.code:       (shen.app V529 "
  "
                  'shen.a))))))
    
  (DEFUN shen.partial-application? (V669 V670) (LET ((Arity (trap-error (arity V669) (FUNCTION (LAMBDA (E) -1))))) (IF (shen.ABSEQUAL Arity -1) (QUOTE false) (IF (shen.ABSEQUAL Arity (length V670)) (QUOTE false) (IF (shen.wrapper (shen.greater? (length V670) Arity)) (QUOTE false) (QUOTE true)))))) 
  
  (DEFUN shen.partially-apply (V671 V672) (LET ((Arity (arity V671))) (LET ((Lambda (shen.mk-lambda (CONS (shen.maplispsym V671) ()) Arity))) (shen.build-partial-application Lambda V672)))) 
  
negative.code: 
  (DEFUN shen.mk-lambda (V674 V675) (COND ((shen.ABSEQUAL 0 V675) V674) (T (LET ((X (gensym (QUOTE V)))) (CONS (QUOTE lambda) (CONS X (CONS (shen.mk-lambda (shen.endcons V674 X) (1- V675)) ()))))))) 
  
  (DEFUN shen.endcons (F X)
    (IF (CONSP F)
      (APPEND F (LIST X))
      (LIST F X)))
  
  (DEFUN shen.build-partial-application (V678 V679) (COND ((NULL V679) V678) ((CONSP V679) (shen.build-partial-application (CONS (QUOTE FUNCALL) (CONS V678 (CONS (CAR V679) ()))) (CDR V679))) (T (shen.f_error (QUOTE shen.build-partial-application))))) 
  
  (DEFUN shen.cond_code (Params Clause)
    (IF (AND (CONSP Clause) (EQ (LIST-LENGTH Clause) 2))
      (LET ((Test   (CAR Clause))
            (Result (CAR (CDR Clause))))
        (LIST (shen.lisp_test Params Test) (shen.kl-to-lisp Params Result)))
      (shen.f_error 'shen.cond_code)))
  
  (DEFUN shen.lisp_test (V684 V685) (COND ((EQ (QUOTE true) V685) (QUOTE T)) ((AND (CONSP V685) (EQ (QUOTE and) (CAR V685))) (CONS (QUOTE AND) (MAPCAR (FUNCTION (LAMBDA (X) (shen.wrap (shen.kl-to-lisp V684 X)))) (CDR V685)))) (T (shen.wrap (shen.kl-to-lisp V684 V685))))) 
  
  