anchor.diff:  (DEFUN shen.lazyboolop? (F)
     (COND ((EQ F 'and) 'true)
           ((EQ F 'or) 'false)
  -        (T 'false))) 
  +        (T 'false)))
   
   (DEFUN shen.curried-apply (V529 V530)
    (COND ((AND (CONSP V530) (NULL (CDR V530))) (FUNCALL V529 (CAR V530)))
  
positive.code:                           (CDR V175306)))
          (T (shen.f_error 'shen.apply-help))))
  
  (DEFUN shen.analyse-application 
       (V175307 V175308 V175309 V175310)
    (LET ((Lambda
           (IF (shen.wrapper 
  
negative.code: (DEFUN shen.wrapper (V687) (COND ((EQ (QUOTE true) V687) (QUOTE T)) ((EQ (QUOTE false) V687) ()) (T (simple-error (cn "boolean expected: not " (shen.app V687 "
  " (QUOTE shen.s))))))) 
  
  (DEFUN shen.maplispsym (Symbol)
    (COND
      ((EQ Symbol '=)  'shen.equal?)
      ((EQ Symbol '>)  'shen.greater?)
      ((EQ Symbol '<)  'shen.less?)
      ((EQ Symbol '>=) 'shen.greater-than-or-equal-to?)
      ((EQ Symbol '<=) 'shen.less-than-or-equal-to?)
      ((EQ Symbol '+)  'shen.add)
      ((EQ Symbol '-)  'shen.subtract)
      ((EQ Symbol '/)  'shen.divide)
      ((EQ Symbol '*)  'shen.multiply)
      (T Symbol)))
  