Changeset 8034

Timestamp:

Jan 10, 2008, 12:17:58 AM (17 years ago)

Author:

Gary Byers

Message:

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

File:

• branches/working-0711/ccl/level-1/l1-processes.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-processes.lisp

@@ -242 +242 @@
                             
 (defun symbol-value-in-process (sym process)
-  (symbol-value-in-tcr sym (process-tcr process)))
+  (if (eq process *current-process*)
+    (symbol-value sym)
+    (symbol-value-in-tcr sym (process-tcr process))))
 
 (defun (setf symbol-value-in-process) (value sym process)
-  (setf (symbol-value-in-tcr sym (process-tcr process)) value))
+  (if (eq process *current-process*)
+    (setf (symbol-value sym) value)
+    (setf (symbol-value-in-tcr sym (process-tcr process)) value)))