; in: LAMBDA NIL
;     (SETF F (PARSE-STRING-TO-SORTED-ALIST "x^2*y-3*x*y^2+x^2-3*x*y" '(X Y)))
; ==>
;   (SETQ F (PARSE-STRING-TO-SORTED-ALIST "x^2*y-3*x*y^2+x^2-3*x*y" '(X Y)))
; 
; caught WARNING:
;   undefined variable: F

;     (PARSE-STRING-TO-SORTED-ALIST "x^2*y-3*x*y^2+x^2-3*x*y" '(X Y))
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-STRING-TO-SORTED-ALIST

; 
; caught WARNING:
;   This variable is undefined:
;     F

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     PARSE-STRING-TO-SORTED-ALIST
; 
; compilation unit finished
;   caught 2 WARNING conditions
;   caught 2 STYLE-WARNING conditions

; in: LAMBDA NIL
;     (SETF F (PARSE-STRING-TO-SORTED-ALIST "x^2*y-3*x*y^2+x^2-3*x*y" '(X Y)))
; ==>
;   (SETQ F (PARSE-STRING-TO-SORTED-ALIST "x^2*y-3*x*y^2+x^2-3*x*y" '(X Y)))
; 
; caught WARNING:
;   undefined variable: F

;     (PARSE-STRING-TO-SORTED-ALIST "x^2*y-3*x*y^2+x^2-3*x*y" '(X Y))
; 
; caught STYLE-WARNING:
;   undefined function: PARSE-STRING-TO-SORTED-ALIST

; 
; caught WARNING:
;   This variable is undefined:
;     F

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     PARSE-STRING-TO-SORTED-ALIST
; 
; compilation unit finished
;   caught 2 WARNING conditions
;   caught 2 STYLE-WARNING conditions