diff --git a/code/exports.lisp b/code/exports.lisp new file mode 100644 index 0000000000000000000000000000000000000000..3e1b27535d3449339adcbddfee1d47a1b11164ba --- /dev/null +++ b/code/exports.lisp @@ -0,0 +1,534 @@ +;;; -*- Log: C.Log -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the Spice Lisp project at +;;; Carnegie-Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of Spice Lisp, please contact +;;; Scott Fahlman (FAHLMAN@CMUC). +;;; ********************************************************************** +;;; +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.1 1990/04/01 17:35:43 wlott Exp $ +;;; +;;; All the stuff necessary to export various symbols from various packages. +;;; +;;; Written by William Lott. +;;; + + +;;; Old compiler cleanup. + +#-new-compiler +(progn + +(labels + ((nuke (name package) + (let* ((package (find-package package)) + (symbol (find-symbol name package))) + (when symbol + (unintern symbol package))))) + (nuke "FORM" "LISP") + (nuke "INDEX" "LISP") + (nuke "LEXICAL-ENVIRONMENT" "LISP") + (nuke "NEGATE" "LISP") + (nuke "STRUCTURE-TYPE" "XP") + (nuke "CONCAT-PNAMES" "LISP") + (nuke "ONCE-ONLY" "COMPILER")) + +(labels + ((lisp->system (name) + (let ((symbol (find-symbol name (find-package "LISP")))) + (when symbol + (import symbol (find-package "SYSTEM")))))) + (lisp->system "%SET-ALIEN-ACCESS") + (lisp->system "CHECK<=") + (lisp->system "CT-A-VAL") + (lisp->system "CT-A-VAL-ALIEN") + (lisp->system "CT-A-VAL-OFFSET") + (lisp->system "CT-A-VAL-P") + (lisp->system "CT-A-VAL-SAP") + (lisp->system "CT-A-VAL-SIZE") + (lisp->system "CT-A-VAL-TYPE") + (lisp->system "DEPORT-BOOLEAN") + (lisp->system "DEPORT-INTEGER") + (lisp->system "MAKE-CT-A-VAL") + (lisp->system "NATURALIZE-BOOLEAN") + (lisp->system "NATURALIZE-INTEGER")) + +(let ((symbol (find-symbol "CHECK=" (find-package "COMPILER")))) + (when symbol (import symbol (find-package "SYSTEM")))) + +); #-new-compiler progn + + + +;;; Create the packages + +(in-package "LISP") +(in-package "KERNEL") +(in-package "SYSTEM" :nicknames '("SYS")) +(in-package "EXTENSIONS" :nicknames '("EXT")) +(in-package "USER") +(in-package "VM") +(in-package "C") + + + +(in-package "LISP") + +(use-package "KERNEL") +(use-package "EXT") +(use-package "SYSTEM") + +(export '(&allow-other-keys &aux &body &environment &key &optional &rest + &whole * ** *** *applyhook* *break-on-signals* + *break-on-warnings* *debug-io* *debugger-hook* + *default-pathname-defaults* *error-output* *evalhook* *features* + *gensym-counter* *load-verbose* *macroexpand-hook* *modules* + *package* *print-array* *print-base* *print-case* *print-circle* + *print-escape* *print-gensym* *print-length* *print-level* + *print-pretty* *print-radix* *query-io* *random-state* + *read-base* *read-default-float-format* *read-suppress* + *readtable* *standard-input* *standard-output* *terminal-io* + *trace-output* + ++ +++ - / // /// /= 1+ 1- < <= = > >= abort abs + acons acos acosh adjoin adjust-array adjustable-array-p + alpha-char-p alphanumericp and append apply applyhook apropos + apropos-list aref arithmetic-error arithmetic-error-operands + arithmetic-error-operation array array-dimension + array-dimension-limit array-dimensions array-element-type + array-has-fill-pointer-p array-in-bounds-p array-rank + array-rank-limit array-row-major-index array-total-size + array-total-size-limit arrayp ash asin asinh assert assoc + assoc-if assoc-if-not atan atanh atom base-character base-string + bignum bit bit-and bit-andc1 bit-andc2 bit-eqv bit-ior bit-nand + bit-nor bit-not bit-orc1 bit-orc2 bit-vector bit-vector-p bit-xor + block boole boole-1 boole-2 boole-and boole-andc1 boole-andc2 + boole-c1 boole-c2 boole-clr boole-eqv boole-ior boole-nand + boole-nor boole-orc1 boole-orc2 boole-set boole-xor both-case-p + boundp break butlast byte byte-position byte-size caaaar caaadr + caaar caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr + caddr cadr call-arguments-limit car case catch ccase cdaaar + cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar + cddddr cdddr cddr cdr ceiling cell-error cerror char char-bit + char-bits char-bits-limit char-code char-code-limit + char-control-bit char-downcase char-equal char-font + char-font-limit char-greaterp char-hyper-bit char-int char-lessp + char-meta-bit char-name char-not-equal char-not-greaterp + char-not-lessp char-super-bit char-upcase char/= char< char<= + char= char> char>= character characterp check-type cis + clear-input clear-output close clrhash code-char coerce common + commonp compilation-speed compile compile-file compiled-function + compiled-function-p compiler-let complex complexp + compute-restarts concatenate cond condition conjugate cons consp + constantp continue control-error copy-alist copy-list + copy-readtable copy-seq copy-symbol copy-tree cos cosh count + count-if count-if-not ctypecase debug-info decf declaration + declare decode-float decode-universal-time defconstant + define-condition define-modify-macro define-setf-method defmacro + defparameter defsetf defstruct deftype defun defvar delete + delete-duplicates delete-file delete-if delete-if-not denominator + deposit-field describe digit-char digit-char-p directory + directory-namestring disassemble division-by-zero do do* + do-all-symbols do-external-symbols do-symbols documentation + dolist dotimes double-float double-float-epsilon + double-float-negative-epsilon dpb dribble ecase ed eighth elt + encode-universal-time end-of-file endp enough-namestring eq eql + equal equalp error etypecase eval eval-when evalhook evenp every + exp export expt extended-character fboundp fceiling fdefinition + ffloor fifth file-author file-error file-error-pathname + file-length file-namestring file-position file-write-date fill + fill-pointer find find-all-symbols find-if find-if-not + find-package find-restart find-symbol finish-output first fixnum + flet float float-digits float-precision float-radix float-sign + floating-point-overflow floating-point-underflow floatp floor + fmakunbound force-output format fourth fresh-line fround + ftruncate ftype funcall function function-lambda-expression + functionp gcd gensym gentemp get get-decoded-time + get-dispatch-macro-character get-internal-real-time + get-internal-run-time get-macro-character + get-output-stream-string get-properties get-setf-method + get-setf-method-multiple-value get-universal-time getf gethash go + graphic-char-p handler-bind handler-case hash-table + hash-table-count hash-table-p host-namestring identity if ignore + ignore-errors imagpart import in-package incf inline + input-stream-p inspect int-char integer integer-decode-float + integer-length integerp intern internal-time-units-per-second + intersection invoke-debugger invoke-restart + invoke-restart-interactively isqrt keyword keywordp labels lambda + lambda-list-keywords lambda-parameters-limit last lcm ldb + ldb-test ldiff least-negative-double-float + least-negative-long-float least-negative-short-float + least-negative-single-float least-positive-double-float + least-positive-long-float least-positive-short-float + least-positive-single-float length let let* + lisp-implementation-type lisp-implementation-version list list* + list-all-packages list-length listen listp load locally log + logand logandc1 logandc2 logbitp logcount logeqv logior lognand + lognor lognot logorc1 logorc2 logtest logxor long-float + long-float-epsilon long-float-negative-epsilon long-site-name + loop lower-case-p machine-instance machine-type machine-version + macro-function macroexpand macroexpand-1 macrolet make-array + make-broadcast-stream make-char make-concatenated-stream + make-condition make-dispatch-macro-character make-echo-stream + make-hash-table make-list make-package make-pathname + make-random-state make-sequence make-string + make-string-input-stream make-string-output-stream make-symbol + make-synonym-stream make-two-way-stream makunbound map mapc + mapcan mapcar mapcon maphash mapl maplist mask-field max member + member-if member-if-not merge merge-pathnames min minusp mismatch + mod most-negative-double-float most-negative-fixnum + most-negative-long-float most-negative-short-float + most-negative-single-float most-positive-double-float + most-positive-fixnum most-positive-long-float + most-positive-short-float most-positive-single-float + muffle-warning multiple-value-bind multiple-value-call + multiple-value-list multiple-value-prog1 multiple-value-setq + multiple-values-limit name-char namestring nbutlast nconc nil + nintersection ninth not notany notevery notinline nreconc + nreverse nset-difference nset-exclusive-or nstring-capitalize + nstring-downcase nstring-upcase nsublis nsubst nsubst-if + nsubst-if-not nsubstitute nsubstitute-if nsubstitute-if-not nth + nthcdr null number numberp numerator nunion oddp open optimize or + otherwise output-stream-p package package-error + package-error-package package-name package-nicknames + package-shadowing-symbols package-use-list package-used-by-list + packagep pairlis parse-integer parse-namestring pathname + pathname-device pathname-directory pathname-host pathname-name + pathname-type pathname-version pathnamep peek-char phase pi plusp + pop position position-if position-if-not pprint prin1 + prin1-to-string princ princ-to-string print probe-file proclaim + prog prog* prog1 prog2 progn program-error progv provide psetf + psetq push pushnew quote random random-state random-state-p + rassoc rassoc-if rassoc-if-not ratio rational rationalize + rationalp read read-byte read-char read-char-no-hang + read-delimited-list read-from-string read-line + read-preserving-whitespace readtable readtablep real realpart + reduce rem remf remhash remove remove-duplicates remove-if + remove-if-not remprop rename-file rename-package replace require + rest restart restart-bind restart-case restart-name return + return-from revappend reverse room rotatef round row-major-aref + rplaca rplacd safety satisfies sbit scale-float schar search + second sequence serious-condition set set-char-bit set-difference + set-dispatch-macro-character set-exclusive-or set-macro-character + set-syntax-from-char setf setq seventh shadow shadowing-import + shiftf short-float short-float-epsilon + short-float-negative-epsilon short-site-name signal signed-byte + signum simple-array simple-base-string simple-bit-vector + simple-bit-vector-p simple-condition + simple-condition-format-arguments simple-condition-format-string + simple-error simple-string simple-string-p simple-type-error + simple-vector simple-vector-p simple-warning sin single-float + single-float-epsilon single-float-negative-epsilon sinh sixth + sleep software-type software-version some sort space special + special-form-p speed sqrt stable-sort stack-overflow + standard-char standard-char-p step storage-condition + storage-exhausted store-value stream stream-element-type + stream-error stream-error-stream streamp string string-capitalize + string-char string-char-p string-downcase string-equal + string-greaterp string-left-trim string-lessp string-not-equal + string-not-greaterp string-not-lessp string-right-trim + string-trim string-upcase string/= string< string<= string= + string> string>= stringp structure sublis subseq subsetp subst + subst-if subst-if-not substitute substitute-if substitute-if-not + subtypep svref sxhash symbol symbol-function symbol-name + symbol-package symbol-plist symbol-value symbolp t tagbody tailp + tan tanh tenth terpri the third throw time trace tree-equal + truename truncate type type-error type-error-datum + type-error-expected-type type-of typecase typep unbound-variable + undefined-function unexport unintern union unless unread-char + unsigned-byte untrace unuse-package unwind-protect upper-case-p + use-package use-value user-homedir-pathname values values-list + variable vector vector-pop vector-push vector-push-extend vectorp + warn warning when with-compilation-unit with-input-from-string + with-open-file with-open-stream with-output-to-string + with-simple-restart write write-byte write-char write-line + write-string write-to-string y-or-n-p yes-or-no-p zerop)) + + +(in-package "KERNEL") + +(use-package "EXT") +(use-package "SYSTEM") + +(export '(*empty-type* *eval-stack-top* *null-type* *universal-type* + *wild-type* always-subtypep args-type args-type-allowp + args-type-keyp args-type-keywords args-type-optional args-type-p + args-type-required args-type-rest array-rank array-total-size + array-type array-type-complexp array-type-dimensions + array-type-element-type array-type-p + array-type-specialized-element-type ash-index bit-index + boole-code boolean byte-specifier callable char-int + consed-sequence csubtypep ctype ctype-of ctype-p ctypep 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 + 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 + 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 two-arg-* two-arg-+ + two-arg-- two-arg-/ two-arg-/= two-arg-< two-arg-<= two-arg-= + two-arg-> two-arg->= 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)) + + +(in-package "EXTENSIONS") + +(export '(*after-gc-hooks* *after-save-initializations* *backup-extension* + *before-gc-hooks* *before-save-initializations* + *bytes-consed-between-gcs* *clx-fds-to-displays* + *command-line-strings* *command-line-switches* + *command-line-utility-name* *command-line-words* + *command-switch-demons* *compatibility-warnings* + *describe-implementation-details* *describe-indentation* + *describe-level* *describe-print-length* *describe-print-level* + *describe-verbose* *display-event-handlers* *editor-lisp-p* + *environment-list* *gc-inhibit-hook* *gc-notify-after* + *gc-notify-before* *gc-verbose* *hemlock-version* + *ignore-floating-point-underflow* *info-environment* + *intexp-maximum-exponenent* *keyword-package* *lisp-package* + *load-if-source-newer* *max-step-indentation* + *max-trace-indentation* *module-file-translations* *prompt* + *require-verbose* *safe-defstruct-accessors* *step-print-length* + *step-print-level* *terminal-line-mode* *trace-print-length* + *trace-print-level* *traced-function-list* abort + accept-tcp-connection add-oob-handler ambiguous-files + argument-list assq basic-definition bignump bitp c-sizeof + call-user-miscop careful-symbol-function carefully-add-font-paths + char clean-up-compiler clear-info close-socket cmd-switch-arg + cmd-switch-name cmd-switch-value cmd-switch-words collect + 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 + default-directory define-info-class define-info-type + define-keyboard-modifier define-keysym define-mouse-code + defmodule defswitch deletef delq disable-clx-event-handling + do-anonymous do-info double-floatp dovector e + enable-clx-event-handling encapsulate encapsulated-p + file-writable fixnump flush-display-events format-decoded-time + format-universal-time gc gc-off gc-on get-bytes-consed + get-code-pointer get-command-line-switch get-data-pointer grindef + host-entry host-entry-addr host-entry-addr-list + host-entry-aliases host-entry-name htonl htons ignorable + ignore-errors inaddr-any indenting-further info int + interactive-eval ipproto-tcp ipproto-udp iterate letf letf* + listen-skip-whitespace load-foreign long long-floatp + lookup-host-entry make-info-environment maybe-inline memq ntohl + ntohs object-set-event-handler once-only open-clx-display + parse-time print-directory print-herald process-alive-p + process-close process-core-dumped process-error process-exit-code + process-input process-kill process-output process-p process-pid + process-plist process-pty process-status process-status-hook + process-wait putf quit ratiop read-char-no-edit realp + remove-all-oob-handlers remove-oob-handler reset-foreign-pointers + run-program save save-all-buffers save-lisp search-list + send-character-out-of-band serve-button-press + serve-button-release serve-circulate-notify + serve-circulate-request serve-client-message + serve-colormap-notify serve-configure-notify + serve-configure-request serve-create-notify serve-destroy-notify + serve-enter-notify serve-exposure serve-focus-in serve-focus-out + serve-graphics-exposure serve-gravity-notify serve-key-press + serve-key-release serve-leave-notify serve-map-notify + serve-map-request serve-motion-notify serve-no-exposure + serve-property-notify serve-reparent-notify serve-resize-request + serve-selection-clear serve-selection-notify + serve-selection-request serve-unmap-notify + serve-visibility-notify set-symbol-function-carefully short + short-floatp signal single-floatp structurep translate-character + translate-mouse-character truly-the uncompile undefined-value + unencapsulate unsigned-char unsigned-int unsigned-long + unsigned-short void with-clx-event-handling)) + + +(in-package "SYSTEM") + +(export '(%+-fixnum-type %--fixnum-type %alien-indirect + %alloc-ref-space-shift %alloc-ref-type-shift %array-data-slot + %array-dim-base %array-displaced-subtype %array-displacement-slot + %array-fill-pointer-slot %array-first-dim-slot + %array-header-overhead %array-length-slot %array-normal-subtype + %array-type %assembler-code-type %bignum-type %bind-aligned-sap + %binding-stack-type %bit-vector-type %catch-all-type + %catch-func-slot %catch-pc-slot %catch-prev-active-slot + %catch-prev-binding-slot %catch-previous-slot + %character-code-byte %character-code-control-mask + %character-code-mask %character-control-byte + %character-control-mask %character-font-byte %character-font-mask + %character-int-mask %complex-type %cons-length + %control-stack-type %double-float-exponent-length + %double-float-mantissa-length %double-float-type %dynamic-0-space + %dynamic-1-space %dynamic-space %first-pointer-type + %fixnum-alloctable-address %fixnum-length %frame-arg-start-slot + %frame-func-slot %frame-header-escape-byte + %frame-header-values-byte %frame-pc-slot %frame-prev-active-slot + %frame-prev-binding-slot %function-anonymous-expr-subtype + %function-arg-info-slot %function-arg-names-slot + %function-closure-subtype %function-code-slot + %function-constants-offset %function-defined-from-slot + %function-expr-subtype %function-fexpr-subtype + %function-funcallable-instance-subtype %function-keyword-arg-byte + %function-keyword-arg-slot %function-locals-byte + %function-locals-slot %function-macro-subtype + %function-max-args-byte %function-max-args-slot + %function-min-args-byte %function-min-args-slot + %function-name-slot %function-rest-arg-byte + %function-rest-arg-slot %function-top-level-form-subtype + %function-type %g-vector-structure-name-slot + %g-vector-structure-subtype %gc-forward-type %general-vector-type + %i-vector-code-subtype %instance-type %integer-vector-type + %last-pointer-type %lisp-data-byte %lisp-type-byte + %lisp-type-shift %list-type %long-float-exponent-length + %long-float-mantissa-length %long-float-type %primitive + %ratio-type %read-only-space %set-alien-access %set-sap-ref-16 + %set-sap-ref-32 %set-sap-ref-8 %short-+-float-type + %short---float-type %short-float-exponent-length + %short-float-mantissa-length %sp-byte-blt %sp-find-character + %sp-find-character-with-attribute %sp-make-fixnum + %sp-reverse-find-character-with-attribute %space-shift + %stack-increment %standard-char-p %static-alien-area + %static-space %string-char-p %string-type %symbol-length + %symbol-type %trap-type %type-space-mask %values-marker-num-byte + %values-marker-type *alien-eval-when* *beep-function* + *gr-messages* *in-the-compiler* + *maximum-interpreter-error-checking* *nameserverport* + *pornography-of-death* *port-ownership-rights-handlers* + *port-receive-rights-handlers* *stderr* *stdin* *stdout* + *task-data* *task-notify* *task-self* *tty* *typescriptport* + *usertypescript* *userwindow* *xwindow-table* add-fd-handler + add-port-death-handler add-port-object add-xwindow-object alien + alien-access alien-address alien-assign alien-bind alien-index + alien-indirect alien-sap alien-size alien-type alien-value beep + bits boolean bytes c-procedure check<= check= compiler-version + copy-alien ct-a-val ct-a-val-alien ct-a-val-offset ct-a-val-p + ct-a-val-sap ct-a-val-size ct-a-val-type defalien + default-interrupt defenumeration define-alien-stack defoperator + defrecord deport-boolean deport-integer dispose-alien + double-float-radix enable-interrupt enumeration fd-stream + fd-stream-fd fd-stream-p fexpr find-if-in-closure gr-bind gr-call + gr-call* gr-error ignore-interrupt int-sap invalidate-descriptor + long-float-radix long-words macro make-alien make-ct-a-val + make-fd-stream make-indenting-stream make-object-set map-port + map-xwindow naturalize-boolean naturalize-integer + null-terminated-string object-set-operation output-raw-bytes + parse-body perq-string pointer port primep read-n-bytes + 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)) + + +(in-package "USER") + +(use-package "EXT") + + + +(in-package "VM") + +(use-package "KERNEL") + +(export '(*assembly-unit-length* *primitive-objects* array-data-slot + array-dimensions-offset array-displaced-p-slot + array-displacement-slot array-elements-slot + array-fill-pointer-slot atomic-flag base-character-type + bignum-digits-offset bignum-type binding-size binding-symbol-slot + binding-value-slot byte-bits catch-block-current-code-slot + catch-block-current-cont-slot catch-block-current-uwp-slot + catch-block-entry-pc-slot catch-block-previous-catch-slot + catch-block-size catch-block-size-slot catch-block-tag-slot + cerror-trap closure-function-header-type closure-function-slot + closure-header-type closure-info-offset code-code-size-slot + code-constants-offset code-debug-info-slot code-entry-points-slot + code-header-type complex-array-type complex-bit-vector-type + complex-imag-slot complex-real-slot complex-size + complex-string-type complex-type complex-vector-type + cons-car-slot cons-cdr-slot cons-size + define-for-each-primitive-object double-float-size + double-float-type double-float-value-slot error-trap + even-fixnum-type exported-static-symbols fixnum + function-header-arglist-slot function-header-code-offset + function-header-name-slot function-header-next-slot + function-header-self-slot function-header-type + function-header-type-slot function-pointer-type halt-trap + interrupted-flag list-pointer-type lowtag-bits lowtag-limit + lowtag-mask most-positive-cost odd-fixnum-type + offset-static-symbol other-immediate-0-type + other-immediate-1-type other-pointer-type pad-data-block + pending-interrupt-trap primitive-object-header + primitive-object-lowtag primitive-object-name + primitive-object-options primitive-object-size + primitive-object-slots primitive-object-variable-length + ratio-denominator-slot ratio-numerator-slot ratio-size ratio-type + return-pc-header-type return-pc-return-point-offset + sap-pointer-slot sap-size sap-type sc-number-limit + simple-array-double-float-type simple-array-single-float-type + simple-array-type simple-array-unsigned-byte-16-type + simple-array-unsigned-byte-2-type + simple-array-unsigned-byte-32-type + simple-array-unsigned-byte-4-type + simple-array-unsigned-byte-8-type simple-bit-vector-type + simple-string-type simple-vector-type single-float-size + single-float-type single-float-value-slot slot-docs slot-length + slot-name slot-offset slot-options slot-rest-p + static-symbol-offset static-symbol-p static-symbols + structure-pointer-type symbol-function-slot symbol-header-type + symbol-name-slot symbol-package-slot symbol-plist-slot + symbol-size symbol-value-slot target-binding-stack-start + target-byte-order target-control-stack-start + target-dynamic-space-start target-fasl-code-format + target-fasl-file-type target-heap-address-space + target-read-only-space-start target-static-space-start type-bits + type-mask unbound-marker-type unwind-block-current-code-slot + unwind-block-current-cont-slot unwind-block-current-uwp-slot + unwind-block-entry-pc-slot unwind-block-size + value-cell-header-type value-cell-size value-cell-value-slot + vector-data-offset vector-length-slot vm-version word-bits + word-bytes word-shift)) + + +(in-package "C") + +(use-package "EXT") +(use-package "KERNEL") +(use-package "SYSTEM") + +(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 "EVAL") + +(use-package "KERNEL") + +(export '(internal-eval interpreted-function-arglist + interpreted-function-closure + interpreted-function-lambda-expression interpreted-function-name + interpreted-function-p make-interpreted-function)) +