diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 15:45:39 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 15:45:39 +0100 |
| commit | 3dc931431a122de70b9c1d2d7b7bd7becfc46d7f (patch) | |
| tree | 4479a7f9b1a85db77e857c848ae1339e2b6f2bc0 /Lisp/instance-management.lisp | |
| parent | b5e4426cc60b55e0c38edfbf4757363a224cb4b7 (diff) | |
Minor cleanups.
darcs-hash:8202cbfdf90281074ec97355c948315e0151cf0b
Diffstat (limited to 'Lisp/instance-management.lisp')
| -rw-r--r-- | Lisp/instance-management.lisp | 4 |
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) |