Changeset 11001


Ignore:
Timestamp:
03/03/06 14:26:59 (15 years ago)
Author:
piso
Message:

VARIABLE-VALUE => GET-GLOBAL-PROPERTY
SETF VARIABLE-VALUE => SET-GLOBAL-PROPERTY

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/examples/update-check-enabled.lisp

    r4239 r11001  
    11;;; update-check-enabled.lisp
    22;;;
    3 ;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: update-check-enabled.lisp,v 1.1 2003-10-07 14:29:50 piso Exp $
     3;;; Copyright (C) 2003-2006 Peter Graves
     4;;; $Id: update-check-enabled.lisp,v 1.2 2006-03-03 14:26:59 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3333           (timeout (* check-enabled-timeout 60 internal-time-units-per-second))
    3434           (enable (if (> current-time (+ last-event-time timeout)) nil t)))
    35       (unless (eq (variable-value 'check-enabled :global) enable)
    36         (setf (variable-value 'check-enabled :global) enable)
    37         (log-debug "check-enabled => ~A"
    38                    (variable-value 'check-enabled :global))))))
     35      (unless (eq (get-global-property 'check-enabled) enable)
     36        (set-global-property 'check-enabled enable)
     37        (log-debug "check-enabled => ~A" (get-global-property 'check-enabled))))))
    3938
    4039;; Fire it up.
Note: See TracChangeset for help on using the changeset viewer.