Changeset 8505


Ignore:
Timestamp:
02/08/05 16:42:51 (16 years ago)
Author:
piso
Message:

Work in progress (tested).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/jvm.lisp

    r8466 r8505  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.392 2005-02-05 17:45:29 piso Exp $
     4;;; $Id: jvm.lisp,v 1.393 2005-02-08 16:42:51 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    27582758      (unless (> *speed* *debug*)
    27592759        (emit-push-current-thread))
    2760       (cond ((eq op (compiland-name *current-compiland*)) ; recursive call
    2761              (emit 'aload 0)) ; this
    2762             ((inline-ok op)
    2763              (emit 'getstatic *this-class* (declare-function op) +lisp-object+))
     2760      (cond ((inline-ok op)
     2761             (if (eq op (compiland-name *current-compiland*)) ; recursive call
     2762                 (emit 'aload 0) ; this
     2763                 (emit 'getstatic *this-class* (declare-function op) +lisp-object+)))
    27642764            ((null (symbol-package op))
    27652765             (let ((g (if *compile-file-truename*
Note: See TracChangeset for help on using the changeset viewer.