Mercurial > demo / examples/app/mpk.lisp
changeset 41: |
81b7333f27f8 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Sun, 16 Jun 2024 22:15:04 -0400 |
permissions: |
-rw-r--r-- |
description: |
more examples |
1 ;;; examples/app/mpk.lisp --- MPK demo 7 (defpkg mpk (:use :cl :std :dat :net :obj :log :rdb :packy)) 13 (let* ((conn (mpd:connect)) 14 (status (mpd:status conn))) 15 (setq mpk::*mpc* conn) 16 (format t "mpd state: ~A~%" (mpd:state conn)) 17 (values conn status))) 19 (defun play () (mpd:play *mpc*)) 20 (defun stop () (mpd:stop *mpc*)) 21 (defun pause () (mpd:pause *mpc*))