26 |
|
|
27 |
(export 'time) |
(export 'time) |
28 |
(export 'nth-value) |
(export 'nth-value) |
29 |
(export '(reset-sys-paths decode-universal-time encode-universal-time compile-file-pathname complement constantly)) |
(export '(function-lambda-expression |
30 |
|
reset-sys-paths decode-universal-time |
31 |
|
encode-universal-time compile-file-pathname complement constantly)) |
32 |
|
|
33 |
|
|
34 |
(in-package 'system) |
(in-package 'system) |
176 |
(push (si::string-concatenate s l) nl)) |
(push (si::string-concatenate s l) nl)) |
177 |
(setq si::*load-path* nl)) |
(setq si::*load-path* nl)) |
178 |
nil) |
nil) |
179 |
|
|
180 |
|
(defun function-lambda-expression (x) |
181 |
|
(if (typep x 'interpreted-function) |
182 |
|
(let* ((x (si::interpreted-function-lambda x))) |
183 |
|
(case (car x) |
184 |
|
(lambda (values x nil nil)) |
185 |
|
(lambda-block (values (cons 'lambda (cddr x)) nil (cadr x))) |
186 |
|
(lambda-closure (values (cons 'lambda (cddr (cddr x))) (not (not (cadr x))) nil)) |
187 |
|
(lambda-block-closure (values (cons 'lambda (cdr (cddr (cddr x)))) (not (not (cadr x))) (fifth x))) |
188 |
|
(otherwise (values nil t nil)))) |
189 |
|
(values nil t nil))) |