96 |
(si:putprop 'short-float-value 'wt-short-float-value 'wt-loc) |
(si:putprop 'short-float-value 'wt-short-float-value 'wt-loc) |
97 |
(si:putprop 'short-float-loc 'wt-short-float-loc 'wt-loc) |
(si:putprop 'short-float-loc 'wt-short-float-loc 'wt-loc) |
98 |
(si::putprop 'next-var-arg 'wt-next-var-arg 'wt-loc) |
(si::putprop 'next-var-arg 'wt-next-var-arg 'wt-loc) |
99 |
|
(si::putprop 'first-var-arg 'wt-first-var-arg 'wt-loc) |
100 |
|
|
101 |
|
(defun wt-first-var-arg () |
102 |
|
(wt "first")) |
103 |
|
|
104 |
(defun wt-next-var-arg () |
(defun wt-next-var-arg () |
105 |
(wt "va_arg(ap,object)")) |
(wt "va_arg(ap,object)")) |