From: Juho Snellman <jsnell@iki.fi>
Date: Sat, 4 Mar 2006 21:07:48 +0000 (+0000)
Subject: 0.9.10.12:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ffb139d147687e7efa2754801a8bf60057579b96;p=sbcl.git

0.9.10.12:
	The error branch in the win32 DLOPEN-OR-LOSE was calling
        SHARED-OBJECT-SAP instead of SHARED-OBJECT-HANDLE. (Patch from
        by Yaroslav Kavenchuk, sbcl-devel "Re: Where define shared-object-sap"
        on 2006-02-26).
---

diff --git a/src/code/win32-foreign-load.lisp b/src/code/win32-foreign-load.lisp
index 5413825..a0bfe7a 100644
--- a/src/code/win32-foreign-load.lisp
+++ b/src/code/win32-foreign-load.lisp
@@ -50,7 +50,7 @@
          (handle (loadlibrary file)))
     (aver file)
     (when (zerop handle)
-      (setf (shared-object-sap obj) nil)
+      (setf (shared-object-handle obj) nil)
       (error "Error opening shared object ~S:~%  ~A."
              file (getlasterror)))
     (setf (shared-object-handle obj) handle)
diff --git a/version.lisp-expr b/version.lisp-expr
index d8904c2..5bfef3e 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.10.11"
+"0.9.10.12"