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
语法
dolist (var list-form [result-form]) declaration* {tag | statement}* => result*
参数和值
var --- 一个 symbol
list-form --- 一个 form
result-form --- 一个 form
declaration --- 一个 declare 表达式, 不会被求值
tag --- 一个 go tag, 不会被求值
statement --- 一个 compound form, 会被求值
@zhouqiang-cl
zhouqiang-cl / gist:b11d6d1407fe13c92c137a0e2dbcd4e7
Created December 8, 2016 08:41
common lisp 的函数 INTEGER-LENGTH
语法
integer-length integer => number-of-bits
参数和值
integer --- 一个 integer
number-of-bits --- 一个非负整数
描述
返回存储这个整数的二进制内容需要的位数
@zhouqiang-cl
zhouqiang-cl / gist:578d664962622a62b1d8b14287bdbfd6
Created December 8, 2016 08:19
common lisp 的函数 ASH
语法
ash integer count => shifted-integer
参数和值
integer --- 一个 integer
count --- 一个 integer
shifted-integer --- 一个 integer
描述
ash 把 interger 往左移动 count 位(相当于乘以2的count次方)
@zhouqiang-cl
zhouqiang-cl / gist:81a69a7b0f64a00322cb939dd2ee6d69
Created December 8, 2016 08:15
common lisp 的函数 LOGAND
语法
logand &rest integers => result-integer
参数和值
integers --- integers
描述
按位逻辑与
代码
@zhouqiang-cl
zhouqiang-cl / ensure-directories-exist.txt
Last active December 22, 2016 04:03
common lisp 的函数 ENSURE-DIRECTORIES-EXIST
语法
ensure-directories-exist pathspec &key verbose => pathspec, created
参数和值
pathspec --- pathname的指示符
verbose --- 一个 generalized boolean
created --- 一个 generalized boolean
描述
测试 pathspec 的目录是否存在, 如果不存在, 就创建
@zhouqiang-cl
zhouqiang-cl / input-stream-p-vs-output-stream-p.txt
Last active December 22, 2016 07:55
common lisp 的函数 INPUT-STREAM-P, OUTPUT-STREAM-P
语法
input-stream-p stream => generalized-boolean
output-stream-p stream => generalized-boolean
参数和值
stream --- 一个 stream
generalized-boolean --- 一个 generalized-boolean
描述
@zhouqiang-cl
zhouqiang-cl / gist:c123d7c7d63e27f858515be99885f28c
Created December 8, 2016 06:17
common lisp 的变量 *READ-BASE*
描述
初始化值 10
在读取数字和浮点数的时候使用 *READ-BASE* 来进行解释, 默认为10进制
@zhouqiang-cl
zhouqiang-cl / gist:b9eb05f38dd1bb56d2ac43d7bb923da1
Created December 8, 2016 05:54
common lisp 的函数 LISP-IMPLEMENTATION-TYPE, LISP-IMPLEMENTATION-VERSION
语法
lisp-implementation-type => description
lisp-implementation-version => description
参数和值
description --- 一个 string 或者 nil
描述
lisp-implementation-type --- lisp 的实现
lisp-implementation-version --- lisp 的实现的 version
@zhouqiang-cl
zhouqiang-cl / iptables.sh
Created December 8, 2016 04:19 — forked from tawateer/iptables.sh
NAT 上控制访问外网的防火墙规则
#!/bin/bash
# 有两种权限:
# 1. 允许访问外网 WEB 端口(80, 443, 8080), 把 IP 加到 wl_web_ip 即可.
# 2. 允许访问外网所有流量, 基于 wl_all_ip, 把 IP 加到 wl_all_ip 即可.
iptables -F FORWARD
iptables -F BLOCK
iptables -F MON
@zhouqiang-cl
zhouqiang-cl / gist:36666ae3acdfd8ddd54e415393375f5f
Created December 8, 2016 03:45
common lisp 的函数 USER-HOMEDIR-PATHNAME
语法
user-homedir-pathname &optional host => pathname
参数和值
host --- 一个 string 或者一个 string 列表 或者 :unspecific
pathname --- 一个 pathname 或者 nil
描述
返回用户的家目录