78 |
(if (eq (car form) 'quote ) |
(if (eq (car form) 'quote ) |
79 |
`(load-time-value (si::nani ,(si::address (cadr form)))) |
`(load-time-value (si::nani ,(si::address (cadr form)))) |
80 |
(cons (wrap-literals (car form)) (wrap-literals (cdr form))))) |
(cons (wrap-literals (car form)) (wrap-literals (cdr form))))) |
81 |
((stringp form) |
((symbolp form) |
82 |
`(load-time-value (si::nani ,(si::address form)))) |
form) |
83 |
(t form))) |
(t |
84 |
|
`(load-time-value (si::nani ,(si::address form)))))) |
85 |
|
|
86 |
(defun c1load-time-value (arg) |
(defun c1load-time-value (arg) |
87 |
(c1constant-value |
(c1constant-value |