Changeset 4236


Ignore:
Timestamp:
10/07/03 00:38:06 (19 years ago)
Author:
piso
Message:

LOG.DEBUG => LOG-DEBUG

File:
1 edited

Legend:

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

    r4201 r4236  
    77(export '(set-global-property
    88          reset-display
    9           log.debug
     9          log-debug
    1010          add-hook
    1111          invoke-hook
     
    3838  (jstatic "resetDisplay" "org.armedbear.j.Editor"))
    3939
    40 (defmacro log.debug (&rest args)
    41   (when args
    42     `(let ((method (jmethod "org.armedbear.j.Log" "debug" "java.lang.String")))
    43        (jstatic method nil (format nil ,@args)))))
     40(defun log-debug (control-string &rest args)
     41  (%log-debug (apply 'format nil control-string args)))
    4442
    4543(defun add-hook (hook function)
Note: See TracChangeset for help on using the changeset viewer.