;;-*-Lisp-*-
(in-package goal)

;; name: com-elevator.gc
;; name in dgo: com-elevator
;; dgos: PAS, TOD

;; DECOMP BEGINS