Skip to content
Snippets Groups Projects
Commit 2781841a authored by wlott's avatar wlott
Browse files

Added sap+ to system exports.

parent b1960358
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.11 1990/04/24 18:49:41 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.12 1990/04/25 23:53:02 wlott Exp $
;;; ;;;
;;; All the stuff necessary to export various symbols from various packages. ;;; All the stuff necessary to export various symbols from various packages.
;;; ;;;
...@@ -54,7 +54,8 @@ ...@@ -54,7 +54,8 @@
(lisp->system "MAKE-CT-A-VAL") (lisp->system "MAKE-CT-A-VAL")
(lisp->system "NATURALIZE-BOOLEAN") (lisp->system "NATURALIZE-BOOLEAN")
(lisp->system "NATURALIZE-INTEGER") (lisp->system "NATURALIZE-INTEGER")
(lisp->system "SAP-REF-SAP")) (lisp->system "SAP-REF-SAP")
(lisp->system "SAP+"))
(let ((symbol (find-symbol "CHECK=" (find-package "COMPILER")))) (let ((symbol (find-symbol "CHECK=" (find-package "COMPILER"))))
(when symbol (import symbol (find-package "SYSTEM")))) (when symbol (import symbol (find-package "SYSTEM"))))
...@@ -374,41 +375,40 @@ ...@@ -374,41 +375,40 @@
(in-package "SYSTEM") (in-package "SYSTEM")
(export '(%alien-indirect %assembler-code-type %bind-aligned-sap (export '(%alien-indirect %assembler-code-type %bind-aligned-sap
%set-alien-access %set-sap-ref-16 %set-sap-ref-32 %set-sap-ref-8 %set-alien-access %standard-char-p %static-alien-area
%standard-char-p %static-alien-area %string-char-p %string-char-p *alien-eval-when* *beep-function* *gr-messages*
*alien-eval-when* *beep-function* *gr-messages* *in-the-compiler* *in-the-compiler* *maximum-interpreter-error-checking*
*maximum-interpreter-error-checking* *nameserverport* *nameserverport* *pornography-of-death*
*pornography-of-death* *port-ownership-rights-handlers* *port-ownership-rights-handlers* *port-receive-rights-handlers*
*port-receive-rights-handlers* *stderr* *stdin* *stdout* *stderr* *stdin* *stdout* *task-data* *task-notify* *task-self*
*task-data* *task-notify* *task-self* *tty* *typescriptport* *tty* *typescriptport* *usertypescript* *userwindow*
*usertypescript* *userwindow* *xwindow-table* add-fd-handler *xwindow-table* add-fd-handler add-port-death-handler
add-port-death-handler add-port-object add-xwindow-object alien add-port-object add-xwindow-object alien alien-access
alien-access alien-address alien-assign alien-bind alien-index alien-address alien-assign alien-bind alien-index alien-indirect
alien-indirect alien-sap alien-size alien-type alien-value beep alien-sap alien-size alien-type alien-value beep bits boolean
bits boolean bytes c-procedure check<= check= compiler-version bytes c-procedure check<= check= compiler-version copy-alien
copy-alien ct-a-val ct-a-val-alien ct-a-val-offset ct-a-val-p ct-a-val ct-a-val-alien ct-a-val-offset ct-a-val-p ct-a-val-sap
ct-a-val-sap ct-a-val-size ct-a-val-type defalien ct-a-val-size ct-a-val-type defalien default-interrupt
default-interrupt defenumeration define-alien-stack defoperator defenumeration define-alien-stack defoperator defrecord
defrecord deport-boolean deport-integer dispose-alien deport-boolean deport-integer dispose-alien double-float-radix
double-float-radix enable-interrupt enumeration fd-stream enable-interrupt enumeration fd-stream fd-stream-fd fd-stream-p
fd-stream-fd fd-stream-p fexpr find-if-in-closure gr-bind gr-call fexpr find-if-in-closure gr-bind gr-call gr-call* gr-error
gr-call* gr-error ignore-interrupt int-sap invalidate-descriptor ignore-interrupt int-sap invalidate-descriptor long-float-radix
long-float-radix long-words macro make-alien make-ct-a-val long-words macro make-alien make-ct-a-val make-fd-stream
make-fd-stream make-indenting-stream make-object-set map-port make-indenting-stream make-object-set map-port map-xwindow
map-xwindow naturalize-boolean naturalize-integer naturalize-boolean naturalize-integer null-terminated-string
null-terminated-string object-set-operation output-raw-bytes object-set-operation output-raw-bytes parse-body perq-string
parse-body perq-string pointer port primep read-n-bytes pointer port primep read-n-bytes record-size remove-fd-handler
record-size remove-fd-handler remove-port-death-handler remove-port-death-handler remove-port-object
remove-port-object remove-xwindow-object remove-xwindow-object resolve-loaded-assembler-references sap+
resolve-loaded-assembler-references sap-int sap-ref-16 sap-ref-32 sap-int sap-ref-16 sap-ref-32 sap-ref-8 sap-ref-sap
sap-ref-8 sap-ref-sap serve-all-events serve-event server serve-all-events serve-event server server-message
server-message short-float-radix signed-sap-ref-16 short-float-radix signed-sap-ref-16 signed-sap-ref-32
signed-sap-ref-32 signed-sap-ref-8 single-float-radix signed-sap-ref-8 single-float-radix symbol-macro-let
symbol-macro-let system-area-pointer system-area-pointer-p system-area-pointer system-area-pointer-p unproclaim unstructured
unproclaim unstructured wait-until-fd-usable wait-until-fd-usable with-enabled-interrupts with-fd-handler
with-enabled-interrupts with-fd-handler with-interrupts with-interrupts with-reply-port with-stack-alien without-gcing
with-reply-port with-stack-alien without-gcing without-hemlock without-hemlock without-interrupts words))
without-interrupts words))
(in-package "USER") (in-package "USER")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment