Changeset 10626


Ignore:
Timestamp:
Sep 8, 2008, 5:44:43 AM (11 years ago)
Author:
gb
Message:

Use #$EXIT_FAILURE (not #$EX_USAGE) on Windows.
Use #_Sleep (not %nanosleep) on Windows; should probably use
#_SleepEx or something, so that it can be interrupted.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-application.lisp

    r10275 r10626  
    167167               (t "~a"))
    168168             opts)
    169      #$EX_USAGE
     169     #-windows-target #$EX_USAGE #+windows-targt #$EXIT_FAILURE
    170170     (summarize-option-syntax a))))
    171171               
     
    256256  (if args
    257257    (%usage-exit (format nil "Unrecognized non-option arguments: ~a" args)
    258                  #$EX_USAGE
     258                 #-windows-target #$EX_USAGE #+windows-target #$EXIT_FAILURE
    259259                 (summarize-option-syntax a))
    260260    (progn
     
    295295  (with-standard-abort-handling nil
    296296    (loop
     297      #+windows-target
     298      (#_Sleep 333)
     299      #-windows-target
    297300      (%nanosleep *periodic-task-seconds* *periodic-task-nanoseconds*)
    298301      (housekeeping))))
Note: See TracChangeset for help on using the changeset viewer.