Changeset 8034


Ignore:
Timestamp:
Jan 10, 2008, 8:17:58 AM (12 years ago)
Author:
gb
Message:

SYMBOL-VALUE-IN-PROCESS (and SETF therof) check for process =
*current-process* a lot earlier.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-processes.lisp

    r7949 r8034  
    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.