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
20870cad
Commit
20870cad
authored
Jun 11, 2003
by
emarsden
Browse files
Fix typo in FUN-ADDRESS.
parent
0376f352
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/disassem.lisp
View file @
20870cad
...
...
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.4
0
2003/06/
08
12:
15:53 gerd
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.4
1
2003/06/
11
12:
52:55 emarsden
Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -2019,9 +2019,9 @@
(
vm:function-header-type
(
-
(
kernel:get-lisp-obj-address
function
)
vm:function-pointer-type
))
(
vm:closure-header-type
(
fun-address
(
kernel:%closure-function
fun
)))
(
fun-address
(
kernel:%closure-function
fun
ction
)))
(
vm:funcallable-instance-header-type
(
fun-address
(
kernel:funcallable-instance-function
fun
)))))
(
fun-address
(
kernel:funcallable-instance-function
fun
ction
)))))
(
defun
fun-insts-offset
(
function
)
"Offset of FUNCTION from the start of its code-component's instruction area."
...
...
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