chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a4263d6
)
Bug fix in UNSET-0-VECTOR
author
espen
<espen>
Mon, 18 Jun 2007 10:13:07 +0000
(10:13 +0000)
committer
espen
<espen>
Mon, 18 Jun 2007 10:13:07 +0000
(10:13 +0000)
gffi/vectors.lisp
patch
|
blob
|
blame
|
history
diff --git
a/gffi/vectors.lisp
b/gffi/vectors.lisp
index ad9b46127575c688f9bb5a53efa5ba5cc38751b4..0f852284ab4fd5c331b85dfe5a354a15179712ad 100644
(file)
--- a/
gffi/vectors.lisp
+++ b/
gffi/vectors.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: vectors.lisp,v 1.
3 2007-06-01 06:15:3
7 espen Exp $
+;; $Id: vectors.lisp,v 1.
4 2007-06-18 10:13:0
7 espen Exp $
(in-package "GFFI")
(in-package "GFFI")
@@
-295,7
+295,7
@@
(defun map-0-vector (seqtype function location element-type &optional (ref :read
(defun unset-0-vector (location element-type &optional temp-p)
(loop
(defun unset-0-vector (location element-type &optional temp-p)
(loop
- with destroy = (destroy-function element-type temp-p)
+ with destroy = (destroy-function element-type
:temp
temp-p)
with element-size = (size-of element-type)
for offset by element-size
until (memory-clear-p (pointer+ location offset) element-size)
with element-size = (size-of element-type)
for offset by element-size
until (memory-clear-p (pointer+ location offset) element-size)