;;; -*- Mode:LISP; Package:COMPILER; Base:10 -*-


#||

(enable-micro-%misc 'nway-branch)

(setq peep-enable t)

(setq peep-trace nil)

(setq trace-peep-savings nil)


||#


(defun foo (n)
  (casen n
	 'foo
	 'bar
	 'baz))


(defun frob (x)
  (selectq x
    (foo 'x)
    ((z bar) 'z)))


(defun frob-1 (x)
  (casen (cdr (assq x '((foo . 0) (z . 1) (bar . 1))))
	 'x
	 'z))