Author: hhubner Date: Sun Feb 17 05:22:50 2008 New Revision: 2519
Modified: branches/trunk-reorg/thirdparty/uffi-1.6.0/src/aggregates.lisp Log: Another CCL fix. DEFSETF is not required if the read expansion is setfable. The previous implementation did not work.
Modified: branches/trunk-reorg/thirdparty/uffi-1.6.0/src/aggregates.lisp ============================================================================== --- branches/trunk-reorg/thirdparty/uffi-1.6.0/src/aggregates.lisp (original) +++ branches/trunk-reorg/thirdparty/uffi-1.6.0/src/aggregates.lisp Sun Feb 17 05:22:50 2008 @@ -118,13 +118,6 @@ `(ccl:pref ,obj ,(read-from-string (format nil ":~a.~a" (keyword type) (keyword slot)))) )
-#+(or openmcl digitool) -(defmacro set-slot-value (obj type slot value) ;use setf to set values - `(setf (ccl:pref ,obj ,(read-from-string (format nil ":~a.~a" (keyword type) (keyword slot)))) ,value)) - -#+(or openmcl digitool) -(defsetf get-slot-value set-slot-value) -
(defmacro get-slot-pointer (obj type slot) #+(or lispworks cmu sbcl scl) (declare (ignore type))