subseq関数で文字列を切り出す

uLispの関数
文字列

実際のところ

(subseq string start [end])

Lisp的に書くと……

(defun day (d)
  (subseq "MonTueWedThuFriSatSun" (* 3 d) (* 3 (1+ d))))

実行するとこんな塩梅

uLisp 2.7 
1213> (defun day (d)   (subseq "MonTueWedThuFriSatSun" (* 3 d) (* 3 (1+ d))))
day

1175> (day 2)
"Wed"

1175> (day 1)
"Tue"

Puthonで書くと、こんな感じの記述ですかね……。

"MonTueWedThuFriSatSun"[3:6]
'Tue'