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 |
) |
) |