compiler warning

master
Avril 6 years ago
parent f5e275b8bc
commit 8ba2aef46b
Signed by: flanchan
GPG Key ID: 284488987C31F630

@ -21,7 +21,7 @@
(read)))) (read))))
(and (atom rd) (and (atom rd)
(eql rd 'quit) (eql rd 'quit)
(quit)) (exit))
(print (and (not (atom rd)) (print (and (not (atom rd))
(cond ((eql (car rd) 'send) (sipc:send-quick *socket-file* (if (stringp (cadr rd)) (cond ((eql (car rd) 'send) (sipc:send-quick *socket-file* (if (stringp (cadr rd))
(cadr rd) (cadr rd)

Loading…
Cancel
Save