Changeset 2519

Show
Ignore:
Timestamp:
02/17/08 11:22:50 (9 months ago)
Author:
hhubner
Message:

Another CCL fix. DEFSETF is not required if the read expansion is setfable. The previous implementation did not work.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/trunk-reorg/thirdparty/uffi-1.6.0/src/aggregates.lisp

    r2474 r2519  
    119119  ) 
    120120 
    121 #+(or openmcl digitool) 
    122 (defmacro set-slot-value (obj type slot value) ;use setf to set values 
    123   `(setf (ccl:pref ,obj ,(read-from-string (format nil ":~a.~a" (keyword type) (keyword slot)))) ,value)) 
    124  
    125 #+(or openmcl digitool) 
    126 (defsetf get-slot-value set-slot-value) 
    127  
    128121 
    129122(defmacro get-slot-pointer (obj type slot)