626 |
(defun make-inline-string (cfun args fname) |
(defun make-inline-string (cfun args fname) |
627 |
(if (null args) |
(if (null args) |
628 |
(format nil "~d()" (c-function-name "LI" cfun fname)) |
(format nil "~d()" (c-function-name "LI" cfun fname)) |
629 |
(let ((o (make-array 100 :element-type 'string-char :fill-pointer 0 |
(let ((o (make-array 100 :element-type 'character :fill-pointer 0 |
630 |
:adjustable t ))) |
:adjustable t ))) |
631 |
(format o "~d(" (c-function-name "LI" cfun fname)) |
(format o "~d(" (c-function-name "LI" cfun fname)) |
632 |
(do ((l args (cdr l)) |
(do ((l args (cdr l)) |
1825 |
;; *initial-ccb-vs* for correct use in |
;; *initial-ccb-vs* for correct use in |
1826 |
;; wt-ccb-vs. CM 20031130 |
;; wt-ccb-vs. CM 20031130 |
1827 |
(*level* (1+ level)) (*initial-ccb-vs* initial-ccb-vs) |
(*level* (1+ level)) (*initial-ccb-vs* initial-ccb-vs) |
1828 |
(*exit* 'return)) |
(*exit* 'return) |
1829 |
|
(*compiler-check-args* *compiler-check-args*) |
1830 |
|
(*safe-compile* *safe-compile*) |
1831 |
|
(*compiler-push-events* *compiler-push-events*) |
1832 |
|
(*notinline* *notinline*) |
1833 |
|
(*space* *space*) |
1834 |
|
(*debug* *debug*)) |
1835 |
|
(when (eq (car (caddr (cddr lambda-expr))) 'decl-body) |
1836 |
|
(local-compile-decls (caddr (caddr (cddr lambda-expr))))) |
1837 |
(wt-nl1 "{ register object *"*volatile*"base=vs_base;") |
(wt-nl1 "{ register object *"*volatile*"base=vs_base;") |
1838 |
(wt-nl "register object *" *volatile* "sup=base+VM" *reservation-cmacro* ";") |
(wt-nl "register object *" *volatile* "sup=base+VM" *reservation-cmacro* ";") |
1839 |
(assign-down-vars (cadr lambda-expr) (fun-cfun fun) |
(assign-down-vars (cadr lambda-expr) (fun-cfun fun) |