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
17c18c3b
Commit
17c18c3b
authored
Feb 09, 1990
by
ram
Browse files
Added the *COMPILE-TIME-DEFINE-MACROS* flag so that we can compile
code:macros.lisp without choking.
parent
e2fc0964
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/ir1tran.lisp
View file @
17c18c3b
...
...
@@ -14,6 +14,8 @@
;;;
(
in-package
'c
)
(
export
'
(
*compile-time-define-macros*
*compiling-for-interpreter*
))
(
in-package
'ext
)
(
export
'
(
ignorable
truly-the
maybe-inline
))
...
...
@@ -146,6 +148,12 @@
;;;
(
defvar
*converting-for-interpreter*
nil
)
;;; *Compile-Time-Define-Macros* is true when we want DEFMACRO definitions to
;;; be installed in the compilation environment as interpreted functions. We
;;; set this to false when compiling some parts of the system.
;;;
(
defvar
*compile-time-define-macros*
t
)
;;; IR1-Error-Bailout -- Internal
;;;
...
...
@@ -2847,9 +2855,11 @@
(
setf
(
info
function
kind
name
)
:macro
)
(
setf
(
info
function
where-from
name
)
:defined
)
(
setf
(
info
function
macro-function
name
)
#+
new-compiler
(
coerce
def
'function
)
#-
new-compiler
def
)
(
when
*compile-time-define-macros*
(
setf
(
info
function
macro-function
name
)
#+
new-compiler
(
coerce
def
'function
)
#-
new-compiler
def
))
(
let
((
fun
(
ir1-convert-lambda
def
)))
(
setf
(
leaf-name
fun
)
...
...
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