446 |
((and (setq tem (symbol-function name)) |
((and (setq tem (symbol-function name)) |
447 |
(consp tem)) |
(consp tem)) |
448 |
(let ((na (if (symbol-package name) name 'cmp-anon)) |
(let ((na (if (symbol-package name) name 'cmp-anon)) |
449 |
(tem (wrap-literals tem))) |
(tem (if *keep-gaz* tem (wrap-literals tem)))) |
450 |
(unless (and (fboundp 'si::init-cmp-anon) (or (si::init-cmp-anon) (fmakunbound 'si::init-cmp-anon))) |
(unless (and (fboundp 'si::init-cmp-anon) (or (si::init-cmp-anon) (fmakunbound 'si::init-cmp-anon))) |
451 |
(with-open-file |
(with-open-file |
452 |
(st (setq gaz (gazonk-name)) :direction :output) |
(st (setq gaz (gazonk-name)) :direction :output) |