Parent Directory | Revision Log | Patch
revision 1.8 by camm, Mon Nov 22 15:11:10 2004 UTC | revision 1.9 by camm, Thu Nov 25 19:46:20 2004 UTC | |
---|---|---|
# | Line 74 | Line 74 |
74 | (c1constant-value (cons 'si:|#,| arg) t)) | (c1constant-value (cons 'si:|#,| arg) t)) |
75 | ||
76 | (defun wrap-literals (form) | (defun wrap-literals (form) |
77 | #-native-reloc form | |
78 | #+native-reloc | |
79 | (cond ((consp form) | (cond ((consp form) |
80 | (if (eq (car form) 'quote ) | (if (eq (car form) 'quote ) |
81 | `(load-time-value (si::nani ,(si::address (cadr form)))) | `(load-time-value (si::nani ,(si::address (cadr form)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |