File: sigtest.l

package info (click to toggle)
euslisp 9.31%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 55,448 kB
  • sloc: ansic: 41,610; lisp: 3,339; makefile: 286; sh: 238; asm: 138; python: 53
file content (12 lines) | stat: -rw-r--r-- 230 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
 
(defun tmain-end (&rest args)
   (format t ";signal ~s~%" args)
   (throw :end 1))

(defun tmain (n)
   (print n)
   (unix:signal 2 'tmain-end)
   (catch :end
      (while (> n 0)
         (unix:sleep 3)
	 (print (decf n))))
   )