X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/1ed0a2c57d1624d098f180bff1c567960a9b1b36..cc74b2c987edc3e2bc85413e92f33e2690a32b1c:/rsvg/rsvg.lisp

diff --git a/rsvg/rsvg.lisp b/rsvg/rsvg.lisp
index 212c1f1..489ef4c 100644
--- a/rsvg/rsvg.lisp
+++ b/rsvg/rsvg.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: rsvg.lisp,v 1.1 2005-11-10 08:53:24 espen Exp $
+;; $Id: rsvg.lisp,v 1.2 2006-02-08 22:21:26 espen Exp $
 
 (in-package "RSVG")
 
@@ -118,7 +118,7 @@ (defmethod initialize-instance ((handle handle) &key filename)
        (t (%handle-new)))
     (if gerror 
 	(signal-gerror gerror)
-      (setf (slot-value handle 'location) location)))
+      (setf (foreign-location handle) location)))
   (call-next-method))