Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Carl Shapiro
cmucl
Commits
8bb24abf
Commit
8bb24abf
authored
34 years ago
by
wlott
Browse files
Options
Downloads
Patches
Plain Diff
Lots of stuff due to moving all the compiler backend stuff out of the C
package.
parent
9728aba2
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
code/exports.lisp
+152
-61
152 additions, 61 deletions
code/exports.lisp
with
152 additions
and
61 deletions
code/exports.lisp
+
152
−
61
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"
)
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment