projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.55: will be tagged as "sbcl-1.0.55"
[sbcl.git]
/
src
/
compiler
/
assem.lisp
diff --git
a/src/compiler/assem.lisp
b/src/compiler/assem.lisp
index
797fd83
..
7cdc688
100644
(file)
--- a/
src/compiler/assem.lisp
+++ b/
src/compiler/assem.lisp
@@
-107,7
+107,7
@@
#!+sb-dyncount
(collect-dynamic-statistics nil))
(sb!c::defprinter (segment)
#!+sb-dyncount
(collect-dynamic-statistics nil))
(sb!c::defprinter (segment)
- name)
+ type)
(declaim (inline segment-current-index))
(defun segment-current-index (segment)
(declaim (inline segment-current-index))
(defun segment-current-index (segment)
@@
-1201,7
+1201,7
@@
body)))))))))
(def sb!int:def!macro macroexpand)
#+sb-xc-host
body)))))))))
(def sb!int:def!macro macroexpand)
#+sb-xc-host
- (def sb!xc:defmacro sb!xc:macroexpand))
+ (def sb!xc:defmacro %macroexpand))
(defmacro inst (&whole whole instruction &rest args &environment env)
#!+sb-doc
(defmacro inst (&whole whole instruction &rest args &environment env)
#!+sb-doc