Skip to content

Instantly share code, notes, and snippets.

@zhouqiang-cl
Created December 3, 2016 08:28
Show Gist options
  • Save zhouqiang-cl/578d8da8bff970a73f4ca3db7a045aac to your computer and use it in GitHub Desktop.
Save zhouqiang-cl/578d8da8bff970a73f4ca3db7a045aac to your computer and use it in GitHub Desktop.
common lisp 的访问器 SUBSEQ
语法
subseq sequence start &optional end => subsequence
(setf (subseq sequence start &optional end) new-subsequence)
参数和值
sequence --- 一个 sequence
start, end --- 边界描述符, end 默认为nil
subsequence --- 一个 sequence
new-subsequence --- 一个 sequence
描述
subseq 创建一个从sequence的start到end的subsequence
代码
* (setq str "012345")
"012345"
* (subseq str 3 5)
"34"
* (setf (subseq str 0 2) "A")
"A"
* str
"A12345"
* (setf (subseq str 4) "abc")
"abc"
* str
"A123ab"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment