Plaster
New
List
Login
common-lisp
default
anonymous
2024.01.22 22:58:38
> (defun foo () 10) FOO > (disassemble 'foo) Name: FOO Documentation: NIL Declarations: ((C-GLOBAL)) 0 NOMORE 1 QUOTE 10 3 SET MKCL_VALUES(0),REG0 4 EXIT /* function definition for FOO */ /* optimization: speed 3, space 0, safety 2, debug 2 */ static mkcl_object L1mk_COMMON__LISP__USER_8_FOO_mkcl_cfun_object_ = mk_cl_Cnil; static mkcl_object L1mk_COMMON__LISP__USER_8_FOO(MKCL) { VT2 VLEX2 CLSR2 STCK2 const mkcl_object this_func = L1mk_COMMON__LISP__USER_8_FOO_mkcl_cfun_object_; const mkcl_object * const fun_refs = this_func->cfun.fun_refs; #ifdef L1mk_COMMON__LISP__USER_8_FOO_cblock_0 const mkcl_object cenv0 = mkcl_alloc_clevel_block(env, this_func, mk_cl_Cnil, L1mk_COMMON__LISP__USER_8_FOO_cblock_0); const mkcl_object syms_cenv0 = mkcl_alloc_clevel_block(env, this_func, mk_cl_Cnil, L1mk_COMMON__LISP__USER_8_FOO_cblock_0); #endif mkcl_object value0; mkcl_object _mkcl_debug_env = mk_cl_Cnil; struct mkcl_ihs_frame ihs; mkcl_call_stack_check(env); mkcl_ihs_push(env, &ihs, this_func, _mkcl_debug_env); { TTL: value0=MKCL_MAKE_FIXNUM(10); env->nvalues=1; mkcl_ihs_pop(env); return value0; }} NIL > (compile 'foo) FOO NIL NIL > (disassemble 'foo) ;;; Warning: Cannot disassemble the binary function #<compiled-function FOO> because I do not have its source code. NIL
Raw
Annotate
Repaste
Edit