0.9.17.15: silence %SAP-ALIEN compiler-note for MAKE-ALIEN in default policy

[sbcl.git] / src / code / win32-foreign-load.lisp

diff --git a/src/code/win32-foreign-load.lisp b/src/code/win32-foreign-load.lisp
index 5413825..a0bfe7a 100644 (file)
--- 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)