compiler warning

5 years ago · 8ba2aef46b
parent f5e275b8bc
commit 8ba2aef46b
1 changed files with 1 additions and 1 deletions
--- 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)