(in-package :common-lisp-user)

(defun simple-test ()
  (let ((process 
	 (ccl:process-run-function 
	     "Test"
	   #'(lambda ()
	       ;; (format t "~&;; Suspending test process...~%")
	       ;; (finish-output)
	       ;; (ccl:process-suspend ccl:*current-process*)
	       (sleep 5)
	       (format t "~&;; Resumed~%")
	       (finish-output)))))
    (format t "~&;; Starting test...~%")
    ;; Allow plenty of time for test process to start up:
    (sleep 2)
    (format t "~&;; Suspending test process...~%")
    (finish-output)
    (ccl:process-suspend process)
    (format t "~&;; Resuming test process...~%")
    (finish-output)
    (ccl:process-resume process)
    (format t "~&;; Test completed.~%")))

(simple-test)