Changeset 4236

Timestamp:

10/07/03 00:38:06 (19 years ago)

Author:

piso

Message:

LOG.DEBUG => LOG-DEBUG

File:

• trunk/j/src/org/armedbear/lisp/j.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/j.lisp

@@ -7 +7 @@
 (export '(set-global-property
           reset-display
-          log.debug
+          log-debug
           add-hook
           invoke-hook
@@ -38 +38 @@
   (jstatic "resetDisplay" "org.armedbear.j.Editor"))
 
-(defmacro log.debug (&rest args)
-  (when args
-    `(let ((method (jmethod "org.armedbear.j.Log" "debug" "java.lang.String")))
-       (jstatic method nil (format nil ,@args)))))
+(defun log-debug (control-string &rest args)
+  (%log-debug (apply 'format nil control-string args)))
 
 (defun add-hook (hook function)