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 / gist:38524f661cca9d3a0020fd50c5d9849b
Created December 7, 2016 16:32
common lisp 的函数 WRITE-SEQUENCE
语法
write-sequence sequence stream &key start end => sequence
参数和值
sequence --- 一个 sequence
stream --- 一个 output stream
start, end --- 位置指示符,start 默认为0, end 默认为 nil
描述
write-sequence 将 sequence 从start到end的字句中的元素写出到 stream中
@zhouqiang-cl
zhouqiang-cl / gist:8fa357aa67f9ffb7511efde092ff28b0
Created December 7, 2016 16:55
common lisp 的函数 SPECIAL-OPERATOR-P
语法
special-operator-p symbol => generalized-boolean
参数和值
symbol --- 一个symbol
generalized-boolean --- 一个 generalized-boolean
描述
如果 symbol 是一个special-operator, 返回 true, 否则返回 false
@zhouqiang-cl
zhouqiang-cl / gist:4d8bc079127d3c4bdd4026c972e2c21a
Created December 8, 2016 02:28
common lisp 的几个网站
http://clocc.sourceforge.net/
@zhouqiang-cl
zhouqiang-cl / gist:29604458571355f38185e3d7b4ea6dac
Last active December 8, 2016 02:41
common lisp 的函数 SXHASH
语法
sxhash object => hash-code
参数和值
object --- 一个 object
hash-code --- 一个非负的 fixnum
描述
sxhash 返回 object 的哈希值
@zhouqiang-cl
zhouqiang-cl / gist:6eef3b944d2174c2e11e5bb669bb89ec
Created December 8, 2016 03:00
common lisp 的函数 MACHINE-INSTANCE
语法
machine-instance => description
参数和值
description --- 一个 string 或者 nil
描述
返回一个 string 来描述运行 common lisp 的电脑硬件(其实就是主机名, 写的这么晦涩)
代码
@zhouqiang-cl
zhouqiang-cl / gist:dbe5cf35be8bc98c2038a9f7c2a841a0
Created December 8, 2016 03:21
common lisp 的函数 MACHINE-TYPE
语法
machine-type => description
参数和值
description --- 一个 string 或者 nil
描述
返回机器的架构
代码
@zhouqiang-cl
zhouqiang-cl / gist:2eec0fb57ce58d033277ff6142811973
Created December 8, 2016 03:24
common lisp 的函数 MACHINE-VERSION
语法
machine-version => description
参数和值
description --- 一个 string 或者 nil
描述
返回机器硬件的 version
代码
* (machine-version)
@zhouqiang-cl
zhouqiang-cl / gist:0357cb0187a0fad45da24e6a53ff3d73
Created December 8, 2016 03:33
common lisp 的函数 SOFTWARE-TYPE, SOFTWARE-VERSION
语法
software-type => description
software-version => description
参数和值
description --- 一个 string 或者 nil
描述
software-type 返回系统类型
software-version 返回系统内核版本
@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
描述
返回用户的家目录
@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