/[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.6 by camm, Fri Nov 19 21:38:44 2004 UTC revision 1.7 by camm, Mon Nov 22 15:00:25 2004 UTC
# Line 78  Line 78 
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

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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