summaryrefslogtreecommitdiff
path: root/lisp/bytecode.c
diff options
context:
space:
mode:
authorPaulo Cesar Pereira de Andrade <pcpa@mandriva.com.br>2008-03-11 21:48:58 -0300
committerPaulo Cesar Pereira de Andrade <pcpa@mandriva.com.br>2008-07-02 19:05:34 -0300
commitcb30367f10f2e38065d336d331afdc50900de76d (patch)
tree9b78cc1191b3e14cdbe325d47185d42e82c93788 /lisp/bytecode.c
parent953664369cc66ba17c7b9c1939fd9d7f6c6137ad (diff)
Generic lisp interface bug fixes including:
o Allow calling disassemble in all function types o Don't limit amount of bytes to generate a hash table o Allow "unreadable" symbol names to be keywords
Diffstat (limited to 'lisp/bytecode.c')
-rw-r--r--lisp/bytecode.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/bytecode.c b/lisp/bytecode.c
index 8353a13..cc7d1c5 100644
--- a/lisp/bytecode.c
+++ b/lisp/bytecode.c
@@ -551,6 +551,8 @@ Lisp_Disassemble(LispBuiltin *builtin)
name = bytecode = NULL;
switch (OBJECT_TYPE(function)) {
+ case LispFunction_t:
+ function = function->data.atom->object;
case LispAtom_t:
name = function;
atom = function->data.atom;