X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/55212af123daea1d86d31da21cc1bee77651fb81..ce5b19eac024fd1dbd70d6a701b188b44cec566e:/glib/glib.lisp diff --git a/glib/glib.lisp b/glib/glib.lisp index 6bd2dff..01bd66f 100644 --- a/glib/glib.lisp +++ b/glib/glib.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. -;; $Id: glib.lisp,v 1.30 2005/04/23 16:48:50 espen Exp $ +;; $Id: glib.lisp,v 1.31 2005/04/24 13:27:20 espen Exp $ (in-package "GLIB") @@ -447,7 +447,7 @@ (defmethod copy-from-alien-form (c-vector (type (eql 'vector)) &rest args) (destructuring-bind (element-type &optional (length '*)) args (if (eq length '*) (error "Can't use vector of variable size as return type") - `(map-c-vector 'vector #'identity ,c-vector ',element-type ',length)))) + `(map-c-vector 'vector #'identity ,c-vector ',element-type ,length)))) (defmethod copy-from-alien-function ((type (eql 'vector)) &rest args) (declare (ignore type))