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

Diff of /gcl/cmpnew/gcl_cmpinline.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.3 by camm, Fri Oct 10 02:31:05 2003 UTC revision 1.1.2.4 by camm, Fri Oct 10 22:12:49 2003 UTC
# Line 37  Line 37 
37  (defvar *info* (make-info))  (defvar *info* (make-info))
38    
39  (defun add-info (to-info from-info)  (defun add-info (to-info from-info)
40    (setf (info-changed-vars to-info)   (dolist (v (info-changed-vars from-info))
41          (append (info-changed-vars from-info)     (unless (member v (info-changed-vars to-info))
42                  (info-changed-vars to-info)))       (push v (info-changed-vars to-info) )))
43    (setf (info-referred-vars to-info)   (dolist (v (info-referred-vars from-info))
44          (append (info-referred-vars from-info)     (unless (member v (info-referred-vars to-info))
45                  (info-referred-vars to-info)))       (push v (info-referred-vars to-info) )))
46    ;  (setf (info-changed-vars to-info)
47    ;        (append (info-changed-vars from-info)
48    ;                (info-changed-vars to-info)))
49    ;  (setf (info-referred-vars to-info)
50    ;        (append (info-referred-vars from-info)
51    ;                (info-referred-vars to-info)))
52    (when (info-sp-change from-info)    (when (info-sp-change from-info)
53          (setf (info-sp-change to-info) t))          (setf (info-sp-change to-info) t))
54    )    )

Legend:
Removed from v.1.1.2.3  
changed lines
  Added in v.1.1.2.4

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