(setq *atoms* '(a b c d e f))
(defun ordin (a1 a2 alst &optional (p1 nil) (p2 nil))
(cond ((null alst) nil)
((eq (car alst) a1) (if p2 nil (ordin a1 a2 (cdr alst) t p2)))
((eq (car alst) a2) (if p1 t nil))
(t (ordin a1 a2 (cdr alst) p1 p2))))
(princ (ordin 'b 'e *atoms*))
(terpri)
(princ (ordin 'e 'c *atoms*))
KHNldHEgKmF0b21zKiAnKGEgYiBjIGQgZSBmKSkKCihkZWZ1biBvcmRpbiAoYTEgYTIgYWxzdCAmb3B0aW9uYWwgKHAxIG5pbCkgKHAyIG5pbCkpCiAgKGNvbmQgKChudWxsIGFsc3QpIG5pbCkKICAgICAgICAoKGVxIChjYXIgYWxzdCkgYTEpIChpZiBwMiBuaWwgKG9yZGluIGExIGEyIChjZHIgYWxzdCkgdCBwMikpKQogICAgICAgICgoZXEgKGNhciBhbHN0KSBhMikgKGlmIHAxIHQgbmlsKSkKICAgICAgICAodCAob3JkaW4gYTEgYTIgKGNkciBhbHN0KSBwMSBwMikpKSkKICAgICAgICAKKHByaW5jIChvcmRpbiAnYiAnZSAqYXRvbXMqKSkKKHRlcnByaSkKKHByaW5jIChvcmRpbiAnZSAnYyAqYXRvbXMqKSkKICA=