X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fwin32-foreign-load.lisp;h=a0bfe7aafc22b10f8d691eac9e3052509a19d70c;hb=dcb73f3edef1e31078fbe585e2fafbd26743efd7;hp=54138258810e17da3f5f1c1083ed89f39b31d5fb;hpb=48ec282d877900caf5ea4ab42e9d87e566ce6b43;p=sbcl.git

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)