438 |
;; FIXME -- support warnings-p and failures-p. CM 20041119 |
;; FIXME -- support warnings-p and failures-p. CM 20041119 |
439 |
(values name nil nil)) |
(values name nil nil)) |
440 |
((and (setq tem (symbol-function name)) |
((and (setq tem (symbol-function name)) |
441 |
(consp tem)) |
(or (consp tem) (when (typep tem 'interpreted-function) (setq tem (si::interpreted-function-lambda tem))))) |
442 |
(let ((na (if (symbol-package name) name 'cmp-anon)) |
(let ((na (if (symbol-package name) name 'cmp-anon)) |
443 |
(tem (if *keep-gaz* tem (wrap-literals tem))) warnings failures) |
(tem (if *keep-gaz* tem (wrap-literals tem))) warnings failures) |
444 |
(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))) |
476 |
(setf (macro-function name) (macro-function name)) |
(setf (macro-function name) (macro-function name)) |
477 |
nil) |
nil) |
478 |
((and (setq tem (symbol-function name)) |
((and (setq tem (symbol-function name)) |
479 |
(consp tem) |
(or (consp tem) (when (typep tem 'interpreted-function) (setq tem (si::interpreted-function-lambda tem)))) |
480 |
(eq (car tem) 'lambda-block)) |
(eq (car tem) 'lambda-block)) |
481 |
(let ((gaz (gazonk-name))) |
(let ((gaz (gazonk-name))) |
482 |
(with-open-file |
(with-open-file |
823 |
(return-from mysub str)) |
(return-from mysub str)) |
824 |
(let ((y (+ (length it) (the fixnum x)))) |
(let ((y (+ (length it) (the fixnum x)))) |
825 |
(declare (fixnum y)) |
(declare (fixnum y)) |
826 |
(concatenate (type-of str) |
(concatenate (lisp::type-of str) |
827 |
(subseq str 0 x) |
(subseq str 0 x) |
828 |
new |
new |
829 |
(mysub (subseq str y) it new))))) |
(mysub (subseq str y) it new))))) |