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
2798a425
Commit
2798a425
authored
Jul 30, 1993
by
ram
Browse files
Add translator for kernel:%compiler-only-defstruct to do the compile-time-only
structure processing.
parent
b2647651
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/ir1tran.lisp
View file @
2798a425
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.9
1
1993/07/
17 00:57
:1
5
ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.9
2
1993/07/
30 12:09
:1
7
ram Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -2652,6 +2652,16 @@
(
remhash
(
kernel:dd-copier
info
)
*free-functions*
)
(
ir1-convert
start
cont
`
(
kernel:%%compiler-defstruct
',info
))))
;;; %COMPILER-ONLY-DEFSTRUCT IR1 Convert -- Internal
;;;
;;; Don't actually compile anything, instead call the function now. Use
;;; EVAL so this can be compiled...
;;;
(
def-ir1-translator
kernel:%compiler-only-defstruct
((
info
inherits
)
start
cont
:kind
:function
)
(
eval
`
(
kernel:%compiler-only-defstruct
,
info
,
inherits
))
(
reference-constant
start
cont
nil
))
;;;; Let and Let*:
;;;
...
...
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