Major Section: PROGRAMMING
Completion Axiom:
(equal (coerce x y)
       (cond
        ((equal y 'list)
         (if (stringp x)
             (coerce x 'list)
           nil))
        (t
         (coerce (make-character-list x) 'string))))
Guard for (coerce x y):
(if (equal y 'list)
    (stringp x)
  (if (equal y 'string)
      (character-listp x)
    nil))