mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-01 18:20:28 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in the definition of CONVERT-TO-CSTRING.

Browse source
This commit is contained in:
jgarcia 2006-07-08 08:08:43 +00:00
parent c7c41f8bac
commit afd5ef4907
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/ffi.lsp
View file

@ -380,7 +380,7 @@
;; This enforces that the string contains only as many characters as the
;; fill-pointer determines Since ECL always sets a 0 character after the
;; last element of a string, this way, the string is always zero-terminated
(copy-seq object))
`(copy-seq ,object))
(defmacro free-cstring (object)
object)
@ -521,7 +521,7 @@
(let* ((return-type (ffi::%convert-to-return-type returning))
(return-required (not (eq return-type :void)))
(argtypes (mapcar #'(lambda (a) (ffi::%convert-to-arg-type (second a))) args)))
`(let ((c-fun (si::find-foreign-symbol ,c-name ,module :pointer-void 0)))
`(let ((c-fun (si::find-foreign-symbol ',c-name ,module :pointer-void 0)))
(defun ,lisp-name ,(mapcar #'first args)
(si::call-cfun c-fun ',return-type ',argtypes (list ,@(mapcar #'first args)) ,call))))))