#! /usr/bin/newlisp ; ------------------------------------------------------------------- ; ; tyrant_delete.lsp ; ; Feb/10/2015 ; ------------------------------------------------------------------- (load "/var/www/data_base/common/newlisp_common/mcached_manipulate.lsp") ; ------------------------------------------------------------------- (println "*** 開始 ***") (setf key_in (main-args 2)) (println key_in) (setf hostname "host_ubuntu1") (setf port 1978) ; (mcached_delete_proc hostname port key_in) ; (println "*** 終了 ***") (exit) ; -------------------------------------------------------------------