Changeset 31


Ignore:
Timestamp:
Oct 23, 2003, 9:45:24 PM (18 years ago)
Author:
gb
Message:

Need an SVAR for symbol-value in general; global versions for when we don't.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-symbol.lisp

    r29 r31  
    179179
    180180(defun %sym-value (name)
    181   (%%sym-value (%symbol->symptr name)))
     181  (%svar-sym-value (%ensure-svar (%symbol->symptr name))))
    182182
    183183(defun %set-sym-value (name val)
    184   (%%set-sym-value (%symbol->symptr name) val))
     184  (%svar-set-sym-value (%ensure-svar (%symbol->symptr name)) val))
     185
     186(defun %sym-global-value (name)
     187  (%svref (%symbol->symptr name) arch::symbol.vcell-cell))
     188
     189(defun %set-sym-global-value (name val)
     190  (setf (%svref (%symbol->symptr name) arch::symbol.vcell-cell) val))
    185191
    186192(defun %symbol-package-plist (sym)
Note: See TracChangeset for help on using the changeset viewer.