Skip to content

Instantly share code, notes, and snippets.

View zhouqiang-cl's full-sized avatar
💧
It is time

zhouqiang zhouqiang-cl

💧
It is time
  • None
  • air
View GitHub Profile
@zhouqiang-cl
zhouqiang-cl / keywordp.txt
Last active December 20, 2016 06:52
common lisp 的函数 KEYWORDP
语法
keywordp object => generalized-boolean
参数和值
object --- 一个 object
generalized-boolean --- 一个 generalized-boolean
描述
如果 object 是一个 keyword, 返回 true, 否则返回 false
@zhouqiang-cl
zhouqiang-cl / iftop.py
Last active March 9, 2017 06:05
抓取一个网段的机器到另外一个网段的出入流量
#!/usr/bin/python
# -*- coding: utf-8 -*-
"""
@author: [email protected]
@date: 2016-12-12
抓取机器到另外一个机房的出入流量,并格式化输出. 包括到另外机房的每个ip的流量。
iftop 要使用较高的版本. centos 中建议 1.0pre4 以上.
"""
import subprocess
import socket
@zhouqiang-cl
zhouqiang-cl / gist:c11377a9909ac724dd696b98804a7cba
Created December 11, 2016 16:06
common lisp 的类 PACKAGE
描述
package 是个将 symbol 的名字映射到 symbols 的名字空间
@zhouqiang-cl
zhouqiang-cl / gist:d16bb62c646e84cf34de8c226c733b7f
Created December 11, 2016 16:04
common lisp 的函数 LIST-ALL-PACKAGES
语法
list-all-packages => packages
参数和值
packages --- 一个 package object 的列表
描述
list-all-packages 返回所有注册的 package 列表
代码
@zhouqiang-cl
zhouqiang-cl / gist:7c02bfc5df95f554e825a39bb2969d54
Created December 11, 2016 13:38
common lisp 的函数 PACKAGE-USE-LIST
语法
package-use-list package => use-list
参数和值
package --- 一个 package designator
use-list --- 一个 package object 的列表
描述
返回这个 package 使用的其他 package object 的列表
@zhouqiang-cl
zhouqiang-cl / gist:e6debf7d8280df7b8a2d03b42b588d8d
Created December 11, 2016 10:53
common lisp 的函数 PACKAGE-USED-BY-LIST
语法
package-used-by-list package => used-by-list
参数和值
package --- 一个 package designator
used-by-list --- 一个 package object 的列表
描述
返回使用这个 package 的其他的 package
@zhouqiang-cl
zhouqiang-cl / gist:92281184efdf2b1845522527829eb198
Created December 11, 2016 10:46
common lisp 的函数 PACKAGEP
语法
packagep object => generalized-boolean
参数和值
object --- 一个 object
generalized-boolean --- 一个 generalized-boolean
描述
如果 object 为 package , 则返回 true.否则返回 false
@zhouqiang-cl
zhouqiang-cl / gist:5e19799582ad19af699e300d4ba2ca77
Created December 11, 2016 10:40
common lisp 的宏 IN-PACKAGE
语法
in-package name => package
参数和值
name --- 一个 string designator.
package --- 一个 package, 这个 package 的名字是 name
描述
让名字为 name 的 package 称为current package。 如果没有这个 package, package-error 的异常就抛出
@zhouqiang-cl
zhouqiang-cl / gist:93cf0d74b1bc3190dc9ba02c0fb10c25
Created December 11, 2016 01:37
common lisp 的函数 SHADOW
语法
shadow symbol-names &optional package => t
参数和值
symbol-names --- 一组 string 的指示符的指示符
package --- 一个 package 的指示符, 默认是当前 package
描述
shadow 确保 symbols-names 提供的符号在 package中。
如果 symbols-names 提供的符号不在 package 中,那么对应的符号被创建. 作为内部符号插入到 package 中
@zhouqiang-cl
zhouqiang-cl / gist:7c2d1dddb371cfb55dda104f4e1f34e7
Last active December 10, 2016 08:33
sbcl 的函数 run-program
语法
run-program [sb-ext] program args &key env environment wait search
pty input if-input-does-not-exist output if-output-exists error
if-error-exists status-hook external-format directory
代码
* (sb-ext:run-program "/bin/echo" (list "a"))
#<SB-IMPL::PROCESS :EXITED 0>