projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.54:
[sbcl.git]
/
src
/
compiler
/
generic
/
objdef.lisp
diff --git
a/src/compiler/generic/objdef.lisp
b/src/compiler/generic/objdef.lisp
index
ef1aa30
..
3dfb2f8
100644
(file)
--- a/
src/compiler/generic/objdef.lisp
+++ b/
src/compiler/generic/objdef.lisp
@@
-171,9
+171,9
@@
:set-known (unsafe)
:set-trans (setf %function-arglist))
(type :ref-known (flushable)
:set-known (unsafe)
:set-trans (setf %function-arglist))
(type :ref-known (flushable)
- :ref-trans %function-type
+ :ref-trans %fun-type
:set-known (unsafe)
:set-known (unsafe)
- :set-trans (setf %function-type))
+ :set-trans (setf %fun-type))
(code :rest-p t :c-type "unsigned char"))
(define-primitive-object (return-pc :lowtag other-pointer-type :header t)
(code :rest-p t :c-type "unsigned char"))
(define-primitive-object (return-pc :lowtag other-pointer-type :header t)