Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
8bb24abf
Commit
8bb24abf
authored
Nov 12, 1990
by
wlott
Browse files
Lots of stuff due to moving all the compiler backend stuff out of the C
package.
parent
9728aba2
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/exports.lisp
View file @
8bb24abf
...
...
@@ -7,68 +7,13 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.5
2
1990/1
0/03 09:56:42
wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.5
3
1990/1
1/12 14:00:20
wlott Exp $
;;;
;;; All the stuff necessary to export various symbols from various packages.
;;;
;;; Written by William Lott.
;;;
;;; Old compiler cleanup.
#-
new-compiler
(
labels
((
move
(
name
old-package
new-package
)
(
let*
((
old-package
(
find-package
old-package
))
(
symbol
(
find-symbol
name
old-package
)))
(
when
symbol
(
let
((
orig-package
(
symbol-package
symbol
)))
(
unintern
symbol
orig-package
)
(
import
symbol
(
find-package
new-package
))
(
import
symbol
orig-package
)))))
(
nuke
(
name
package
)
(
let*
((
package
(
find-package
package
))
(
symbol
(
find-symbol
name
package
)))
(
when
symbol
(
unintern
symbol
package
)))))
(
nuke
"REAL"
"XLIB"
)
(
nuke
"FORM"
"LISP"
)
(
nuke
"INDEX"
"LISP"
)
(
nuke
"LEXICAL-ENVIRONMENT"
"LISP"
)
(
nuke
"NEGATE"
"LISP"
)
(
nuke
"TYPE-EXPAND"
"LISP"
)
(
nuke
"VAR"
"LISP"
)
(
nuke
"ARG"
"LISP"
)
(
nuke
"STRUCTURE-TYPE"
"XP"
)
(
nuke
"CONCAT-PNAMES"
"LISP"
)
(
nuke
"ONCE-ONLY"
"COMPILER"
)
(
nuke
"CONSTANT"
"COMPILER"
)
(
nuke
"GET-TYPE"
"LISP"
)
(
nuke
"INFO"
"HEMLOCK"
)
(
move
"POINTER<"
"COMPILER"
"SYSTEM"
)
(
move
"POINTER>"
"COMPILER"
"SYSTEM"
)
(
move
"SAP+"
"LISP"
"SYSTEM"
)
(
move
"%SET-ALIEN-ACCESS"
"LISP"
"SYSTEM"
)
(
move
"CHECK<="
"LISP"
"SYSTEM"
)
(
move
"CT-A-VAL"
"LISP"
"SYSTEM"
)
(
move
"CT-A-VAL-ALIEN"
"LISP"
"SYSTEM"
)
(
move
"CT-A-VAL-OFFSET"
"LISP"
"SYSTEM"
)
(
move
"CT-A-VAL-P"
"LISP"
"SYSTEM"
)
(
move
"CT-A-VAL-SAP"
"LISP"
"SYSTEM"
)
(
move
"CT-A-VAL-SIZE"
"LISP"
"SYSTEM"
)
(
move
"CT-A-VAL-TYPE"
"LISP"
"SYSTEM"
)
(
move
"DEPORT-BOOLEAN"
"LISP"
"SYSTEM"
)
(
move
"DEPORT-INTEGER"
"LISP"
"SYSTEM"
)
(
move
"MAKE-CT-A-VAL"
"LISP"
"SYSTEM"
)
(
move
"NATURALIZE-BOOLEAN"
"LISP"
"SYSTEM"
)
(
move
"NATURALIZE-INTEGER"
"LISP"
"SYSTEM"
)
(
move
"SAP-REF-SAP"
"LISP"
"SYSTEM"
)
(
move
"CHECK="
"COMPILER"
"SYSTEM"
))
;;; Create the packages
...
...
@@ -332,7 +277,17 @@
integer-decode-single-float
integer-decode-double-float
scale-single-float
scale-double-float
single-float-exponent
double-float-exponent
float-format-digits
get-closure-length
set-header-data
signal-init
%mask-field
%deposit-field
))
set-header-data
signal-init
%mask-field
%deposit-field
structurify
structure-length
structure-ref
structure-set
structure-index-ref
structure-index-set
dynamic-space-free-pointer
binding-stack-pointer-sap
control-stack-pointer-sap
simple-array-unsigned-byte-2-p
simple-array-unsigned-byte-4-p
simple-array-unsigned-byte-8-p
simple-array-unsigned-byte-16-p
simple-array-unsigned-byte-32-p
simple-array-single-float-p
simple-array-double-float-p
array-header-p
signed-byte-32-p
unsigned-byte-32-p
))
(
in-package
"EXTENSIONS"
)
...
...
@@ -462,6 +417,7 @@
(
use-package
"KERNEL"
)
(
use-package
"EXT"
)
(
use-package
"C"
)
(
export
'
(
*assembly-unit-length*
*primitive-objects*
array-data-slot
array-dimensions-offset
array-displaced-p-slot
...
...
@@ -527,7 +483,7 @@
value-cell-value-slot
vector-data-offset
vector-length-slot
vector-normal-subtype
vector-structure-subtype
vector-valid-hashing-subtype
vector-must-rehash-subtype
vm-version
word-bits
word-bytes
word-shift
weak-pointer-type
word-bits
word-bytes
word-shift
weak-pointer-type
weak-pointer-size
weak-pointer-value-slot
weak-pointer-next-slot
single-float-bias
...
...
@@ -541,7 +497,65 @@
single-float-bits
double-float-low-bits
double-float-high-bits
single-float-digits
double-float-digits
register-save-penalty
symbol-raw-function-addr-slot
symbol-setf-function-slot
structure-header-type
))
symbol-setf-function-slot
structure-header-type
alloc-g-vector
allocate-vector
alloc-string
sxhash-simple-string
sxhash-simple-substring
check-cons
check-symbol
check-fixnum
check-signed-byte-32
check-unsigned-byte-32
check-function-or-symbol
check-function
make-array-header
code-constant-set
allocate-code-object
code-instructions
compute-function
get-vector-subtype
set-vector-subtype
))
(
in-package
"LISP"
)
(
import
'
(
%aset
%bitset
%charset
%primitive
%put
%raw-bits
%set-raw-bits
%rplaca
%rplacd
%sbitset
%scharset
%set-documentation
%set-fdefinition
%set-fill-pointer
%set-row-major-aref
%set-sap-ref-sap
%set-sap-ref-32
%set-sap-ref-16
%set-sap-ref-8
%set-sap-ref-single
%set-sap-ref-double
%setelt
%setnth
%sp-set-plist
%sp-set-definition
%standard-char-p
%string-char-p
%svset
%typep
%array-typep
array-header-p
base-char-p
double-float-p
long-float-p
short-float-p
simple-array-p
single-float-p
string<*
string>*
string<=*
string>=*
string=*
string/=*
%sp-string-compare
)
"VM"
)
(
in-package
"C"
)
...
...
@@ -553,10 +567,84 @@
(
use-package
"ASSEM"
)
(
use-package
"BIGNUM"
)
(
export
'
(
*compile-time-define-macros*
*compiling-for-interpreter*
(
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
))
lambda-eval-info-frame-size
sc
%more-arg
%listify-rest-args
more-arg-context
verify-argument-count
argument-count-error
type-check-error
odd-keyword-arguments-error
unknown-keyword-argument-error
save-dynamic-state
restore-dynamic-state
current-stack-pointer
current-binding-pointer
make-unwind-block
make-catch-block
set-unwind-protect
%catch-breakup
%unwind-protect-breakup
nlx-entry
nlx-entry-multiple
uwp-entry
%continue-unwind
move
non-descriptor-stack
foreign-symbol-address
compute-old-nfp
unbind-to-here
alloc-number-stack-space
allocate-frame
allocate-full-call-frame
bind
branch
call
call-local
call-named
call-out
call-variable
closure-init
closure-ref
coerce-to-function
copy-more-arg
current-fp
current-stack-pointer
dealloc-number-stack-space
fast-safe-coerce-to-function
fast-symbol-function
fast-symbol-value
if-eq
known-call-local
known-return
make-catch-block
make-closure
make-unwind-block
make-value-cell
move
multiple-call
multiple-call-local
multiple-call-named
multiple-call-variable
nil
nlx-entry
nlx-entry-multiple
note-environment-start
push-values
reset-stack-pointer
restore-dynamic-state
return
return-multiple
save-dynamic-state
set
set-unwind-protect
setup-closure-environment
setup-environment
structure-ref
structure-set
symbol-function
symbol-value
tail-call
tail-call-named
tail-call-variable
throw
unbind
unwind
uwp-entry
value-cell-ref
value-cell-set
values-list
xep-allocate-frame
catch-block
))
(
in-package
"LISP"
)
(
import
'
(
...
...
@@ -604,6 +692,9 @@
string=*
string/=*
%sp-string-compare
make-fixnum
make-other-immediate-type
halt
)
"C"
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment