diff --git a/code/alieneval.lisp b/code/alieneval.lisp index e9c89de1624c2fca56f87c7d1a861441b622c309..2d5c2d33681f951a9d6d3a127cd2e84fb36c9a87 100644 --- a/code/alieneval.lisp +++ b/code/alieneval.lisp @@ -7,23 +7,27 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.6 1990/11/06 14:04:03 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.7 1990/11/13 23:25:24 wlott Exp $ ;;; ;;; This file contains any the part of the Alien implementation that ;;; is not part of the compiler. ;;; -(in-package 'lisp) -(in-package 'system) +(in-package "LISP") +(in-package "SYSTEM") (export '(*alien-eval-when* make-alien alien-type alien-size alien-address - copy-alien dispose-alien defalien alien-value - alien-bind defoperator alien-index alien-indirect - bits bytes words long-words port perq-string - boolean defenumeration enumeration - system-area-pointer pointer alien alien-access - alien-assign alien-sap define-alien-stack - with-stack-alien null-terminated-string c-procedure - unstructured)) -(in-package 'lisp) + copy-alien dispose-alien defalien alien-value alien-bind + defoperator alien-index alien-indirect bits bytes words + long-words port perq-string boolean defenumeration enumeration + system-area-pointer pointer alien alien-access alien-assign + alien-sap define-alien-stack with-stack-alien + null-terminated-string c-procedure unstructured + sap+ sap- sap-ref-sap sap-ref-32 sap-ref-16 sap-ref-8 + sap-ref-single sap-ref-double)) +(in-package "KERNEL" +(export '(%set-sap-ref-sap %set-sap-ref-32 %set-sap-ref-16 + %set-sap-ref-8 %set-sap-ref-single %set-sap-ref-double)) + +(in-package "LISP") (defun concat-pnames* (name1 name2) (if name1