From afd5ef49078a9392ddb5c8b716e875903841ff92 Mon Sep 17 00:00:00 2001 From: jgarcia Date: Sat, 8 Jul 2006 08:08:43 +0000 Subject: [PATCH] Fixed typo in the definition of CONVERT-TO-CSTRING. --- src/lsp/ffi.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp index 98664d9ae..db8ae46e3 100644 --- a/src/lsp/ffi.lsp +++ b/src/lsp/ffi.lsp @@ -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))))))