109 |
(si:putprop 'import t 'package-operation) |
(si:putprop 'import t 'package-operation) |
110 |
(si:putprop 'provide t 'package-operation) |
(si:putprop 'provide t 'package-operation) |
111 |
(si:putprop 'require t 'package-operation) |
(si:putprop 'require t 'package-operation) |
112 |
|
(si:putprop 'defpackage:defpackage t 'package-operation) |
113 |
|
|
114 |
;;; Pass 1 top-levels. |
;;; Pass 1 top-levels. |
115 |
|
|
194 |
(when *non-package-operation* |
(when *non-package-operation* |
195 |
(cmpwarn "The package operation ~s was in a bad place." |
(cmpwarn "The package operation ~s was in a bad place." |
196 |
form)) |
form)) |
197 |
(maybe-eval t form) |
(let ((res (if (setq fd (macro-function fun)) |
198 |
(wt-data-package-operation form)) |
(cmp-expand-macro fd fun (copy-list (cdr form))) |
199 |
|
form))) |
200 |
|
(maybe-eval t res) |
201 |
|
(wt-data-package-operation res))) |
202 |
((setq fd (get fun 't1)) |
((setq fd (get fun 't1)) |
203 |
(when *compile-print* (print-current-form)) |
(when *compile-print* (print-current-form)) |
204 |
(funcall fd args)) |
(funcall fd args)) |
1019 |
(t (wt-nl "parse_key_new_new("))) |
(t (wt-nl "parse_key_new_new("))) |
1020 |
(if (eql 0 *cs*)(setq *cs* 1)) |
(if (eql 0 *cs*)(setq *cs* 1)) |
1021 |
(wt "narg," (if *vararg-use-vs* "base " "Vcs ") |
(wt "narg," (if *vararg-use-vs* "base " "Vcs ") |
1022 |
"+" key-offset",(struct key *)&LI" cfun "key,first,ap);") |
"+" key-offset",(struct key *)(void *)&LI" cfun "key,first,ap);") |
1023 |
|
|
1024 |
)) |
)) |
1025 |
|
|