diff --git a/code/alieneval.lisp b/code/alieneval.lisp index c10e130103653716b5b43fef8d58a42f99b914be..e9c7bf17ad9350a83270ff6175a4b4a1acf6bf50 100644 --- a/code/alieneval.lisp +++ b/code/alieneval.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.49 2001/03/13 16:52:13 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.50 2001/05/31 16:42:06 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1481,11 +1481,15 @@ `(%sap-alien ,sap ',alien-type) (error "Cannot make aliens of type ~S out of SAPs" type)))) +(declaim (maybe-inline %sap-alien)) (defun %sap-alien (sap type) (declare (type system-area-pointer sap) (type alien-type type)) (make-alien-value :sap sap :type type)) +;; Don't make this an inline function. You may not be able to get a +;; working core. (RLT) +(declaim (maybe-inline alien-sap)) (defun alien-sap (alien) "Return a System-Area-Pointer pointing to Alien's data." (declare (type alien-value alien))