215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
|
#f)))
(if valid
(if split
tlist
target)
(if target
(begin
(debug:print 0 "ERROR: Invalid target, spaces or blanks not allowed")
#f)
#f))))
;;======================================================================
;; M I S C L I S T S
;;======================================================================
|
|
|
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
|
#f)))
(if valid
(if split
tlist
target)
(if target
(begin
(debug:print 0 "ERROR: Invalid target, spaces or blanks not allowed \"" target "\"")
#f)
#f))))
;;======================================================================
;; M I S C L I S T S
;;======================================================================
|