代码搜索结果
找到约 10,000 项符合
L 的代码
misc.l
# 16oct07abu
# (c) Software Lab. Alexander Burger
# *Allow *Tmp
(de *Day . (Mon Tue Wed Thu Fri Sat Sun .))
(de *Mon . (Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec .))
(de *mon . (jan feb mar ap
term.l
# 22sep06abu
# (c) Software Lab. Alexander Burger
### Key codes ###
(setq
*XtF1 (in '("tput" "kf1") (line T))
*XtF2 (in '("tput" "kf2") (line T))
*XtF3 (in '("tput" "kf3") (line T))
simul.l
# 11oct07abu
# (c) Software Lab. Alexander Burger
(de permute (Lst)
(ifn (cdr Lst)
(cons Lst)
(mapcan
'((X)
(mapcar
'((Y) (cons X Y))