#! /usr/bin/env clisp
(require "linux")
(multiple-value-bind (ret act) (linux:sigaction-old linux:SIGUSR1 nil)
(setf (linux:sigaction-sa_handler act) #'(lambda (sig) (format t "Get a signal ~A~%" sig))
(linux:sigaction-sa_flags act) linux:SA_RESTART)
(linux:sigaction-new linux:SIGUSR1 act nil)
(linux:sigpause linux:SIGUSR1))
阅读(161) | 评论(0) | 转发(0) |