"L" looks like '("\"AR335-A\"","\"3.00\"","\"Sur.Art Hist./Appre.\"","\"8:00\"","\"8:50\"","\"M W F\"","\"A\"","\"35\"","\"DOWDY\"")
Code: Select all
(define (get-period L)
(let ((l (append (trim (nth 3 L) {"}) "-" (trim (nth 4 L) {"}))))
l))
Code: Select all
(define (get-period L , l)
(setq l (append (trim (nth 3 L) {"}) "-" (trim (nth 4 L) {"}))))
Eddie