Separate lisp objects for functions with fixed and variable # arguments

This commit is contained in:
Juan Jose Garcia Ripoll 2008-06-16 23:09:21 +02:00
parent 0dbab7db8f
commit cb9939d6c0
17 changed files with 98 additions and 66 deletions

View file

@ -215,7 +215,7 @@ disassemble(cl_object bytecodes, cl_opcode *vector) {
else
line_format = Cnil;
BEGIN:
if (0) {
if (1) {
line_no = MAKE_FIXNUM(vector-base);
} else {
line_no = @'*';