summaryrefslogtreecommitdiff
path: root/Lisp/instance-management.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp/instance-management.lisp')
-rw-r--r--Lisp/instance-management.lisp4
1 files changed, 3 insertions, 1 deletions
diff --git a/Lisp/instance-management.lisp b/Lisp/instance-management.lisp
index c8abb44..ab2e0bb 100644
--- a/Lisp/instance-management.lisp
+++ b/Lisp/instance-management.lisp
@@ -24,7 +24,9 @@
(let ((key (cffi:pointer-address pointer)))
(or (gethash key *lisp-managed-instances* nil)
(apply #'make-instance
- (intern-pointer-wrapper (%objcl-object-get-class pointer))
+ (intern-pointer-wrapper
+ 'class
+ :pointer (%objcl-object-get-class pointer))
initargs))))
(defun unintern-lisp-managed-foreign-instance (instance)