chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
aadaf8f
)
Removed obsolete TODO comment
author
espen
<espen>
Fri, 6 Apr 2007 14:29:42 +0000
(14:29 +0000)
committer
espen
<espen>
Fri, 6 Apr 2007 14:29:42 +0000
(14:29 +0000)
gffi/proxy.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gffi/proxy.lisp
b/gffi/proxy.lisp
index 4173a1cafa139d6c1436d788b94aad324a7160e5..d67ee96dd07ae2d14e0cd87cb90da7b5c6357d68 100644
(file)
--- a/
gffi/proxy.lisp
+++ b/
gffi/proxy.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: proxy.lisp,v 1.
6 2007-01-12 10:26:44
espen Exp $
+;; $Id: proxy.lisp,v 1.
7 2007-04-06 14:29:42
espen Exp $
(in-package "GFFI")
(in-package "GFFI")
@@
-87,7
+87,7
@@
(defun list-invalidated-instances ()
(defvar *foreign-instance-locations*
(make-hash-table #+clisp :weak #+sbcl :weakness :key))
(defvar *foreign-instance-locations*
(make-hash-table #+clisp :weak #+sbcl :weakness :key))
-;; TODO: add a ref-counted-proxy subclass
+
(eval-when (:compile-toplevel :load-toplevel :execute)
(defclass proxy (virtual-slots-object)
(#?-(or (sbcl>= 0 9 17) (featurep :clisp))(%location :special t :type pointer))
(eval-when (:compile-toplevel :load-toplevel :execute)
(defclass proxy (virtual-slots-object)
(#?-(or (sbcl>= 0 9 17) (featurep :clisp))(%location :special t :type pointer))