diff --git a/test-client.lisp b/test-client.lisp index 0dbece1..96db007 100644 --- a/test-client.lisp +++ b/test-client.lisp @@ -21,7 +21,7 @@ (read)))) (and (atom rd) (eql rd 'quit) - (quit)) + (exit)) (print (and (not (atom rd)) (cond ((eql (car rd) 'send) (sipc:send-quick *socket-file* (if (stringp (cadr rd)) (cadr rd)