From 599a1b7a4bce38c141ee990cf3327662a60bb419 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 20 Feb 1992 21:06:15 +0000 Subject: [PATCH] Don't generate argument decls in DEF-ALIEN-ROUTINE, because this inhibits the utility of the automatic lisp->alien conversion typecases, etc. If we could get a better idea of what the type was, it would be a good idea, but until then, it's not. --- code/alieneval.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/code/alieneval.lisp b/code/alieneval.lisp index b1c55d368..24dd03ab2 100644 --- a/code/alieneval.lisp +++ b/code/alieneval.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.14 1992/02/19 03:04:20 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.15 1992/02/20 21:06:15 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1728,7 +1728,7 @@ (multiple-value-bind (lisp-name alien-name) (pick-lisp-and-alien-names name) - (collect ((docs) (lisp-args) (arg-types) (alien-vars) (decls) + (collect ((docs) (lisp-args) (arg-types) (alien-vars) (alien-args) (results)) (dolist (arg args) (if (stringp arg) @@ -1737,8 +1737,7 @@ (unless (member style '(:in :copy :out :in-out)) (error "Bogus argument style ~S in ~S." style arg)) (unless (eq style :out) - (lisp-args name) - (decls `(type (alien ,type) ,name))) + (lisp-args name)) (cond ((eq style :in) (arg-types type) (alien-args name)) @@ -1752,7 +1751,6 @@ (results name))))) `(defun ,lisp-name ,(lisp-args) ,@(docs) - (declare ,@(decls)) (with-alien ((,lisp-name (function ,result-type ,@(arg-types)) :extern ,alien-name) -- GitLab