Ignore:
Timestamp:
Jan 15, 2008, 1:37:02 PM (12 years ago)
Author:
gb
Message:

Merge changes from working-0711 branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2/devel/source/level-1/l1-processes.lisp

    r7949 r8130  
    242242                           
    243243(defun symbol-value-in-process (sym process)
    244   (symbol-value-in-tcr sym (process-tcr process)))
     244  (if (eq process *current-process*)
     245    (symbol-value sym)
     246    (symbol-value-in-tcr sym (process-tcr process))))
    245247
    246248(defun (setf symbol-value-in-process) (value sym process)
    247   (setf (symbol-value-in-tcr sym (process-tcr process)) value))
     249  (if (eq process *current-process*)
     250    (setf (symbol-value sym) value)
     251    (setf (symbol-value-in-tcr sym (process-tcr process)) value)))
    248252
    249253
Note: See TracChangeset for help on using the changeset viewer.