-;; JSCL HACK: a simple COPY-SEQ for testing string functions, since we don't have a real one yet -- remove me
-(defun copy-seq (string)
- (let ((copy (make-string (length string))))
- (dotimes (i (length string) copy)
- (aset copy i (char string i)))))
-