Changeset 33


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

Low-level symbol/svar accessors.

File:
1 edited

Legend:

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

    r29 r33  
    6464  (blr))
    6565
    66 (defppclapfunction %%sym-value ((name arg_z))
    67   (mr temp0 name)
     66(defppclapfunction %svar-sym-value ((svar arg_z))
     67  (mr temp0 svar)
    6868  (ba .SPsvar-specref))
    6969
    70 (defppclapfunction %%set-sym-value ((name arg_y) (val arg_z))
    71   (mr temp0 name)
     70(defppclapfunction %svar-set-sym-value ((svar arg_y) (val arg_z))
     71  (mr temp0 svar)
    7272  (ba .SPsvar-specset))
    7373
Note: See TracChangeset for help on using the changeset viewer.