mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 04:21:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

ffi: fix typo (grr)

Browse source
This commit is contained in:
Daniel Kochmański 2016-03-11 14:13:01 +01:00
parent d8f8f6bca9
commit b3f44d33e4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/ffi.lsp
View file

@ -335,7 +335,7 @@ Returns the address as an integer of a pointer."
Returns the object to which a pointer points."
;; FIXME! No checking!
(setf ftype (%convert-to-ffi-type ftype))
(cond ((foreign-elt-type-p type)
(cond ((foreign-elt-type-p ftype)
(si::foreign-data-ref-elt ptr 0 ftype))
((atom ftype)
(error "Unknown foreign primitive type: ~A" ftype))