((/coi/util/pseudo-translate.lisp::extend-wrld-with-fn-args-list (nil nil nil (cond) nil nil nil) (nil nil ((endp fn-args-lst) t) nil nil nil nil) ((wrld) nil nil (let) nil nil nil) (nil nil ((fn (caar fn-args-lst))) nil nil (putprop) nil) ((fn :COMMON-LISP-COMPLIANT) nil (formals quote) nil nil (putprop) nil) ((symbol-class fn) nil (cdar quote quote) nil nil (putprop) nil) ((fn-args-lst stobjs-out nil fn) nil (quote make-list) nil nil (putprop) nil)) (/coi/util/pseudo-translate.lisp::translate1-cw (nil nil nil nil (mv-let) nil nil) (nil nil nil (erp cond) nil nil nil) ((msg-or-val bindings x stobjs-out bindings known-stobjs ctx w) nil (default-state-vars erp t) nil nil nil nil) ((nil) nil nil (prog2$) (mv) nil nil) ((nil msg-or-val bindings) nil nil (cw) (mv) nil nil) ((~%~%ERROR in translate1-cw:  ~@0~%~% msg-or-val t x bindings) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/coi/util/pseudo-translate.lisp::pseudo-translate (nil nil nil (let) nil nil nil) (((wrld (extend-wrld-with-fn-args-list fn-args-lst wrld))) nil nil nil nil (mv-let) nil) (nil nil (declare) (flg mv) nil nil nil) ((val bindings form t t wrld flg val) nil (quote quote ignore) nil nil nil nil) (((:stobjs-out . :stobjs-out) recursive-call bindings) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))