From 98401c4bbc606c50b841ad4b8a559f6a3a32efe1 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 24 Apr 1990 07:15:16 +0000 Subject: [PATCH] Export lisp::sap-ref-sap from system. Added constant-type, etc to kernel. Added ASSEMBLER package and exports. --- code/exports.lisp | 88 ++++++++++++++++++++++++++++------------------- 1 file changed, 53 insertions(+), 35 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index ff950ed76..9585defcb 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.8 1990/04/06 00:15:48 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.9 1990/04/24 07:15:16 wlott Exp $ ;;; ;;; All the stuff necessary to export various symbols from various packages. ;;; @@ -32,7 +32,8 @@ (nuke "NEGATE" "LISP") (nuke "STRUCTURE-TYPE" "XP") (nuke "CONCAT-PNAMES" "LISP") - (nuke "ONCE-ONLY" "COMPILER")) + (nuke "ONCE-ONLY" "COMPILER") + (nuke "CONSTANT" "COMPILER")) (labels ((lisp->system (name) @@ -52,7 +53,8 @@ (lisp->system "DEPORT-INTEGER") (lisp->system "MAKE-CT-A-VAL") (lisp->system "NATURALIZE-BOOLEAN") - (lisp->system "NATURALIZE-INTEGER")) + (lisp->system "NATURALIZE-INTEGER") + (lisp->system "SAP-REF-SAP")) (let ((symbol (find-symbol "CHECK=" (find-package "COMPILER")))) (when symbol (import symbol (find-package "SYSTEM")))) @@ -70,6 +72,7 @@ (in-package "USER") (in-package "VM") (in-package "C") +(in-package "ASSEMBLER" :nicknames '("ASSEM")) @@ -262,36 +265,38 @@ bit-bash-xor bit-bash-eqv bit-bash-lognand bit-bash-lognor bit-bash-andc1 bit-bash-andc2 bit-bash-orc1 bit-bash-orc2 bit-index boole-code boolean byte-specifier callable char-int - consed-sequence csubtypep ctype ctype-of ctype-p ctypep - data-vector-ref data-vector-set filename float-digits - float-exponent float-format-max float-radix form function-type + consed-sequence constant-type constant-type-p constant-type-type + csubtypep ctype ctype-of ctype-p ctypep data-vector-ref + data-vector-set filename float-digits float-exponent + float-format-max float-radix form function-type function-type-allowp function-type-keyp function-type-keywords function-type-optional function-type-p function-type-required - function-type-rest function-type-returns hairy-type - hairy-type-check-template hairy-type-specifier index + function-type-rest function-type-returns function-type-wild-args + hairy-type hairy-type-check-template hairy-type-specifier index internal-time irrational key-info key-info-name key-info-p key-info-type lexical-environment make-args-type make-function-type make-key-info make-member-type make-named-type make-numeric-type make-structure-type make-union-type make-values-type member-type member-type-members member-type-p - named-type named-type-name named-type-p negate never-subtypep - numeric-contagion numeric-type numeric-type-class + named-type named-type-name named-type-p native-byte-order negate + never-subtypep numeric-contagion numeric-type numeric-type-class numeric-type-complexp numeric-type-format numeric-type-high - numeric-type-low numeric-type-p pathname-device - pathname-directory pathname-host pathname-name pathname-type - pathname-version pathnamelike sequence-end single-value-type - specifier-type streamlike stringable stringlike structure-type - structure-type-name structure-type-p truth type-init two-arg-* - two-arg-+ two-arg-- two-arg-/ two-arg-/= two-arg-< two-arg-<= - two-arg-= two-arg-> two-arg->= two-arg-and two-arg-ior - two-arg-xor type-difference type-intersect type-intersection - type-specifier type-specifier-symbols type-union type/= type= - types-intersect union-type union-type-p union-type-types - values-subtypep values-type values-type-allowp - values-type-intersect values-type-intersection values-type-keyp - values-type-keywords values-type-optional values-type-p - values-type-required values-type-rest values-type-union - values-types values-types-intersect void)) + numeric-type-low numeric-type-p parse-unknown-type + pathname-device pathname-directory pathname-host pathname-name + pathname-type pathname-version pathnamelike sequence-end + single-value-type specifier-type streamlike stringable stringlike + structure-type structure-type-name structure-type-p truth + type-init two-arg-* two-arg-+ two-arg-- two-arg-/ two-arg-/= + two-arg-< two-arg-<= two-arg-= two-arg-> two-arg->= two-arg-and + two-arg-ior two-arg-xor type-difference type-intersect + type-intersection type-specifier type-specifier-symbols + type-union type/= type= types-intersect union-type union-type-p + union-type-types unknown-type unknown-type-p values-subtypep + values-type values-type-allowp values-type-intersect + values-type-intersection values-type-keyp values-type-keywords + values-type-optional values-type-p values-type-required + values-type-rest values-type-union values-types + values-types-intersect void)) (in-package "EXTENSIONS") @@ -322,9 +327,9 @@ command-line-switch command-line-switch-p compact-info-environment compile-from-stream compiledp complete-file concat-pnames connect-to-inet-socket - create-inet-listener create-inet-socket debug def-c-array - def-c-pointer def-c-procedure def-c-record def-c-routine - def-c-type def-c-variable default-clx-event-handler + constant-argument create-inet-listener create-inet-socket debug + def-c-array def-c-pointer def-c-procedure def-c-record + def-c-routine def-c-type def-c-variable default-clx-event-handler default-directory define-info-class define-info-type define-keyboard-modifier define-keysym define-mouse-code defmodule defswitch deletef delq disable-clx-event-handling @@ -396,13 +401,14 @@ record-size remove-fd-handler remove-port-death-handler remove-port-object remove-xwindow-object resolve-loaded-assembler-references sap-int sap-ref-16 sap-ref-32 - sap-ref-8 serve-all-events serve-event server server-message - short-float-radix signed-sap-ref-16 signed-sap-ref-32 - signed-sap-ref-8 single-float-radix symbol-macro-let - system-area-pointer system-area-pointer-p unproclaim unstructured - wait-until-fd-usable with-enabled-interrupts with-fd-handler - with-interrupts with-reply-port with-stack-alien without-gcing - without-hemlock without-interrupts words)) + sap-ref-8 sap-ref-sap serve-all-events serve-event server + server-message short-float-radix signed-sap-ref-16 + signed-sap-ref-32 signed-sap-ref-8 single-float-radix + symbol-macro-let system-area-pointer system-area-pointer-p + unproclaim unstructured wait-until-fd-usable + with-enabled-interrupts with-fd-handler with-interrupts + with-reply-port with-stack-alien without-gcing without-hemlock + without-interrupts words)) (in-package "USER") @@ -483,12 +489,24 @@ (use-package "KERNEL") (use-package "SYSTEM") (use-package "VM") +(use-package "ASSEM") (export '(*compile-time-define-macros* *compiling-for-interpreter* compile-for-eval entry-node-info-nlx-tag entry-node-info-st-top lambda-eval-info-args-passed lambda-eval-info-entries lambda-eval-info-frame-size)) + +(in-package "ASSEM") + +(export '(*current-position* align assemble define-argument-type + define-fixup-type define-format define-instruction + define-pseudo-instruction define-random-resources + define-register-file dump-segment emit-code-vector emit-label + finalize-segment fixup fixup-flavor fixup-name fixup-offset + fixup-p gen-label insert-segment inst label label-position + make-fixup make-segment)) + (in-package "EVAL") -- GitLab