/[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.32 by camm, Sat Sep 24 19:24:37 2005 UTC revision 1.33 by camm, Mon Sep 26 16:46:00 2005 UTC
# Line 84  Line 84 
84    (c1constant-value (cons 'si:|#,| arg) t))    (c1constant-value (cons 'si:|#,| arg) t))
85    
86  (defun wrap-literals (form)  (defun wrap-literals (form)
87    (cond ((consp form)    (cond ((and (consp form) (eq (car form) 'quote))
88           (cond ((and (member (car form) '(quote function))           (let ((x (cadr form)))
89                       (or (not (symbolp (cadr form)))             (if (and (symbolp x)
90                           (not (eq :external (cadr (multiple-value-list (find-symbol (symbol-name (cadr form)) 'lisp)))))))                      (eq :external (cadr (multiple-value-list (find-symbol (symbol-name x) 'lisp)))))
91                  `(load-time-value (si::nani ,(si::address (cadr form)))))                 form
92                 ((cons (wrap-literals (car form)) (wrap-literals (cdr form))))))               `(load-time-value (si::nani ,(si::address x))))))
93          ((and (not (symbolp form)) (eql-is-eq form))          ((consp form)
94           `(load-time-value (si::nani ,(si::address form))))           (cons (wrap-literals (car form)) (wrap-literals (cdr form))))
95          (form)))          ((or (symbolp form) (numberp form) (characterp form))
96             form)
97            (`(load-time-value (si::nani ,(si::address form))))))
98    
99    
100  (defun c1load-time-value (arg)  (defun c1load-time-value (arg)
101    (c1constant-value    (c1constant-value

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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