[bknr-cvs] r2519 - branches/trunk-reorg/thirdparty/uffi-1.6.0/src

[hhubner at common-lisp.net]

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))