/[gcl]/gcl/cmpnew/gcl_cmpeval.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpeval.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26