diff --git a/code/exports.lisp b/code/exports.lisp index f8ff26b0c016d6a66669164ecbe9706c3fec8c08..b7c46f31447c491079f2c62b38660ce46df714ad 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -7,12 +7,10 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.75 1992/03/07 17:47:27 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.76 1992/03/11 10:02:15 wlott Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.75 1992/03/07 17:47:27 wlott Exp $ -;;; ;;; All the stuff necessary to export various symbols from various packages. ;;; @@ -1369,42 +1367,49 @@ '("%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" - "%SLOT-ADDR" "ALIEN" "ALIEN-ARRAY-TYPE" "ALIEN-ARRAY-TYPE-DIMENSIONS" - "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" "ALIEN-ARRAY-TYPE-P" - "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" "ALIEN-ENUM-TYPE" - "ALIEN-ENUM-TYPE-P" "ALIEN-FUNCTION-TYPE" + "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE" + "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" + "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" + "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P" + "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE" + "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE" "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P" "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE" - "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" "ALIEN-POINTER-TYPE" - "ALIEN-POINTER-TYPE-P" "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD" - "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET" - "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" "ALIEN-RECORD-TYPE" - "ALIEN-RECORD-TYPE-FIELDS" "ALIEN-RECORD-TYPE-P" "ALIEN-SUBTYPE-P" - "ALIEN-TYPE" "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS" - "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUES-TYPE" - "ALIEN-VALUES-TYPE-P" "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" - "COMPUTE-ALIEN-REP-TYPE" "COMPUTE-DEPORT-LAMBDA" - "COMPUTE-DEPOSIT-LAMBDA" "COMPUTE-EXTRACT-LAMBDA" - "COMPUTE-LISP-REP-TYPE" "COMPUTE-NATURALIZE-LAMBDA" - "DEF-ALIEN-TYPE-CLASS" "DEF-ALIEN-TYPE-METHOD" - "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" "DEPOSIT-ALIEN-VALUE" - "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" "HEAP-ALIEN-INFO" - "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" "HEAP-ALIEN-INFO-TYPE" - "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" "LOCAL-ALIEN-INFO" - "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" "LOCAL-ALIEN-INFO-P" - "LOCAL-ALIEN-INFO-TYPE" "MAKE-ALIEN-POINTER-TYPE" "MAKE-LOCAL-ALIEN" - "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" "PARSE-ALIEN-TYPE" - "UNPARSE-ALIEN-TYPE")) + "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" + "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P" "ALIEN-POINTER-TYPE-TO" + "ALIEN-RECORD-FIELD" "ALIEN-RECORD-FIELD-NAME" + "ALIEN-RECORD-FIELD-OFFSET" "ALIEN-RECORD-FIELD-P" + "ALIEN-RECORD-FIELD-TYPE" "ALIEN-RECORD-TYPE" + "ALIEN-RECORD-TYPE-FIELDS" "ALIEN-RECORD-TYPE-P" + "ALIEN-SINGLE-FLOAT-TYPE" "ALIEN-SINGLE-FLOAT-TYPE-P" + "ALIEN-SUBTYPE-P" "ALIEN-TYPE" "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" + "ALIEN-TYPE-BITS" "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" + "ALIEN-VALUE-TYPE" "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" + "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" + "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" + "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" + "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS" + "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" + "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" + "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" + "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" + "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" + "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE" + "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE" + "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" + "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")) (intern name "ALIEN")) (defpackage "ALIEN-INTERNALS" (:import-from "ALIEN" "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" "%SLOT-ADDR" - "ALIEN" "ALIEN-ARRAY-TYPE" "ALIEN-ARRAY-TYPE-DIMENSIONS" - "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" "ALIEN-ARRAY-TYPE-P" - "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" "ALIEN-ENUM-TYPE" - "ALIEN-ENUM-TYPE-P" "ALIEN-FUNCTION-TYPE" + "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE" + "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" + "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" + "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P" + "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE" + "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE" "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P" "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE" "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" @@ -1413,29 +1418,33 @@ "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET" "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS" - "ALIEN-RECORD-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE" + "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE" + "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE" "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS" - "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUES-TYPE" - "ALIEN-VALUES-TYPE-P" "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" - "COMPUTE-ALIEN-REP-TYPE" "COMPUTE-DEPORT-LAMBDA" - "COMPUTE-DEPOSIT-LAMBDA" "COMPUTE-EXTRACT-LAMBDA" - "COMPUTE-LISP-REP-TYPE" "COMPUTE-NATURALIZE-LAMBDA" - "DEF-ALIEN-TYPE-CLASS" "DEF-ALIEN-TYPE-METHOD" - "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" "DEPOSIT-ALIEN-VALUE" - "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" "HEAP-ALIEN-INFO" - "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" + "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE" + "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" + "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" + "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" + "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" + "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS" + "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" + "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" + "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE" - "MAKE-ALIEN-POINTER-TYPE" "MAKE-LOCAL-ALIEN" "NATURALIZE" - "NOTE-LOCAL-ALIEN-TYPE" "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE") + "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE" + "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" + "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE") (:export "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" - "%SLOT-ADDR" "ALIEN" "ALIEN-ARRAY-TYPE" + "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE" "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" - "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FUNCTION-TYPE" + "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P" + "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE" + "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE" "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P" "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE" "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" @@ -1444,22 +1453,24 @@ "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET" "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS" - "ALIEN-RECORD-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE" + "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE" + "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE" "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS" - "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUES-TYPE" - "ALIEN-VALUES-TYPE-P" "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" - "COMPUTE-ALIEN-REP-TYPE" "COMPUTE-DEPORT-LAMBDA" - "COMPUTE-DEPOSIT-LAMBDA" "COMPUTE-EXTRACT-LAMBDA" - "COMPUTE-LISP-REP-TYPE" "COMPUTE-NATURALIZE-LAMBDA" - "DEF-ALIEN-TYPE-CLASS" "DEF-ALIEN-TYPE-METHOD" - "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" "DEPOSIT-ALIEN-VALUE" - "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" "HEAP-ALIEN-INFO" - "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" + "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE" + "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" + "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" + "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" + "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" + "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS" + "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT" + "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE" + "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE" - "MAKE-ALIEN-POINTER-TYPE" "MAKE-LOCAL-ALIEN" "NATURALIZE" - "NOTE-LOCAL-ALIEN-TYPE" "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")) + "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE" + "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE" + "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")) (defpackage "PROFILE" (:export "*TIMED-FUNCTIONS*" "PROFILE" "REPORT-TIME" "RESET-TIME" "UNPROFILE"))